Question

vb6.0 要求 编写一个function过程 在文本框中输入100以内的数值

vb6.0 要求 编写一个function过程 在文本框中输入100以内的数值在点击（确定）按钮键判断该数 是否为素数 显示 是 否 怎么做

Answer 1

Private Sub Command1_Click()
  If Val(Text1.Text) <= 0 Then
    MsgBox "数据错误！"
    Text1.SetFocus
  Else
    If Val(Text1.Text) = 1 Then
      Label1.Caption = Text1.Text + "既不是合数，也不是素数。"
    Else
      If IsPrimeNumber(Val(Text1.Text)) Then
        Label1.Caption = Text1.Text + "是素数。"
      Else
        Label1.Caption = Text1.Text + "不是素数。"
      End If
    End If
  End If
End Sub

Private Function IsPrimeNumber(ByVal n As Long) As Boolean
  Dim flag As Boolean
  flag = True
  For i = 2 To Sqr(n)
    If n Mod i = 0 Then
      flag = False
      Exit For
    End If
  Next i
  If flag Then
    IsPrimeNumber = True
  Else
    IsPrimeNumber = False
  End If
End Function

Answer 2

是

追问

代码