VB循环语句说课讲解

1、在VB窗体界面上输出1~10这10个自然数
For i=1 to 10 print i next i
2、求5+4+3+2+1和 s=0 for I=5 to 1 step -1 s=s+I next I print s
3、求1+2+3+4+5的和 s=0
for i=1 to 5 step 1 s=s+i next j i print s
米的总粒数S=2^0+2^1+2^2+……+2^63 第N格放的米粒数量k=2^n
1．有如下VB程序段：
s＝0
For i ＝________To 5
s＝s＋i
Next i
该程序段运行后，循环体s ＝ s ＋ i 被执行10次，则循
环变量i的初值是( )
A．14B．－5C．1 NhomakorabeaD．－4
【答案】 D
2．有如下循环结构VB程序段
next
For i = 1 To 10 Step 1 s=s+i Next i
For 循环变量 =初值 to 终值 step 步长 语句块
next
1、For语句中步长值可以是正数，也可以是负数，但不可以是0。 2、但步长值为1时，可省略，即可省略“step 1”。 3、一段for循环语句中for和next必定是成对出现的。
VB循环语句
Private Sub Command1_Click() Dim s, i As Integer s=0 For i = 1 To 10 Step 1 s=s+i Next i Print s End Sub
For i = 1 To 10 Step 1 s=s+i Next i
For 循环变量 =初值 to 终值 step 步长 语句块
4、求7+5+3+1的和： S=0 For I= 7 to 1 Step 2-2 S=S+I Next I Print S
用for循环语句编程求1+1/2+1/3+……+1/99的和
For 循环变量 =初值 to 终值 step 步长 语句块
next
Dim s, i ,k As single s=0 For i = 1 To 19/999 Step 1 sk==1s/i + i s=s+k Next i Print s
用for循环语句编程求1/2+2/3+3/4……+98/99的和
答案：93.82265
实际应用
阿基米德与国王下棋，国王输了，国王问阿基米德要什 么奖赏？阿基米德对国王说：我只要在棋盘上第一格放一粒 米，第二格放二粒，第三格放四粒，第四格放八粒„„„按这个 比例放满整个棋盘64个格子就行。国王以为要不了多少粮食 ，可一个粮仓的米还摆不完一半的棋格子，全部摆满后，你 知道国王究竟付出了多少米吗？
s ＝ 16
For i ＝ 1 To 10 Step________
s ＝s / 2
Next i
程序执行后，s的值为1，则循环语句的步长应为( )
A．1
B．2
C．3
D．4
【答案】 C
3．Private Sub Form_Click()
For x ＝ 1 To 2
a＝0
For y ＝ 1 To x ＋ 1
a(i) ＝ a(i － 1) ＋ a(i － 2) Next i Text1.Text ＝ Str(a(i－1)) End Sub
【答案】 55
此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！谢谢
a ＝a ＋1
Next y
Print a；
Next x
End sub
该程序的输出结果是( )
A．1 1
B．0 0
C．1 2
D．2 3
【答案】 D
4．下列VB程序运行时，单击命令按钮Command1后， 文本框Text1中显示的内容是____________________。
Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer, s As Integer a(1) ＝ 1: a(2) ＝ 1 For i ＝ 3 To 10