VB编程，求高手帮忙

找人帮我做……貌似很困难都不会，要多少分尽管说，我有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 

上一个：一个关于VB的小问题
下一个：vb中 提醒text中输入必须为正整数的 代码怎么编写呀