VB疑问～好难哦～懂的看看卅

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:32:54
在一个文本框中输入一个整数，在另一个文本框中显示这个数是否为素数。素数就是只能被1和他本身整除的数～～～～～～～～帮帮忙用VB编程，过程写出来～～～

Private Sub Form_Load()
Text1.Text = 17
End Sub
Private Sub Text1_Change()
Dim S As Long, I As Long
S = Val(Text1.Text)
If S < 2 Or Int(S) <> S Then Text2.Text = S & " 输入错误": Exit Sub
For I = 2 To S ^ 0.5
If S Mod I = 0 Then Text2.Text = S & " 不是素数": Exit Sub
Next
Text2.Text = S & " 是素数"
End Sub