vb程序代码将大于17且紧靠17的5个素数存入a所指的数组中

Option Explicit

Private Sub Command1_Click()
Dim sushu() As Integer
Dim item
Dim n As Integer, i As Integer
i = 0
n = 17
Do
n = n + 1
If Zs(n) = True Then
ReDim Preserve sushu(i)
sushu(i) = n
i = i + 1
If i > 4 Then Exit Do
End If
Loop
For Each item In sushu
Print item '输出结果
Next
End Sub
Function Zs(ByVal x As Integer) As Boolean
Dim i As Integer
Zs = False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit For
Next
If i > Sqr(x) Then Zs = True
End Function

查找质数(素数)
'例子需控件： Command1、Text1

Private Sub Command1_Click()
Dim a() As Long, nStr As String

Call FindSuShu(18, 100, a, 5) '查找大于17的5个素数存入数组a

'显示到 Text1
For I = LBound(a) To UBound(a)
nStr = nStr & a(I) & " "
Next
Text1.Text = nStr
End Sub

Private Sub Fi