第4章设计基础解析.ppt

* 例 计算1~100的奇数和，程序段如下： Dim i %, s% s=0 For i = 1 To 100 step 2 s = s + i Next i Print s * 例 求n！，n的值由用户输入 Private Sub Form_Click() Dim fact As Long, i As Integer, n As Integer n = Val(InputBox(“请输入n的值：”)) fact = 1 For i = 1 To n fact = fact * i Next Print n 的阶乘为： fact End Sub * 例 输入一个正整数n=3，判断是否为素数 Private Sub Form_Click () Dim n As Long, i As Integer n = Val(InputBox(请输入一个正整数（大于等于3）：)) For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next If i n - 1 Then Print n 是素数 Else Print n 不是素数 End If End Sub Private Sub Form_Click() Dim n As Long, i As Integer, f As Boolean n = Val(InputBox(请输入一个正整数（大于等于3）：)) f = True For i = 2 To n - 1 If n Mod i = 0 Then f = False End If Next If f Then Print n 是素数 Else Print n 不是素数 End If End Sub * 3.注意的问题 （1） 出了循环，循环控制变量值的问题。 例程序段： For i=2 To 13 Step 3 Print i , Next i Print : Print “i=“, i 循环执行次数 输出 i的值分别为: 2 5 8 11 出了循环输出为: i=14 * 例 改变循环控制变量对循环的影响。 Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print 第; j; 次循环i=; i Next i Print 退出循环后i=; i End Sub 正常情况：i=1,3,5,7,9,11,13,15,17,19 现在：i=4,9,14,19 （2）在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。 * 计算下列循环语句的次数： （1）For i=-3 To 20 step 4 （2）For i=-3.5 To 5.5 step 0.5 （3）For i=-3.5 To 5.5 step -0.5 （4）For i=-3 To 20 step 0 解答 （1）循环次数为6次 （2）循环次数为19次 （3）不循环 （4）无数次，死循环 * 求1!+2!+……+n!的值，n由用户输入 Private Sub Form_Click() Dim s As Long, j As Integer Dim fact As Long, i As Integer, n As Integer n = InputBox(请输入n的值：) s = 0 For i = 1 To n fact = 1 For j = 1 To i fact = fact * j Next j s = s + fact Next i Print 1!+2!+……+n!= s End Sub Private Sub Form_Click() Dim s As Long, j As Integer Dim fact As Long, i As In