vb素数判断程序。

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 Not b = 0 Then
Exit For
Print a + "不是一个素数"
End If
If d = a - 1 Then
e = 1
End If
Next d
If e = 1 Then Print a + "是一个素数"

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

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

private sub command1_click()
dim n as integer, i as integer
n = val(text1.text)
for i = 2 to n - 1
if n mod i = 0 then text2.text = n & "不是素数": exit for
next i
if i > n - 1 then text2.text = n & "是素数"
end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！