《《VB循环语句》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《VB循环语句》PPT课件.ppt（16页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、高一信息技术VBVB循环语句循环语句 forfor语句语句例：编写VB程序，计算整数1+2+3+10的值Dim s as integerPrint sS=1+2+3+4+5+6+7+8+9+10S=0S=s+1S=s+2S=s+3S=s+4S=s+5S=s+6S=s+7S=s+8S=s+9S=s+10Private Sub Command1_Click()Dim s,i As Integers=0For i=1 To 10 Step 1s=s+iNext iPrint sEnd SubFor i=1 To 10 Step 1s=s+iNext iFor 循环变量=初值 to 终值 step 步
2、长 语句块nextFor i=1 To 10 Step 1s=s+iNext iFor 循环变量=初值 to 终值 step 步长 语句块next1、For语句中步长值可以是正数，也可以是负数，但不可以是0。2、但步长值为1时，可省略，即可省略“step 1”。3、一段for循环语句中for和next必定是成对出现的。1、在VB窗体界面上输出110这10个自然数 For i=1 to 10 print inext i2、求5+4+3+2+1和 s=0 for I=5 to 1 s=s+I next I print sstep-1i4、求7+5+3+1的和：S=0 For I=7 to 1 St
3、ep 2 S=S+I Next I Print S-2用for循环语句编程求1+1/2+1/3+1/99的和For 循环变量=初值 to 终值 step 步长 语句块nextDim s,i As singles=0For i=1 To 1/99 Step 1s=s+iNext iPrint s,k99k=1/is=s+k用for循环语句编程求1/2+2/3+3/4+98/99的和答案：93.82265 阿基米德与国王下棋，国王输了，国王问阿基米德要什么奖赏？阿基米德对国王说：我只要在棋盘上第一格放一粒米，第二格放二粒，第三格放四粒，第四格放八粒按这个比例放满整个棋盘64个格子就行。国王以为要不
4、了多少粮食，可一个粮仓的米还摆不完一半的棋格子，全部摆满后，你知道国王究竟付出了多少米吗？米的总粒数S=20+21+22+263第N格放的米粒数量k=2n实际应用1有如下VB程序段：s 0For i _To 5s s iNext i该程序段运行后，循环体s s i 被执行10次，则循环变量i的初值是()A14 B5 C1 D4【答案】D2有如下循环结构VB程序段s 16For i 1 To 10 Step_s s/2Next i程序执行后，s的值为1，则循环语句的步长应为()A1 B2 C3 D4【答案】C3Private Sub Form_Click()For x 1 To 2 a 0 For y 1 To x 1 a a 1 Next y Print a；Next xEnd sub该程序的输出结果是()A11 B00 C12 D23【答案】D4下列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 a(i)a(i 1)a(i 2)Next i Text1.Text Str(a(i1)End Sub【答案】55