演示版VB循环语句.ppt

用for循环语句编程求1/2+2/3+3/4……+98/99的和 答案：93.82265 优选文档 * 阿基米德与国王下棋，国王输了，国王问阿基米德要什么奖赏？阿基米德对国王说：我只要在棋盘上第一格放一粒米，第二格放二粒，第三格放四粒，第四格放八粒???按这个比例放满整个棋盘64个格子就行。国王以为要不了多少粮食，可一个粮仓的米还摆不完一半的棋格子，全部摆满后，你知道国王究竟付出了多少米吗？ 米的总粒数S=2^0+2^1+2^2+……+2^63 第N格放的米粒数量k=2^n 实际应用 优选文档 * * * * * * * * * * * * * * * * * 高一信息技术 VB循环语句 ——for语句 优选文档 * 例： 编写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 优选文档 * 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 步长 语句块 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必定是成对出现的。 优选文档 * 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 s=s+I next I print s step -1 优选文档 * 3、求1+2+3+4+5的和 s=0 for i=1 to 5 step 1 s=s+i next j print s i 优选文档 * 4、求7+5+3+1的和： S=0 For I= 7 to 1 Step 2 S=S+I Next I Print S -2 优选文档 * 用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 优选文档 * * * * * * * * * * * * * * * * *