Question

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

vb6.0 要求 编写一个function过程 在文本框中输入数值 （label显示 是与否）点击 按钮键1 是否为素数 在点击 按钮键 2 调用这个函数，在窗体中显示100以内的所有素数

Answer 1

写了一段，窗体上放一个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