VB程序设计程序设计主题讲座主题讲座主题：循环结构主题：循环结构程序设计的三种基本结构顺序结构选择结构循环结构循环结构计数型循环ForNext知道循环次数条件型循环DoLoop只知道循环条件，不知道循环次数知己知彼，才能百战百胜1.设置断点2.选择【调试】【窗口】【自动窗口】3.选择【调试】【逐语句】或按F84.观察每一次自动窗口中的变化1下列程序段的循环结构执行过程中共循环了几 次。Dim i%, y% For i = 1 To 10 Step 2 y = y + i Next i2. 写出Dim i, c As Integerc = 0For i = -12 To -33 Step -4 c = c + 1Next i所进行的循环后，i的值是。3下段程序执行的输出结果是 。 Dim t, u, i, j As Integer t = 0 : u = 0 For i = 1 To 3 For j = 1 To i t = t + 1 Next j u = u + 1 Next i MsgBox(Str(t) & & Str(u)4下段程序执行的输出结果是 。Dim k, n, m As Integer n = 10 m = 1 k = 1 Do While k a And a b And a + b + c = a * b * c Then Label1.Text = 小英家的门牌号是： & num End If Next num7.求出所有水仙花数的程序（如果一个三位整数等于其各位数字的立方和，则该数为水仙花数。例如，371是水仙花数，因为37133+73+13）。主要解决的问题：哪些数是三位数？已知num是一个三位数，请写出它的三位数字相应的表达式程序代码？Dimnum,a,b,cAsIntegerFornum=100To999a=num100b=num10-a*10c=numMod10Ifnum=a3+b3+c3ThenTextBox1.Text&=num&vbTabEndIfNextnum8.输入一个数，判断它是否是素数定义：所谓素数是指只能被1和本身整除的正整数。如何判断某一个数n是否为素数：只需用2n-1之间的数去除就可以了。为了为了提高效提高效率率可以可以将将2n-12n-1改为改为2 2n/2n/2，或或2Int(Sqrt(n)2Int(Sqrt(n)如何判断n不能被2n-1之间的数整除：对于某一个数n，设置变量flag的初值为True；（循环）用2n-1之间的数去除，如果n能被其中任何一个整数整除，则将flag设为False。在循环之后判别flag的值是否是True，若是，说明没有被2n-1中任何一个整数整除，就是素数。Dim n, i As Integer, flag As BooleanN=inputbox(“n:”)flag = TrueFor i = 2 To n 1 If n Mod i = 0 Then flag = FalseNext iIf flag Then Label1.Text = n & “是素数“Else Label1.Text = n & “不是素数“ End If输出3300之间所有素数For n = 3 To 300判断n是否是素数，若是则输出Next nFor n = 3 To 300flag = TrueFor i = 2 To n 1 If n Mod i = 0 Then flag = FalseNext iIf flag Then Label1.Text = n & “是素数“Else Label1.Text = n & “不是素数“ End IfNext nDim n,i As Integer, flag As BooleanFor n = 3 To 300 flag = TrueFor i = 2 To n 1 If n Mod i = 0 Then flag = FalseNext iIf flag Then TextBox1.Text &= n & vbTabEnd IfNext n9.计算要求：1）使用InputBox()函数输入x和项数n。2）输出前n项的计算结果。循环初始条件s = 1 以及为计算第2项 item 准备如何构成循环？Fori=2TonNexti循环中反复做的是什么？计算items=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用变量k表示3，5，7，初值为3，计算下次循环的值k=k+2用变量t3表示3！，5！，7！，初值为3！，计算下次循环的值t3=t3*(k-1)*kitem = f * t1 * t2 / t3 Dim i, n, k, t1, f As Integer Dim x, s, item, t2, t3 As Double x = Val(InputBox(x) : n = Val(InputBox(n) s = 1 f = -1 : t1 = 2 : t2 = x * x * x : k = 3 : t3 = 1 * 2 * 3 For i = 2 To n item = f * t1 * t2 / t3 s = s + item f = -f : t1 = t1 + 2 : t2 = t2 * x * x k = k + 2 : t3 = t3 * (k - 1) * k Next MsgBox(Format(s, 0.000000)10.计算下列公式的近似值。（0X=0.0001Loop循环中反复做的是什么？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+2item = f * t1 / t2 Dim i, t2, f As Integer Dim x, s, item, t1 As Double x = Val(InputBox(x) s = 0 : item = 1 f = -1 : t1 = x : t2 = 1 Do While Math.Abs(item) = 0.0001 s = s + item item = f * t1 / t2 f = -f : t1 = t1 * x * x t2 = t2 + 2 Loop MsgBox(Format(s, 0.000000)