[理学]大学vb 第3章 循环结构.ppt

求∑n(n为1-10)，并将结果打印出来。 Print 1+2+3+4+5+6+7+8+9+10 或： Dim s% s=1+2+3+4+5+6+7+8+9+10 Print 其和是 ;s 循环结构就是重复执行一段程序。 VB的循环语句： While…Wend For…Next Do While… Loop 、 Do Until…Loop Do … Loop While、 Do …Loop Until 循环是有条件的、次数是有限的。 循环三要素： （1）循环变量要有初值 （2）循环变量需更新 （3）循环变量需满足一定条件 While循环结构 格式： While 条件 循环体 Wend 功能： 当条件为True时，执行循环体内的语句，遇到Wend语句后返回，继续测试条件是否为True，直到条件为False，执行Wend语句的下一条语句。 例：计算1+2+…+10，并输出。 Dim s% s=1+2+3+4+5+6+7+8+9+10 Print 其和是 ;s 例:求100以内所有偶数的和，并将结果打印出来。 For循环结构 格式： For 循环变量＝初值 To 终值 [Step 步长] 循环体 [Exit For] Next [循环变量] 说明： （1）如果步长值为正数，则初值应小于终值，当循 环变量大于终值时，退出循环。 （2）如果步长值为负数，则初值应大于终值，当循 环变量小于终值时，退出循环。 例:求100以内所有偶数的和，并将结果打印出来。 例：找出所有的水仙花数。 Dim a%, b%, c%, d% d = Val(InputBox(请输入一个三位数：, 输入)) a = d \ 100 b = (d Mod 100) \ 10 c = d Mod 10 If d = a ^ 3 + b ^ 3 + c ^ 3 Then Print d 是水仙花数 End If 例：找出所有的水仙花数。 Dim a%, b%, c%, d% For d = 100 To 999 Step 1 a = d \ 100 b = (d Mod 100) \ 10 c = d Mod 10 If d = a ^ 3 + b ^ 3 + c ^ 3 Then Print d 是水仙花数 End If Next 1.执行下面的程序段后，s的值为【 】。　　s=5　　For i=2 To 9 Step 3　　 s=s+i　　Next i 2.编写如下事件过程：　　For j=10 To 6 Step -1　　 k=j　　Next j　　Print k ; j程序运行后，单击窗体，其输出结果为【 】 。A)5　5　　B)5　6　　C)6　5　　D)6　6 例：统计字符串中大写字母的个数。 Do循环结构 求∑n(n为1-100)，并将结果打印出来。 求∑n(n为1-100)，并将结果打印出来。 例：输入一个正整数n，计算n！，并输出。 循环的嵌套 m=63　 n=14　 Do While mn　 Do While mn　　 m=m-n　　 Loop　　 Do While nm　　 n = n-m　　 Loop　 Loop　 Print m;n Dim a As Single, b As Single Dim i As Integer, j As Integer, n As Integer n = Val(Text1.Text) For i = 1 To n b = 1 For j = 1 To i b = b * j Next j a = a + 1 / b Next i Print a 1/1!+1/2!+1/3!+…+1/n! 阅读程序 阅读程序 Dim i%, j% For i = 1 To 9 For j = 1 To i Print i * j = i * j; Next j Print Next i Tab((j - 1) * 8 + 1); i * j = i * j; 演示 乘法口诀表 阅读程序 程序运行后， 单击命令按钮， 则输出的结果是【 】 。A) 7 7　　 B) 1 1 　 C) 1 7　　 D) 7 1 A 第3章 Visual Basic程序设计结构 循环结构 1加到100? T 循环体 F 条件 i=1 While i=10 Print 快乐 i=i+1 wend 演示 循