用VB设计一个电脑程序，检验一个数是否为质数。

窗体上放置 command1 程序如下 已测试通过 希望对你有所帮助神袭拆

Private Sub Command1_Click()

Dim i As Integer, m As Integer

m = InputBox("请输入要判断的数游枣")

For i = 2 To m - 1

If m Mod i = 0 Then Exit For

Next i

If i >禅枯= m Then

Print m &"是质数"

Else

Print m &"不是质数"

End If

End Sub

窗体中两个文升槐戚本框。两个按钮

Private Sub Command1_Click()'产生按钮

If Len(Text1.Text) <>14 Then

MsgBox "输入的需要校验准考证号长度必须是14位"

Text1.Text = ""

Exit Sub

Else

For i = 1 To 14

If InStr(1, "0123456789", Mid(Text1.Text, i, 1)) = 0 Then

MsgBox "准考证号中不能有非数字"

Exit Sub

End If

Next

'以下产生验证数吵陵字，规则前10位数之和加11到14为数乘以相应位数之和，最后取尾数得到校验码。

'明族规则可以自己定义。怎么产生就怎么验证

Dim zsum As Integer

For i = 1 To 10

zsum = zsum + Mid(Text1.Text, i, 1)

Next i

Print zsum

For i = 11 To 14

zsum = zsum + Mid(Text1.Text, i, 1) * i

Print zsum

Next i

Text2.Text = Text1.Text &(zsum Mod 10)

End If

End Sub

Private Sub Command2_Click()'校验按钮

Dim zsum As Integer

For i = 1 To 10

zsum = zsum + Mid(Text2.Text, i, 1)

Next i

Print zsum

For i = 11 To 14

zsum = zsum + Mid(Text2.Text, i, 1) * i

Print zsum

Next i

If Mid(Text2.Text, 15, 1) = zsum Mod 10 Then

MsgBox "验证成功"

Else

MsgBox "校验错误"

Text2.Text = ""

End If

End Sub

---