VB编程:判断任意正整数N是否为素数

题目

VB编程:判断任意正整数N是否为素数
如题,要求是编程.
完整的编程

答案

Private Sub Command1_Click()
n= Text1.Text
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
msgbox "不是"
Exit Sub
End If
Next i
msgbox "是"
End Sub