Sub test() Dim arr arr = Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97) For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End Sub
Sub testss() Dim ia As Integer Dim strList As String strList = "2," '2是素数,没有用子程序验证的必要了. For ia = 3 To 99 Step 2 If lss(ia) Then strList = strList & ia & "," Next ia Debug.Print ("100内的素数:" & strList) End Sub Function lss(ByVal bb As Integer) As Boolean '判断参数是否是素数 Dim ii As Integer If bb = 1 Then lss = False Else For ii = 2 To bb - 1 If bb Mod ii = 0 Then lss = False Exit For End If Next ii lss = IIf(ii = bb, True, False) End If End Function '使用方法 call testss() '返回下行: 100内的素数:2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,
Sub SS() Dim I%, X%, N Dim Kg As Boolean Dim Arr ReDim Arr(1 To 100) N = 1 Arr(N) = 2 For I = 3 To 100 Kg = True For X = 2 To Int(I / 2) Step 1 If I Mod X = 0 Then Kg = False Exit For End If Next X If Kg = True Then N = N + 1 Arr(N) = I End If Next I [A1].Resize(N, 1) = Application.Transpose(Arr) End Sub 献丑