Private Sub Command1_Click() Dim arr(10), i, s For i = 1 To 10 arr(i) = Val(InputBox("")) s = s + arr(i) Print arr(i); Next Print Print "平均数是："; s / 10End Sub
