VB编程,求高手帮忙
找人帮我做……貌似很困难都不会,要多少分尽管说,我有1000多,只要能出多少我都出
找人帮我做……貌似很困难都不会,要多少分尽管说,我有1000多,只要能出多少我都出
答案:发题 ,103492845@163.com
其他:Option Explicit Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(Text1.Text) If n
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Val(Text1.Text)
If n > 1 Then
For i = 2 To n - 1
If n Mod i = 0 Then
MsgBox n & "不是质数"
Exit Sub
End If
Next
Else
MsgBox n & "不是质数"
Exit Sub
End If
MsgBox n & "是质数"
End Sub