VB题目，谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/16 09:36:13
输入一个整数X，如果该数是素数，则显示“是素数.”，如果不是则显示“不是素数.”。程序运行时在第一个文本框中输入一个整数，然后按【判断】按钮，将把结果显示在第二个文本框中。

Private Sub Command1_Click()
n=val(text1.text)
If IsPrime(n) = True Then
print "是"
else
print "不是"
end if
End Sub
Function IsPrime(ByVal n As Long) As Boolean
Dim i As Long
For i = 2 To Int(n / 2)
If n Mod i = 0 Then IsPrime = False: Exit Function
Next
IsPrime = True
End Function