用vb随机产生2个素数

Dim a As Integer, i As Integer, m As Integer, n As Integer, x As Integer, y As Integer
Dim x1 As Integer, y1 As Integer
Dim bol As Boolean
bol = True
If TextBox0.Text = "" Then
MsgBox("请输入您要的素数长度!")
Exit Sub
End If
TextBox0.Text = m
n = 10 ^ m
x1 = (Rnd() * (10 ^ n) + n)
For x = x1 To 10 * n
For i = 2 To Int(Sqrt(n))
If x Mod i = 0 Then
a = 0
Else
a = x
Exit For
bol = False
End If
Next
If bol = False Then
Exit For
End If
Next
y1 = (Rnd() * (10 ^ n) + n)
For y = y1 To 10 * n
For i = 2 To Int(Sqrt(n))
If y Mod i = 0 Then
a = 0
Else
a = y
Exit For
bol = False
End If
Next
If bol = False Then
Exit For
End If
Next
TextBox1.Text = x
TextBox2.Text = y
要求输入位数千万别太长,否则电脑运算量太大
有问题在线联系

方法名称：next()；功能描述：返回一个0~214