1、VB程序设计主题讲座,主题：循环结构,程序设计的三种基本结构,顺序结构 选择结构 循环结构,循环结构,计数型循环ForNext 知道循环次数条件型循环DoLoop 只知道循环条件，不知道循环次数,知己知彼，才能百战百胜,设置断点 选择【调试】【窗口】 【自动窗口】 选择【调试】【逐语句】或按F8 观察每一次自动窗口中的变化,1下列程序段的循环结构执行过程中共循环了几 次。 Dim i%, y%For i = 1 To 10 Step 2y = y + iNext i,2. 写出 Dim i, c As Integer c = 0 For i = -12 To -33 Step -4c = c
2、+ 1 Next i 所进行的循环后，i 的值是 。,3下段程序执行的输出结果是 。Dim t, u, i, j As Integert = 0 : u = 0For i = 1 To 3For j = 1 To it = t + 1Next ju = u + 1Next iMsgBox(Str(t) & “ “ & Str(u),4下段程序执行的输出结果是 。Dim k, n, m As Integern = 10m = 1k = 1Do While k = nm = m + 2k = k + 1LoopMsgBox(m),5. 猴子摘了一堆桃子，第一天吃了一半，还嫌不过瘾，又吃了一个。第二
3、天又将剩下的桃子中吃了一半零一个。以后每天如此。到第十天清早，只剩下一只了。问最初有多少只桃子。,循环初始条件桃子数 s = 1 如何构成循环？For i = 9 To 1 Step -1Next i 循环中反复做的是什么？ s = (s + 1) * 2,Dim i, s As Integers = 1For i = 9 To 1 Step -1s = (s + 1) * 2NextMsgBox(s),6. 小英家的门牌号码是一个三位数，其特点是，末位数字比首位数字大，而首位数字又比中间数字大，且各位数字相加之和等于各位数字相乘之积。请编程找出这个门牌号码。,主要解决的问题： 哪些数是三位数
4、？100999For num = 100 To 999Next num 已知 num 是一个三位数，请写出它的三位数字相应的表达式 百位 a = num 100 十位 b = num 10 a * 10 个位 c = num mod 10,6. 小英家的门牌号码是一个三位数，其特点是，末位数字比首位数字大，而首位数字又比中间数字大，且各位数字相加之和等于各位数字相乘之积。请编程找出这个门牌号码。,Dim num, a, b, c As IntegerFor num = 100 To 999a = num 100b = num 10 - a * 10c = num Mod 10If c a An
5、d a b And a + b + c = a * b * c ThenLabel1.Text = “小英家的门牌号是：“ & numEnd IfNext num,7. 求出所有水仙花数的程序（如果一个三位整数等于其各位数字的立方和，则该数为水仙花数。例如，371是水仙花数，因为37133+73+13）。,主要解决的问题： 哪些数是三位数？ 已知 num 是一个三位数，请写出它的三位数字相应的表达式 程序代码？,Dim num, a, b, c As IntegerFor num = 100 To 999a = num 100b = num 10 - a * 10c = num Mod 10I
6、f num = a 3 + b 3 + c 3 ThenTextBox1.Text &= num & vbTabEnd IfNext num,8. 输入一个数，判断它是否是素数,定义：所谓素数是指只能被1和本身整除的正整数。 如何判断某一个数n是否为素数： 只需用2n-1之间的数去除就可以了。为了提高效率可以将2n-1改为2n/2，或2Int(Sqrt(n) 如何判断n不能被2n-1之间的数整除： 对于某一个数n，设置变量flag的初值为True； （循环）用2n-1之间的数去除，如果n能被其中任何一个整数整除，则将flag设为False。 在循环之后判别flag的值是否是True，若是，说明
7、没有被2n-1中任何一个整数整除，就是素数。,Dim n, i As Integer, flag As Boolean N=inputbox(“n:”) flag = True For i = 2 To n 1If n Mod i = 0 Then flag = False Next i If flag ThenLabel1.Text = n & “是素数“ ElseLabel1.Text = n & “不是素数“ End If,输出3300之间所有素数,For n = 3 To 300判断n是否是素数，若是则输出Next n,For n = 3 To 300 flag = True For
8、i = 2 To n 1If n Mod i = 0 Then flag = False Next i If flag ThenLabel1.Text = n & “是素数“ ElseLabel1.Text = n & “不是素数“ End If Next n,Dim n,i As Integer, flag As Boolean For n = 3 To 300flag = True For i = 2 To n 1If n Mod i = 0 Then flag = False Next i If flag ThenTextBox1.Text &= n & vbTab End If Nex
9、t n,9. 计算 要求：1）使用InputBox()函数输入x和项数n。 2）输出前n项的计算结果。 循环初始条件 s = 1 以及 为计算第2项 item 准备 如何构成循环？For i = 2 To nNext i 循环中反复做的是什么？ 计算item s = s + item 为下一项 item 做准备,用变量 f 表示符号 -1，1，-1，1， 初值为 -1 ， 计算下次循环的值 f = - f 用变量 t1 表示 2，4，6， 初值为 2 ， 计算下次循环的值 t1=t1+2 用变量 t2 表示 x3，x5，x7， 初值为 x3 ， 计算下次循环的值 t2 = t2 * x * x
10、 用变量 k 表示 3，5，7， 初值为 3 ， 计算下次循环的值 k = k + 2 用变量 t3 表示 3！，5！，7！， 初值为 3！， 计算下次循环的值 t3 = t3 * (k-1) * k item = f * t1 * t2 / t3,Dim i, n, k, t1, f As IntegerDim x, s, item, t2, t3 As Doublex = Val(InputBox(“x“) : n = Val(InputBox(“n“)s = 1f = -1 : t1 = 2 : t2 = x * x * x : k = 3 : t3 = 1 * 2 * 3For i =
11、 2 To nitem = f * t1 * t2 / t3s = s + itemf = -f : t1 = t1 + 2 : t2 = t2 * x * xk = k + 2 : t3 = t3 * (k - 1) * kNextMsgBox(Format(s, “0.000000“),10. 计算下列公式的近似值。（0X1,X由键盘输入） 当某项的绝对值小于0.0001时，该项及以后各项不再累加。这时就完成了S的计算。,循环初始条件 s = 0 : item = 1 以及 为计算第2项 item 准备 如何构成循环？Do While Math.Abs(item)=0.0001 Loop
12、循环中反复做的是什么？ s = s + item 计算item 为下一项 item 做准备,用变量 f 表示符号 -1，1，-1，1， 初值为 -1， 计算下次循环的值 f = - f 用变量 t1 表示 x，x3，x5，x7， 初值为 x， 计算下次循环的值 t2 = t2 * x * x 用变量 t2 表示 1，3，5，7， 初值为 1， 计算下次循环的值 t2 = t2 +2 item = f * t1 / t2,Dim i, t2, f As IntegerDim x, s, item, t1 As Doublex = Val(InputBox(“x“)s = 0 : item = 1f = -1 : t1 = x : t2 = 1Do While Math.Abs(item) = 0.0001s = s + itemitem = f * t1 / t2f = -f : t1 = t1 * x * xt2 = t2 + 2LoopMsgBox(Format(s, “0.000000“),
