写VB程序:用函数过程来判断一个数是否为素数

Answer 1

Dim x As Integer, i As Integer
x = InputBox("请输入你要判断的数字")
If x <= 0 Then
MsgBox "你输入的不是正整数"
Exit Sub
End If
For i = 2 To x - 1
If x Mod i = 0 Then
MsgBox x & "不是素数"
Exit Sub
End If
Next
MsgBox x & "是素数"

Answer 2

Function shushu(x)
For i = 2 To Val(x) - 1
If Val(x) Mod i = 0 Then n = n + 1
If n = 1 Then
MsgBox "不是素数"
Exit Function
End If
Next
MsgBox "是素数"
End Function