福建省高职单招计算机专业.pptVIP

For循环控制结构 7 阅读程序1：输入一个正整数=2，判断是否为素数。素数是指除了1和它自身之外不能被整除的正整数。 n=InputBox(“请输入一个大等于2的正整数” ) ISPRIME=True For i = 2 To Sqr(n) If n Mod i = 0 Then ISPRIME = False Exit For End if Next i If ISPRIME Then Print n;”是素数” Else Print n;”不是素数” End If * For循环控制结构 8 阅读程序2： Dim n As Long , i As Integer n=InputBox(“请输入一个大于3的正整数” ) For i = 2 To Sqr(n) If n Mod i = 0 Then Print n ; “不是素数！” Exit For ElseIf n Mod i 0 And i = Int(Sqr(n)) Then Print n ; “是素数！” End If Next i * While循环控制结构 1 While循环控制结构格式： While 条件 [语句块] Wend x = 5 While x 0 s = s + x x = x - 1 Wend * While循环控制结构 2 注意： “条件”表达式的值，为True（非0值），则执行循环体；为False（值为0），则结束循环，接着执行Wend后的语句。 说明： 1、Wend必须和While配合使用。While循环可以嵌套，且嵌套层数没有限制，每个Wend和最近的While相匹配。 2、“条件”表达式是关系表达式或逻辑表达式，也可以是常量或变量。 3、循环体中应包含对“条件”表达式的值进行修改的语句，否则会成为“死循环”！ * While循环控制结构 3 例1、求1+2+3+…+100的值。 如果将j = 100，那么While循环语句如何改写？ Dim Sum As Integer , j As Integer Sum = 0 : j = 1 While j = 100 Sum = Sum + j j = j + 1 Wend Print “Sum=”;Sum * While循环控制结构 4 例2：从键盘输入10个数，分别输出正数、负数之和。 Dim Zsum As Single , Fsum As Single,j As Integer Zsum = 0 : Fsum = 0 : j = 1 While j = 10 x = InputBox(“输入第” j “个数”) If x 0 Then Zsum = Zsum + x ElseIf x 0 Then Fsum = Fsum + x End If j = j + 1 Wend Print “Zsum=” ; Zsum , “Fsum=” ; Fsum * While循环控制结构 5 例3：从键盘输入任一正整数，输出该数各位之和。 Dim Sum As Integer , j As Integer Sum = 0 j = InputBox(输入任一正整数) While j 0 Sum = Sum + j Mod 10 j = j \ 10 Wend Print “该数的各位之和为” ; Sum Dim Sum As Integer , j As String , i As Integer Sum = 0 j = InputBox(输入任一正整数) k = Len(j) For i = 1 to k Sum = Sum + j Mod 10 j = j \ 10 Next i Print 该数的各位之和为 ; Sum * While循环控制结构 6 例4：找出100~999之间的所有梅花数。所谓梅花数是指：该数各位的立方和等于其本身的整数。如153=13+53+33，则153是梅花数。 * While循环控制结构 7 程序阅读：输入某同学的