下列程序的功能是:单击窗体时将随机生成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 10a(i)=Int(100*Rnd)+1sum=sum+
主观题
下列程序的功能是:单击窗体时将随机生成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 10a(i)=Int(100*Rnd)+1sum=sum+