VB 设有一个二维数组A(4,4),请交换其中的第二列和第四列并显示_百度知...答:Private Sub Command1_Click()Dim A(4, 4)'数组赋值Print "交换前:"For i = 1 To 4For j = 1 To 4A(i, j) = (i - 1) * 4 + j'数组显示Print A(i, j),NextPrintNext'交换数组的第二列和第四列For j = 1 To 4t = A(2, j)A(2, j) = A(4, j)A(4, j) = ...