Question

VB单击按钮判断文本框中输入的数是否为质数,判断结果显示在label2中





Answer 1

Private Function IsPrime(ByVal n As Integer) As Boolean
        Dim pb As Integer
        pb = n - 1
        IsPrime = True
        For i = 2 To pb
            If n Mod i = 0 Then
                IsPrime = False
                Exit For
            End If
        Next i
End Function

追问

答案要显示在Label2中，麻烦你修改一下

追答

Private Sub Command2_Click()
    If IsPrime(Val(Text1.Text)) Then
        Label2.Caption = Text1.Text & "是素数"
    Else
         Label2.Caption = Text1.Text & "不是素数"
    End If
End Sub

追问

大哥，我的是质数啊，不是素数，你确定程序没编写错？

追答

你把素数修改为质数就可以了，就字的差别
你这样问颠覆了我对质数和素数概念的理解啦都

追问

好吧，那就谢了