Question

VB菜鸟问题 我想写一个程序，就是在文本框1里输入一个数字（正整数），自定计算他的素数

自动计算打错字了。。代码怎么写。。。

Answer 1

Private Sub Command1_Click()
Dim x As Long, i As Long
x = Val(Text1.Text)
For i = 2 To Sqr(x)
    If x Mod i = 0 Then Exit For
Next i
If i > Sqr(x) Then
    MsgBox x & "是素数"
Else
    MsgBox x & "不是素数"
End If
End Sub

以上代码需要一个文本框（Text1）和一个按钮（Command1）