2024年2月8日发(作者：)

Private Sub Command2_Click() For i = 1 To 100 If a(i - 1) Mod 2 = 0 Then oA(x) = a(i - 1) x = x + 1 Else jA(y) = a(i - 1) y = y + 1 End If Next Dim t As Integer For i = 0 To y - 1 For j = i + 1 To y - 1 If jA(i) > jA(j) Then t = jA(j) jA(j) = jA(i) jA(i) = t End If Next Next For i = 1 To y If i Mod 6 = 0 Then = & jA(i - 1) & vbCrLf Else = & jA(i - 1) & vbTab End If NextEnd Sub3>偶数数组排序Private Sub Command3_Click() Dim t As Integer For i = 0 To x - 1 For j = i + 1 To x - 1 If oA(i) < oA(j) Then t = oA(j) oA(j) = oA(i) oA(i) = t End If Next Next For i = 1 To x If i Mod 6 = 0 Then = & oA(i - 1) & vbCrLf Else = & oA(i - 1) & vbTab End If NextEnd Sub4>找出数组中所有的素数

Private Sub Command4_Click() Dim boo As Boolean For i = 0 To 99 boo = True

If a(i) < 3 Then If a(i) = 0 Then boo = False ElseIf a(i) = 1 Then boo = True ElseIf a(i) = 2 Then boo = False End If Else For j = 2 To a(i) - 1 If a(i) Mod j = 0 Then boo = False Exit For End If Next End If

If boo = True Then sA(z) = a(i) z = z + 1 End If Next For i = 1 To z If i Mod 6 = 0 Then = & sA(i - 1) & vbCrLf Else = & sA(i - 1) & vbTab End If Next

End Sub5>计算素数个数及总合Private Sub Command5_Click()

Dim s As Integer For i = 0 To z - 1 s = s + sA(i) Next = s = zEnd Sub