vb6.0 要求 编写一个function过程 在文本框中输入数值 (label显示 是与否)点击 按钮键1 是否为素数 在点击 按钮键 2 调用这个函数,在窗体中显示100以内的所有素数
写了一段,窗体上放一个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
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
温馨提示:答案为网友推荐,仅供参考