输入一个4X5的二维数组，输出数组元素的平均值，并按行输出该数组元素。用VB语言如题 谢谢了

Question

如题所述

Answer 1

'调整一下form大小，不然有些打印是看不见的 Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, arr(1 To 4, 1 To 5) As Long, av As Long For i = 1 To 4 For j = 1 To 5 Randomize arr(i, j) = Int(Rnd * 1000 + 1) '随机输入1-1000整数 Next Next For i = 1 To 4 Print "第" & i & "行:", For j = 1 To 5 Print arr(i, j), av = av + arr(i, j) Next Print Next Print "平均值：" & av / 20 End Sub