vb素数判断程序。

For d = 2 To a 应改为For d = 2 To a-1

b = d Mod a 应改为b = a Mod d

If Not b = 0 Then
Exit For
Print a + "不是一个素数"
应改为
If Not b = 0 Then
Print a + "不是一个素数"
Exit For

Dim c As String
Dim a, b, d, e As Integer

Private Sub Form_Click()
c = InputBox("请输入一个要判断的数。", "输入")
a = Val(c)
For d = 2 To a
b = d Mod a
If b = 0 Then

Print a + "不是一个素数"
Exit For
End If
Next d
If d = a - 1 Then
e = 1
End If

If e = 1 Then Print a + "是一个素数"

End Sub \*大家帮帮忙，哪儿错了*/