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

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

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

说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数，

并在窗体上输出平均数。

Private Sub Commandl Click()

Dim m As Integer, n As Integer, sum As Integer

Dim i As Integer, k As Integer, aver As Single

sum=0

Randomize

For i＝1 To 10

m＝Int(9*RnD) +1

n= 【9】

k=m*10+n

sum= 【10】

Next i

aver= 【11】

Print aver

End Sub

正确答案：

[9]Int(10*Rnd)[10]Sum+k[11]Sum/10

参考解析：

本题涉及到随机函数方面的知识点。随机函数的格式为： Rnd[(number #)] 其含义是产生一个小于l，大于等于。的随机双精度数。题中m表示一个1～9之间的十位数，n表示一个0～9之间的个位数。故 [9]处应填Int(10 * Rnd)，但不是Int(9* Rnd)(注意：Rnd函数和Int函数的意义)。循环体中对数的求和运算，需每次循环都加数k，故[10]处填Sum+k。[11]处实现的是求平均值的运算，故应为10个数的总和与数字10的比值即Sum/10。