VB怎样找素数

素数的定义：如果一个数的因数或辩敏只有1和它自身，那衫枝么它就是素数你说找出一个大于或等于该数的第一个素数 那只有素数它本身了 如果还有的话 那它就不是素数了Dim a As Integer, b As Integer, i As Integer

a = InputBox("请输入一个纯数字", "输入")

i = 2

Do While i <= Int(Sqr(a))

If a Mod i = 0 Then Exit Do

i = i + 1

Loop

If i = Int(Sqr(a)) + 1 Then

MsgBox "第一个素数:1 " &vbCrLf &"灶碰第二个素数: " &a

Else

MsgBox "非素数"

End If

正确程序如下（可以通过比较寻找自己的错误）：

Private Sub Command1_Click()

X = Text1.Text

For i = 2 To X - 1

If X Mod i = 0 Then

F = 1

Exit For

End If

Next i

If F = 1 Then

Label2.Caption = "你输入的数是" &X &"，该数不是素数。"

Else

Label2.Caption = "你输入的数是" &X &"，该数是素数。"

End If

End Sub

扩展资料：

质数(prime number)又称素数，有无限个。一个大于1的自然数，除了1和它本身外，不能被其他自然数整除，换句话说就是该蚂皮察数除了1和它本身以外不再有其他的因数否握明则称为合数。

根据算术基本定理，每一个比1大的整数，要么本身是一个质数，要么可以写成一系列质数的乘积而且如果不考虑这些质数在乘积中的顺序，那么写出来的形式是唯一的。最小的质数是2。

目前为止，人们未找到一个公式可求出所有质数。闷茄

2016年1月，发现世界上迄今为止最大的质数，长达2233万位，如果用普通字号将它打印出来长度将超过65公里。

---