求vb 代码，用数组来做

一楼简直是低能!题目意思都看不清! (楼主明明说了用数组)
二楼的方法是使用一维数组,我写的是使用二维数组,先对二维数组进行赋值,然后用循环调用二维数组里面的元素:
Dim a(2,2) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 1
For i = 0 To 2
For j = 0 To 2
a(i, j) = k
print a(i, j) & " ",
k = k + 1
Next
print
Next

Form1_click()
print "1 2 3"
Print "4 5 6"
Print "7 8 9"

Private Sub Command1_Click()
Dim a(1 To 9)
For i = 1 To 9
a(i) = i
Print a(i);
If a(i) Mod 3 = 0 Then Print
Next i
End Sub

我就BS 3楼的！！！能力强点就说别人低能，什么意思？他有可能是新手呢！！！3楼的，你没素质！！！！