VB编写一个过程IsPrime(),用来判断利用输入对话框输入的数据是否是素数，并将结果用消息框输出。

Question

Sub InPrime()
。。。。。
End Sub

Answer 1

Sub InPrime()
Dim n As Integer, i As Integer
n = Val(inputbox("请输入一个数"))
For i = 2 To n - 1
If n Mod i = 0 Then msgbox n & "不是素数", ,"提示"; Exit For
Next i
If i > n - 1 Then msgbox n & "不是素数", ,"提示"
End Sub

Answer 2

Function InPrime(TestVal As Long) As Boolean
Dim Lim As Integer
InPrime = True
Lim = Sqr(TestVal)
For I = 2 To Lim
If TestVal Mod I = 0 Then
InPrime = False
Exit For
End If
Next I
End Function