[填空题] 下列程序的功能是:单击窗体时将随机生成10个1~100之间的数,求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Di
19 查阅
[填空题] 下列程序的功能是:单击窗体时将随机生成10个1~100之间的数,求出它们的总和及平均数。请填空。
Option Base 1
Private Sub Form_Click()
Dim a(10)As Integer,i As Integer
Dim sum As Integer,aver As Single
【12】
For i=1 To 10
a(i)=Int(100*Rnd)+1
sum=sum+a(i)
Next i
【13】
Print sum,aver
End Sub
参考答案: