VB编程题

将随机产生的16个  10到99 范围内的随机整数存放在数组中，然后完成以下操作。
交换第一行和第三行的位置。
交换第二列和第四列的位置。
输出数组各元素的值。

追问：谢谢哥们哈，还有一道题也一起帮我了嘛，我提高一些财富值给你。
    从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换。第一个与第十个交换 第二个与第九个。
    显示在窗体上。

答案：Private Sub Form_Click()
    Dim A(4, 4) As Integer
    Dim I As Integer, J As Integer
    Form1.AutoRedraw = True
    Form1.Cls
    Randomize
    Print "原始数组是："
    For I = 1 To 4
        For J = 1 To 4
            A(I, J) = Int(Rnd * 90 + 10)
            Print A(I, J);
        Next
        Print
    Next
    Print "交换第一行和第三行的位置后："
    For J = 1 To 4
        A(0, J) = A(1, J)
        A(1, J) = A(3, J)
        A(3, J) = A(0, J)
    Next
    For I = 1 To 4
        For J = 1 To 4
            Print A(I, J);
        Next
        Print
    Next
    Print "交换第二列和第四列的位置后："
    For I = 1 To 4
        A(I, 0) = A(I, 2)
        A(I, 2) = A(I, 4)
        A(I, 4) = A(I, 0)
    Next
    For I = 1 To 4
        For J = 1 To 4
            Print A(I, J);
        Next
        Print
    Next
End Sub

其他：Private Sub Command1_Click()
Randomize
Dim a(1 To 4, 1 To 4), b(1 To 4, 1 To 4) As Integer
Dim i, j As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 90) + 10
b(i, j) = a(i, j)
Print a(i, j);
Next j
Print
Next i
Print
For i = 1 To 4
zhi = a(1, i)
a(1, i) = a(3, i)
a(3, i) = zhi
Next i
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
Next j
Print
Next i
Print
For i = 1 To 4
zhi = b(i, 2)
b(i, 2) = b(i, 4)
b(i, 4) = zhi
Next i
For i = 1 To 4
For j = 1 To 4
Print b(i, j);
Next j
Print
Next i
End Sub
Private Sub Form_Load()
Form1.Command1.Caption = "OK"
End Sub 

上一个：vb 为什么说我的next没有for ？？？？？代码如下；
下一个：关于VB的 FOR循环和list列表框的问题