A-A+

下列程序的功能是:单击窗体时将随机生成10个1~100之间的数 求出它们的总和及平均数。请填

2022-08-12 20:23:21 问答库 阅读 197 次

问题详情

下列程序的功能是:单击窗体时将随机生成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 【 】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【 】 Print sum,aver End Sub


请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:Randomize aver=aver/10
本题首先定义了一个具有10个元素的数组a,然后通过For循环给该数组的每个元素赋一个随机数,并把该数加到变量Sum中。For循环执行后,用总和除去元素个数就得到平均值。要产生随机数,可先使用Randomize进行随机数初始化,所以[12]处应填“Randomize”。循环过后应求平均值,故[13]处应填“aver=aver/10”。

考点:平均数,窗体