临床甲-大二上学期课件-第6章 循环结构 新课件.pptVIP

用For……Next语句实现 Dim m, i, T As Boolean m = Val(InputBox(输入一个正整数)) T = True For i = 2 To m - 1 If m Mod i = 0 Then T = False Exit For End If Next i If T = True Then Print m 是素数! Else Print m 不是素数! End If 6.5循环的退出 用该程序判否为素数 判断素数：优化程序 知识点：除2以外所有的素数都是奇数 循环步骤 操作 1 If m mod 3=0 then T=False 2 If m mod 5=0 then T=False …… …… (m-1)/2 If m mod m-1=0 then T=False If T=True then m 是素数 分析：判断是否被2整除并且不是2，是则不执行循环，否则执行下列循环步骤 判断素数程序改进 Dim m, i, T As Boolean m = Val(InputBox(输入一个正整数)) T = True If m M