UC知道【跪求代码】vb操作题，数组。
来源：百度知道 编辑：UC知道 时间：2024/06/10 13:08:42
单击窗体，随机产生15个1到10之间的整数，赋值给3行5列的数值中，并在窗体上打印出来，然后计算并输出数组的和和平均值。【跪求代码】
Private Sub Form_Click()
Dim myArray(1 To 3, 1 To 5) As Integer
Dim i As Integer, j As Integer, mySum As Integer
Randomize
mySum = 0
For i = 1 To 3
For j = 1 To 5
myArray(i, j) = 1 + Int(10 * Rnd)
mySum = mySum + myArray(i, j)
Print myArray(i, j)，
Next
Print
Next
Print "数组和=" & mySum
Print "数组平均值=" & mySum / 15
End Sub