VB7

n=n+1 不能少
i! = 13 Do n=n+1 i = i * (1 + 0.008) If i >= 26 Then Exit Do Loop
i! = 13 Do n = n + 1 i = i * (1 + 0.008) Loop Until i >= 26 "年后 人口将达到" 年后， "亿 Print n & "年后，人口将达到" & i & "亿"
计算，多少年后将达到26亿 计算，多少年后将达到 亿？
i! = 13 不能写成 Do While i <= 26 n=n+1 “＝” i = i * (1 + 0.008) Loop "年后 人口将达到" 年后， "亿 Print n & "年后，人口将达到" & i & "亿"
i! = 13 Do While i <= 26 n=n+1 i = 13 * (1 + 0.008) ^ n Loop
Dim i%, n%,s$ n = Val(InputBox("请输入一个正整数：")) 请输入一个正整数： 请输入一个正整数 s = n & "是素数“ 是素数“ 是素数 For i = 2 To n - 1 If n Mod i = 0 Then s = n & "不是素数 不是素数" 不是素数 Exit For End If Next Print s
实验:回文字串
Dim s$, sf$, i% s = InputBox(“请输入一串文字：") InputBox(“请输入一串文字 请输入一串文字： sf = "" For i = Len(s) To 1 Step -1 sf = sf & Mid(s, i, 1) Next i ‘将字符反串 ‘将字符反串 If s <> sf Then Print s; "不是回文数！" "不是回文数 不是回文数！ Else Print s; "是回文数！" "是回文数 是回文数！ End If
Dim i%, sum%, mark$, aver! 如果不知 For i= 1 to 10 mark = InputBox("请输入成绩") InputBox("请输入成绩 请输入成绩") 道学生的 Select case Ucase(mark) Ucase(mark) 具体人数， 具体人数， Case ”A” : sum = sum + 5 输入” 输入”Q” Case ”B” : sum = sum + 4 时结束， 时结束， Case ”C” : sum = sum + 3 怎样修改 Case ”D” : sum = sum + 2 Case ”E” : sum = sum + 1 程序？ 程序？ Case Else : sum = sum + 0 End Select Next 能不能改成 i ? aver = sum / 10 Print "平均为："; aver "平均为 平均为：
循环语句
Do While 条件 语句组 [Exit Do] 语句组 Loop
For 循环变量 = 初值 To 终值 [Step 步长 ] ……
[Exit For]
…… Next 循环变量
一般用于已知循环次数的循环 循环控制变量自动加步长
适用于所有循环结构
改变与“条件” 在循环中改变与“条件”有关的 变量的值避免死循环
False
循环变量=循环变量 步长 循环变量 循环变量+步长 循环变量
Next 循环变量
实验：输入 个同学考试的等级 个同学考试的等级， 实验：输入10个同学考试的等级，如 果A计5分，B计4分，以此类推，求这 计 分 计 分 以此类推， 10个同学的平均成绩。 个同学的平均成绩。 个同学的平均成绩
Dim s$, n%, i% s = InputBox(“请输入一串文字：") 请输入一串文字： 请输入一串文字 n = Len(s) For i = 1 To n \ 2 If Mid(s, i, 1) <> Mid(s, n - i + 1, 1) Then Exit For Next i If i > n / 2 Then Print s; "是回文数！“ 是回文数！ 是回文数 Else Print s; "不是回文数！" 不是回文数！ 不是回文数 EndIf
+ b
②
a=b
c (第4项) 第 项
⑥ ⑦
④
a
+
b
⑤
b=c
c (第5项) 第 项
a
+
b
⑧
⑨ ⑩
a
+
b
c(第6项) 第 项
……
Dim a#, b#, c#, i% a = 1 '第一项为 第一项为1 第一项为 b = 1 '第二项为 第二项为1 第二项为 Print a; b; '打印前两项 打印前两项 For i = 3 To 30 '求剩余的 项 求剩余的28项 求剩余的 c = a + b '每一项都是前两项之和 每一项都是前两项之和 a = b '新的第一项 新的第一项 b = c ‘新的第二项 新的第二项 Print c; '打印输出 打印输出 If i Mod 6 = 0 Then Print
n Mod 1 If y= n + 8 = 0 Then Print
End If Next y End Sub
If n Mod 8 = 0 Then Print 直接用 y 会怎样 ？
夏 景 诗
（香莲碧水动风凉夏日长） 香莲碧水动风凉夏日长） 香莲碧水动风凉， 香莲碧水动风凉， 水动风凉夏日长。 水动风凉夏日长。 长日夏凉风动水， 长日夏凉风动水， 凉风动水碧莲香。 凉风动水碧莲香。
随机产生10 100～200之间的数 10个 之间的数， 例 随机产生10个100～200之间的数， 找出其中的最大值。 找出其中的最大值。 若求最小
值呢 Dim i%, a%, max% a = Int(Rnd * 101) + 100 '先产生一个数 作为最大值的初值 先产生一个数,作为最大值的初值 先产生一个数 在若干个数中求最大值，一般取第一个 在若干个数中求最大值，一般取第一个 max = a 数为最大值的初值； 数为最大值的初值；然后将每一个数与最大 Print a For i =，若该数大于最大值，将该数替换为 '紧跟着产生剩下的 紧跟着产生剩下的9个数 紧跟着产生剩下的 比较， To 10 值比较 2 若该数大于最大值， 个数 a = Int(Rnd * 101) + 100 最大值；依次逐一比较。 最大值；依次逐一比较。 Print a If a > max Then max = a
可用 Ctrl+Break 强行退出死循环
课堂练习
•计算循环语句执行的次数及循环结束时循环控制变量的值： 计算循环语句执行的次数及循环结束时循环控制变量的值：
For i = 3 To 5 Step 0.6 For j = 5 To 3 Step - 0.6 For k=3 to 5 Step - 0.6 For m = 3 To 5 Step 0 •使循环语句能执行20次，For k=____ To -5 step -2中 使循环语句能执行20次 循环变量的初值是多少？ 循环变量的初值是多少？ •Do While…Loop 和Do …Loop While中哪个循环体可 While中哪个循环体可 能一次也不会被执行？ 能一次也不会被执行？ •在文本框中输入“ABCD”4个字符，窗体将显示什么？ 在文本框中输入“ABCD”4个字符 窗体将显示什么？ 个字符， Private Sub Text1_Change() Print Text1; 去掉分号会显示什么？ 去掉分号会显示什么？ End Sub
"不是回文数 不是回文数！ m = "不是回文数！" Exit For End If Next i Print s; m
√
√
输入一个正整数， 例:输入一个正整数，判断该数是否为素数。 输入一个正整数 判断该数是否为素数。 素数是指一个数只能被1和其本身整除 和其本身整除。） （素数是指一个数只能被 和其本身整除。）
• 一般情况下Print方法在Form_Load事 一般情况下Print方法在Form_Load Print方法在Form_Load事 件过程中无效 • 将窗体的AutoRedraw属性由False改为 将窗体的AutoRedraw属性由False AutoRedraw属性由False改为 True则可以显示 则可以显示。 True则可以显示。
Rem 单循环
Dim sum#, i%, n# sum = 0: n = 1 For i = 1 To 10 n=n*i sum = sum + n Next i Print "1！+2！+3！+...+10!="; sum
Print方法 方法
P66
[对象名.]Print 表达式 [,|;[表达式…]] 对象名.]Print [,|;[表达式 表达式…]]
；(分号)：光标定位在上一个显示的字符后 分号) ，(逗号)：光标定位在下一个打印区(每隔14列一个打印区) 逗号) 光标定位在下一个打印区(每隔14列一个打印区) 14列一个打印区 无“ ； ”或“ ， “：输出后换行