Question

帮忙编一个VB小程序

就是3个A1，3个A2，3个A3，3个B1,3个B2，3个B3，和4个C进行随机排列，能不能帮忙编一个VB的程序？

Answer 1

所要求的程序，连同运行截图如下：

Private Sub Command1_Click()
Dim a(22) As Integer, i As Integer, j As Integer, t As Integer
For i = 1 To 22
a(i) = i
Next i
n = 22
For i = 22 To 2 Step -1
j = Int(i * Rnd) + 1
t = a(j): a(j) = a(i): a(i) = t
Next i
For i = 1 To 22
Print " ";
Select Case (a(i) - 1) \ 9
Case 0
Print "A" & ((a(i) - 1) Mod 9 \ 3 + 1);
Case 1
Print "B" & ((a(i) - 1) Mod 9 \ 3 + 1);
Case 2
Print "C" & ((a(i) - 1) Mod 9 + 1);
End Select
Next i
Print
End Sub