Question

利用VB，编写一个3*4的二维数组输入任意整数，求所有数组元素和及平均值

i,j分别代表什么 ，带解释

Answer 1

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

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

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

3、输入i和j。

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

5、编译、运行。

注意事项：

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

Answer 2

 

Option Base 1
Private Sub Command1_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer '定义一个二维数组，i循环代表行下标，j循环代表列下标
Dim s As Long, ave As Single                       's存放数组元素的和值,ave为平均值
s = 0
For i = 1 To 3
   For j = 1 To 4
      a(i, j) = Int(Rnd * 101)                     '给这个二维数组赋值为100以内的随机整数
      Print a(i, j);
      s = s + a(i, j)                              '求所有元素的合值
   Next j
   Print
Next i
ave = s / 12                                       '求平均值
Print "二维数组的元素的和=" & s
Print "二维数组的元素平均值=" & ave
End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Integer, j As Integer, A(1 To 3, 1 To 4) As Integer, X As Integer
'i、j、X 是变量，A(1 To 3, 1 To 4)是二维数组变量
For i = 1 To 3   'i是循环变量，这里循环3次
   For j = 1 To 4   'j是循环变量，这里循环4次
      Randomize    '刷新随机数种子
      A(i, j) = Int(Rnd * 90 + 10)    '产生随机数，存储在A数组中
      X = X + A(i, j)    '计算数组的和
      Print A(i, j) & "   ";    '打印数组的值
   Next j   'j循环结束
Print    '打印换行
Next i    'i循环结束
Print   '设置一个空行
Print "3*4数组的和 = " & X    '打印数组的和
Print "平均值 = " & Round((X / ((i - 1) * (j - 1))), 2) '打印平均值，取小数后二位
End Sub

Answer 4

Private Sub Command1_Click()
  Print "请输入一个3*4的二维数组"
  Dim a(3, 4)
  For i = 1 To 3
    For j = 1 To 4
      x = Val(InputBox("请输入a(" & i & "," & j & "):"))
      a(i, j) = x
      s = s + a(i, j)
      Print a(i, j),
    Next j
    Print
  Next i
  Print
  Print "元素总和="; s
  Print "平均值="; s / 12
End Sub