[填空题] 随机生成的10个两位数，求出它们的总和和平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。 说明：在窗体上有一个

[填空题] 随机生成的10个两位数，求出它们的总和和平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。

说明：在窗体上有一个Command1按钮，单击它将计算10个随机数的和以及平均数，并在窗体上输出平均数。

Private Sub Command1_Click()

Dim M As Integer,N As Integer,Sum As Integer

Dim I As Integer, K As Integer，Ave As Single

Sum=0

Randomize

For I=1 To 10

M=Int(9*Rnd)+1

N= 【10】

K=M*10+N

Sum= 【11】

Next I

Aver= 【12】

Print Aver

End Sub

[10]Int(10，Rnd) [11]Sum+K [12]Sum/10

根据此题产生两位随机数的规则可知，在[10]处应填随机产生的个位数，为“Int(10 * Rnd)”；为求和，产生一个两位数后，应把它加到表示和的变量Sum中去，故[11]处应填“Sum+K”；通过一个循环把产生的10个两位数和放到变量Sum中，数组元素的平均值就是Sum/10，故[12]处应填“Sum/10”。