vb6.0 要求 编写一个function过程 在文本框中输入数值 （label显示 是与否）

写了一段，窗体上放一个Text，一个按钮，代码如下：
Function Sushu(a As Integer) As Integer
    For i = 2 To a - 1 Step 1
        If a Mod i = 0 Then
            MsgBox a & "不为素数", vbInformation + vbOKOnly, "提示！"
            Exit Function
        End If
    Next
    MsgBox a & "是素数", vbInformation + vbOKOnly, "提示！"
End Function

Private Sub Command1_Click()
Sushu (Val(Text1.Text))
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rjr7yx3rvf32vf7re3.html