level 6
交哟酷到墨策34
楼主
Private Sub Command1_Click()
Dim value
Dim Counter As Integer
If IsNumeric(Text1) Then
value = CInt(Text1)
For Counter = 2 To value - 1
If value Mod Counter = 0 Then
Exit For
End If Next
If value Mod Counter = 0 Then L
abel2.Caption = "是质数"
Else Label2.Caption = "不是质数"
End If
Else
MsgBox "输入的不是数据，无法计算"
End If
End Sub
2013年05月03日 13点05分
1
Dim value
Dim Counter As Integer
If IsNumeric(Text1) Then
value = CInt(Text1)
For Counter = 2 To value - 1
If value Mod Counter = 0 Then
Exit For
End If Next
If value Mod Counter = 0 Then L
abel2.Caption = "是质数"
Else Label2.Caption = "不是质数"
End If
Else
MsgBox "输入的不是数据，无法计算"
End If
End Sub
![[惊讶]](/static/emoticons/u60cau8bb6.png)
![[抛媚眼]](/static/emoticons/u629bu5a9au773c.png)
