Question

在VB中编写一个判断一个整数是否为素数的程序.....能不能简单点....用if

在VB中编写一个判断一个整数是否为素数的程序.....能不能简单点....用if语句和for语句....do while 语句和exit for什么的都没学QAQ

Answer 1

Function sushu(a As Integer) As Boolean
    Dim i As Integer
    For i = 2 To Int(Sqr(a))
        If a Mod i = 0 Then Exit For
    Next
    If i > Int(Sqr(a)) Then
        sushu = True
    Else
        sushu = False
    End If
End Function

Private Sub Form_Click()
    Dim a As Integer
    a = InputBox("输入一个整数", "提示")
    If sushu(a) = True Then
        MsgBox CStr(a) + " 是素数"
    Else
        MsgBox CStr(a) + " 不是素数"
    End If
End Sub