vb 产生是2的倍数

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:31:52
vb 生成是33以内 的2的倍数 生成33以内的3的倍数
要求 两组数字的总数等于6且不能重复出现
高手救我
随机产生的 是33以内 的2的倍数 生成33以内的3的倍数

Private Sub Command1_Click()
Cls
Dim m(5) As Integer, n(5) As Integer
For i = 1 To 33
If i Mod 2 = 0 Then a = a + 1: m(a) = i
If i Mod 3 = 0 And i Mod 2 = 1 Then b = b + 1: n(b) = i
If a + b >= 6 Then Exit For
Next
Print "2的倍数"; " ";
For i = 1 To a
Print m(i);
Next
Print
Print "3的倍数"; " ";
For i = 1 To b
Print n(i);
Next
End Sub
不知道是否满意，不满意我还可以再改。

kl;/jlkij;l