菜鸟 求 简单点的 VB 程序设计

Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入一个正整数："))
If IsPrime(n) = True Then
Print n & "是素数！"
Else
Print n & "不是素数！"
End If
End Sub

Rem 判断是否为素数的函数
Function IsPrime(ByVal Num As Integer) As Boolean
If Num < 2 Then IsPrime = False: Exit Function

Dim i As Integer

For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
IsPrime = False
Exit Function
End If
Next i

IsPrime = True
End Function