用VB编写程序，把下面的数据输入到一个二维数组中：

Private Sub Command1_Click()

Dim a(3, 3) As IntegerDim i, j As Integer

Dim sum_row(3) As Integer '行之和

Dim sum_col(3) As Integer '列之和

Dim sum As Integer

For i = 0 To 3

For j = 0 To 3

a(i, j) = InputBox("请输入第" & i + 1 & "行，第" & j + 1 & "列的数据：", "提示")

Print a(i, j) & " ";

sum_row(i) = sum_row(i) + a(i, j)

Next j

Print sum_row(i)

sum_col(i) = 0

Next i'输出列的值

For j = 0 To 3

For i = 0 To 3

sum_col(j) = sum_col(j) + a(i, j)

Next i

Print sum_col(j);

Next j

Print " "

'输出对角线上的数

Print "对角线上的数:"

For i = 0 To 3

Print a(i, i);

Next i

Print ""

Print a(0, 3);

Print a(2, 1);

Print a(1, 2);

Print a(3, 0);End Sub

利用VB，编写一个34的二维数组输入任意整数并且求所有数组元素和及平均值方法为：

1、输入头文件和主函数。

2、初始化数组并定义变量类型。

3、输入i和j。

4、输出第i行第j列的元素。

5、编译、运行。

注意事项：

在Visual Basic 60中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。

Dim xy(10,10）For i = 1 To 10

For k = 1 To 10

xy(i, k) = i  k

Next

Next   '这一段赋值，具体要怎么赋值，自己看着办

For i = 1 To 10’这里开始就是输出咯，我用的是msgbox，你在界面上弄些文本框也可以。

For k = 1 To 10

MsgBox (xy(i, k))

Next

Next

Dim a(1 To 4, 1 To 4) As Integer

a(1, 1) = 25

a(1, 2) = 36

a(1, 3) = 78

a(1, 4) = 13

a(2, 1) = 12

a(2, 2) = 26

a(2, 3) = 88

a(2, 4) = 93

a(3, 1) = 75

a(3, 2) = 18

a(3, 3) = 22

a(3, 4) = 32

a(4, 1) = 56

a(4, 2) = 44

a(4, 3) = 36

a(4, 4) = 58

Print "原数组是："

For i = 1 To 4

  For k = 1 To 4

    Print a(i, k);

  Next k

  Print

Next i

For i = 1 To 4

  t = a(1, i)

  a(1, i) = a(3, i)

  a(3, i) = t

Next i

For i = 1 To 4

  t = a(i, 2)

  a(i, 2) = a(i, 4)

  a(i, 4) = t

Next i

Print "现在数组是："

For i = 1 To 4

  For k = 1 To 4

    Print a(i, k);

  Next k

  Print

Next i

前面是为数组赋值（因为你的数没规律，就一个一个赋值了）

后面的

For i = 1 To 4

  t = a(1, i)

  a(1, i) = a(3, i)

  a(3, i) = t

Next i

是使1和3行换

For i = 1 To 4

  t = a(i, 2)

  a(i, 2) = a(i, 4)

  a(i, 4) = t

Next i

是使2和4列换

具体你想他们分开不同时换，可以放在不同事件中

注意一下，由于你没说是先交换行还是先交换列，所以，上面说的两个部分的先后顺序的不同，会导致你结果的不同，应该是有两种，也许和你的答案有一定差异，不懂联系

望采纳，谢谢

以上就是关于用VB编写程序，把下面的数据输入到一个二维数组中：全部的内容，包括:用VB编写程序，把下面的数据输入到一个二维数组中：、利用VB，编写一个3*4的二维数组输入任意整数，求所有数组元素和及平均值、vb编程 编写一个输出二维数组的通用过程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！