09秋理科VB考前辅导_2

循环控制结构之FOR/NEXT语句:
for <控制变量>=<初值> to <终值> [step <步长>]
<循环体>
next <控制变量>
例如:
For k=1 to 10
s=s+k
Next k
Print s, k
s=0
for k = 10 to 1
s = s + k
next k
print s,k
应用举例1:输入一个正整数n,求n阶乘.
应用举例2:找出100到999之间所有水仙花数
EXIT FOR子句的使用:
例如:
s = 0
for k = 1 to 10
s = s + k
if k >5 then exit for
next k
print s, k
应用举例1:判断一个数n是不是质数(素数)(介绍另外一种方法) 应用举例2:找出100到200之间所有的质数
应用举例3: y=1+x/2+x^2/3+x^3/4….x^12/13 (另:p83练习4)
多项式相加问题(已知多少项的问题)
关键操作:<和变量>=<和变量>+<单项>
试题讲解：调试3、调试6、调试7
--------------------------------------------------------
循环控制结构之While/Wend语句: While <条件>
<循环体>
Wend
循环控制结构之do/loop语句:
Do {while|until} <条件>
<循环体>
loop
例1:
X = 1 : s = 0
do while x <5
s = s + x : x = x + 1
loop
print x, s
例2:
X = 1 : s = 0
do until x <5
s = s + x : x = x + 1
loop
print x, s
Do
<循环体>
loop {while|until} <条件>
例1:
X = 1 : s = 0
do
s = s + x : x = x + 1
loop while x<5
print x, s
例2:
X = 1 : s = 0
do
s = s + x : x = x + 1
loop until x<5
print x, s
应用举例:未知多少项求和问题(P63例3-12, p83练习5)
试题讲解1:调试12、调试14
试题讲解2:
do
n=val(inputbox(“please input n”))
loop until n<10 and n>0
print n
上述do/loop循环语句的作用是什么?
下面的代码用于确保用户输入的m,n满足如下关系：m>n>0 do
m = inputbox(“m=”)
n = inputbox(“n=”)
loop _____
A: until m>n>0
B : while m>n and n>0
C : while m<=n or n<=0
D: until m>n or n>0
exit do子句的作用:
如何将for/next循环改写为do/loop循环？
for k = 2 to int(sqr(n))
if n mod k=0 then exit for
next k
if k> int(sqr(n)) then
print n; “是质数”
else
print n; “不是质数”
end if
试题讲解：调试20
------------------------------------------------------
多重循环：
写出点击按钮command1后，显示在窗体上的内容。

private sub command1_click()
dim k,j as integer
for k=1 to 5
print space(5-k);
for j=1 to 2*k-1
print chr(asc(“C”)+j);
next j
print
next k
end sub
三角图形打印
穷举法（求x2+y2+z2=1000的所有整数解）
试题讲解：调试18、调试19
程序阅读题训练：
程序1：(教材79程序阅读题1)
Private sub Form_Click()
dim a as integer, s as integer
a = 5 : s = 0
do while a<=0
s = s + a : a = a-1
loop
print s; a
end sub
程序2：
private sub form_click()
dim x as string
dim I as integer,n as integer
x="ABCDEFG"
n=len(x)
For i=n to 1 step -2
x=x+mid(x,i,1)
Print mid(x,i,1);
Next i
print
Print x
end sub
程序3：
private sub command1_click()
dim s as string
s = inputbox(“x=”)
n =len(s)
if n mod 2=1 then c = mid(s,n\2+1,1)
for k = 1 to len(s)\2
c = mid(s, len(s)+1-k,1)+c+mid(s,k,1)
next k
print c
end sub
单击command1后输入“abc”，窗体上显示的内容是什么？单击command1后输入“abcd”，窗体上显示的内容是什么？程序4：
Private Sub form_click()
Dim S As String
Dim k As Integer, n As Integer
S = "ABCDE"
n = Len(S)
for k = n To 1 Step -1
S = S + Mid(S, k, 1)
Print Tab(n - k + 1);
Print Mid(S, n - k + 1, 1)
Next k
Print Right(S, n)
End Sub
程序5：（2006秋试题）
Private sub Form_Click()
n = inputbox(“n=”)
k = 10 : j =1
for i = 1 to n
print space(k); string(j,trim(str(i))) if i <= n\2 then
k = k – 1 : j = j + 2
else
k = k + 1 : j = j - 2
end if
next i
end sub
分别输入4，5后输出的图形。