VB循环语句ppt课件.ppt

1、高一信息技术,VB循环语句 for语句,1,例：,编写VB程序，计算整数1+2+3+10的值,Dim s as integer Print s,S=1+2+3+4+5+6+7+8+9+10,S=0 S=s+1 S=s+2 S=s+3 S=s+4 S=s+5 S=s+6 S=s+7 S=s+8 S=s+9 S=s+10,2,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,3,For i = 1 To 10 Step 1 s

2、= s + i Next i,For 循环变量 =初值 to 终值 step 步长 语句块 next,4,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必定是成对出现的。,5,1、在VB窗体界面上输出110这10个自然数 For i=1 to 10 print i,next i,6,2、求5+4+3+2+1和 s=0 for I=5

3、 to 1 s=s+I next I print s,step -1,7,i,8,4、求7+5+3+1的和： S=0 For I= 7 to 1 Step 2 S=S+I Next I Print S,-2,9,用for循环语句编程求1+1/2+1/3+1/99的和,For 循环变量 =初值 to 终值 step 步长 语句块 next,Dim s, i As single s = 0 For i = 1 To 1/99 Step 1 s = s + i Next i Print s,k,99,k=1/i s=s+k,10,用for循环语句编程求1/2+2/3+3/4+98/99的和,答案：9

4、3.82265,11,阿基米德与国王下棋，国王输了，国王问阿基米德要什么奖赏？阿基米德对国王说：我只要在棋盘上第一格放一粒米，第二格放二粒，第三格放四粒，第四格放八粒按这个比例放满整个棋盘64个格子就行。国王以为要不了多少粮食，可一个粮仓的米还摆不完一半的棋格子，全部摆满后，你知道国王究竟付出了多少米吗？,米的总粒数S=20+21+22+263,第N格放的米粒数量k=2n,实际应用,12,1有如下VB程序段： s 0 For i _To 5 s s i Next i 该程序段运行后，循环体s s i 被执行10次，则循环变量i的初值是() A14 B5 C1 D4,【答案】D,13,2有如下循

5、环结构VB程序段 s 16 For i 1 To 10 Step_ s s / 2 Next i 程序执行后，s的值为1，则循环语句的步长应为() A1 B2 C3 D4,【答案】C,14,3Private Sub Form_Click() For x 1 To 2 a 0 For y 1 To x 1 a a 1 Next y Print a； Next x End sub 该程序的输出结果是() A11 B00 C12 D23,【答案】D,15,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)