VB程序设计语言 主讲教师：王　杨

引例

韩信点兵 韩信带1500名兵士打仗，战死四五百人，3人一排， 多出2人；5人一排，多出4人；7人一排，多出6人 For a = 1000 To 1100 Next a 　If a Mod 3 = 2 And a Mod 5 = 4 And a Mod 7 = 6 Then 　　Print a End If 《射雕英雄传》 郭靖、黄蓉去拜见一灯大师，在崖口遇到一灯大师徒弟的刁钻

For 循环格式 For j = 1 to 5 step 1 Print “*” For j =5 to 1 Next j step -1 循环变量 = 初值 To 终值 循环语句块 Next [循环变量]

100 * t =0 For i =1 To 3 t = t + i Next i Print i, t 1＋2＋3＋…＋100 1×2×3×…×100 　 t =0 For i =1 To 3 t = t + i Next i Print i, t 1 100 * 1!＋2!＋3!＋…＋10!

Dim i As Integer, x As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \ 5 Next Print x 后，x的值为______。 （A）16 （B）17 （C）18 （D）19

Private Sub Command1_Click() For i = 0 To 50 step 4 i = i + 3 If i > 10 Then Exit For Next i Text1.Text = Str(i) End Sub

? 123321 i 6 - i + 1 Mid left Right Mid 输入一个长度为6的字符串，判断是否是回文 Mid(a, i, 1) Mid(a, 6 - i + 1, 1) i 6 - i + 1 123321 a = inputbox(“请输入长度为6的一个字符串”) Mid left Right Mid For i = 1 to 6\2 Next i If Then exit for Mid(a, i, 1) <> Mid(a, n - i + 1, 1) Left(s$,n) Right(s$,n) Mid(s$,p,n)

输入一个数，判断该数是否是素数 素数算法 For i = 2 To n-1 Next i For i = 2 To n-1 Next i If n Mod i = 0 Then print “不是素数” else print n; “是素数” End If If n mod i = 0 then Exit for End if If Then Print n; “是素数“ Else print n; “不是素数” End If i>n-1

思 考 找到第一个比n大，且能够被7整除的数

条件性循环 条件性循环 While循环 Do循环

Do 循环控制结构 i = 1 Do s = s + i i = i +1 Loop While i<=5 i = 1 Do While i<=5 s = s + i i = i +1 Loop i = 1 While i<=5 s = s + i i = i +1 Wend i = 1 Do s = s + i i = i +1 Loop until i > 5 i = 1 Do until i > 5 s = s + i i = i +1 Loop

课堂练习 Private Sub Form_Click()  Dim n As Integer, s As Integer  n = 8  s = 0  Do  s = s + n  n = n - 1  Loop While n > 0  Print s End Sub

编写一个猜数字游戏程序，让计算机产生一个100以内的随 机整数，用户从键盘输入一个数，由计算机判断输入的数是 大还是小，并给出提示，直到输入正确的数为止。 n = Int(Rnd * 100) Do x = Val(InputBox("输入一个100以内的整数")) If x = n Then ElseIf x > n Then Else End If Form1.Print "正确“ Form1.Print x; "太大" Form1.Print x; "太小" Exit do Loop

求两个数的最大公约数 实例：求3与4的最大公约数 u v r 被除数 除数 商 余数 3 ÷ 4 ＝ ＋ 1 3与4的最大公约数 余数为0

u = 3: v = 4 r = u Mod v Do while r <> 0 u = v v = r loop Print v m = u: n = v Print m*n/v

练 习

组合框combo 事件 属性 方法 Click Text Additem DbClick List RemoveItem change ListCount ListIndex style Additem RemoveItem Clear

课堂练习

列表框list 事件 属性 方法 Text Click Additem List DbClick RemoveItem ListCount ListIndex Additem RemoveItem Clear

小结 什么时候需要使用循环？ 有哪些循环结构？ 列表框和组合框 素数算法 最大公约数

作 业

思 考 找出200~1000范围内的所有素数