2L

Private Sub Command46_Click()
Label3.Caption = ""
Label1.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label2.Caption = ""
Dim NO As Double
Dim NO1 As Double
Dim Index As Double
answer = 0
NO = Val(InputBox("请输入一整数，以判断其是否为整数"))
For NO1 = 2 To ((NO ^ 0.5) + 1) / 2
    If NO Mod 2 = 0 Or NO Mod ((NO1) * 2 - 1) = 0 Then
               answer = 1
       Exit For
    End If
Next NO1
If answer = 1 Then
    Label2.Caption = "你所输入的数"
    Label3.Caption = Val(NO)
    Label1.Caption = "不是一个质数"
    If NO Mod 2 = 0 Then
    Label4.Caption = "此数可被"
    Label5.Caption = 2
    Label6.Caption = "整除"
    Label2.Caption = "你所输入的数"
    Else
    Label4.Caption = "此数可被"
    Label2.Caption = "你所输入的数"
    Label5.Caption = NO1 * 2 - 1
    Label6.Caption = "整除"
    End If
Else
    Label3.Caption = Val(NO)
    Label2.Caption = "你所输入的数"
    Label1.Caption = "是一个质数"
    Label4.Caption = ""
End If
End Sub