求出1000以内的所有的因子个数为5的数的VB编程

求出1000以内的所有的因子个数为5的数的VB编程
求出1000以内的所有的因子个数为5的数的VB编程

求出1000以内的所有的因子个数为5的数的VB编程
Option Explicit
Option Base 1
Private Sub Form_Click()
Dim i%,j%,k%,n%
Dim a() As Integer
n = 0
For i = 1 To 1000
k = 0
For j = 1 To i
If (i Mod j) = 0 Then
k = k + 1
End If
Next j
If k = 5 Then
n = n + 1
ReDim Preserve a(n)
a(n) = i
End If
Next i
For i = 1 To n
Print a(i)
Next i
End Sub
看了上面两条回复真的挺搞笑啊,