编定程序,判断一个正整数(>=3)是否为素数
程序如下。。
Sub Form_Click()
Dim n As Integer
n = InputBox("请输入一个正整数(>=3)")
k = Int(Sqr(n))
i = 2
Swit = 0
While i<= k And Swit = 0
While i<= k And Swit = 0
If n Mod i= 0 Then
Swit = 1
Else
i = i+1
End If
Wend
If Swit = 0 Then
Print n;"是一个整数"
Else
Print n;"不是整数"
End If
End Sub。
你问错地方了~~ 仅管我二级学过VB~~不过都忘光了~~