填空题

下列程序的功能是：单击窗体时将随机生成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

【参考答案】

[12]Randomize [13]aver=aver／10
<上一题 目录 下一题>
热门 试题

填空题
下列程序的运行结果是 【6】 。 X=96 Y=10 X=X Mod Y^2 X=X 4 Print X
填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n=1 f=1 s=0 For i=1 To n f=f 【8】 s=s+f Next Print s End Sub 该事件过程的功能是计算的值。请填空。
相关试题