关于 vb 的问题求平均值

Question

Option Base 1

Private Sub Form_click()

Dim a(12) As Integer, b(3, 4) As Integer
Print "shu ru cheng ji"
For i = 1 To 12
a(i) = InputBox("shu ru a (" & i & ")")
Print a(i);
Next i
Print
Print "shu chu cheng ji"
For i = 1 To 3
For j = 1 To 4
b(i, j) = a(4 * (i - 1) + j)
Print b(i, j);
Next j
Print
Next i

如何求三行4列的平均值

在线等
求每一行每一列的平均值

Answer 1

在Private Sub Form_click() 事件中加入下列语句：

dim Pj as single
For i = 1 To 3
For j = 1 To 4
pj=pj+b(i, j)
Next j
Next i
Print pj/12

就能打出三行4列所有元素的平均值。

Answer 2

是不是就是求这12个数的平均值呢，若设其名称为ave
for i = 1 to 12
ave = ave + a(i)
next i
print ave