Private Sub Command2_Click()
Dim n As Integer
Dim b()
n = 0
For k = 1 To 100
If a(k) Mod (Sqr(a(k))) = 0 Then
n = n + 1
ReDim Preserve b(n)
b(n) = a(k)
End If
Next
Call sort(b(), n)
For k = 1 To n
Text2.Text = Text2.Text & Str(b(k))
Next
End Sub
dim b()之后必须要redim的，不能直接就开始用b(*)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024