UC知道输入一个数，判断是否是素数。
来源：百度知道 编辑：UC知道 时间：2024/07/01 06:46:23
VB知识，用函数编写，调用，谢了噢
Private Sub Command1_Click()
Dim Num As Long
Num = InputBox("请输入一个整数")
If Prime(Num) = True Then MsgBox Num & "是素数" Else: MsgBox Num & "不是素数"
End Sub
Private Function Prime(N As Long) As Boolean
For i = 2 To N - 1
If N Mod i = 0 Then Prime = False: Exit Function
Next
Prime = True
End Function