算法3 判断素数
代码如下:
m =val( InputBox("请输入一个数")) For i=2 To int(sqr(m)) If m Mod i = 0 Then Exit For Next i If i > int(sqr(m)) Then Print "该数是素数" Else Print "该数不是素数" End If