这个题目怎么做~~!紧急

Question

编写程序判断输入的任意一个整数是否为素数,若为素数,则输出"YES",否则输出"NO"?
我乃菜鸟,这是我们考试的题目.请各位大哥大姐帮帮忙.谢谢.
急救,这是我们明天考试的题目,在线等待.

Answer 1

Sub SuShu(ByVal n As Long)
    Dim i As Long
    For i = 2 To Int(Sqr(n))
        If (n Mod i) = 0 Then Exit For
    Next i
    Print IIf(i - 1 = Int(Sqr(n)), "YES", "NO")
End Sub

Answer 2

Dim a, b, c
c = 0
a = Text1.Text
If a = 1 Then
Print "YES"
Else
For b = 2 To a - 1
c = a Mod b
If c = 0 Then
Exit For
End If
Next
If c = 0 Then
Print "yes"
Else
Print "NO"
End IfEnd If

Answer 3

不错，要几个小地方
Dim a, b, c
c = 0
a = Val(Text1.Text)
If a = 1 Or a = 2 Then
Print "YES"
Else
For b = 2 To a - 1
c = a Mod b
If c = 0 Then
Exit For
End If
Next
If c = 0 Then
Print "NO"
Else
Print "YES"
End IfEnd If