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

12 查阅

[填空题] 随机生成的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。

计算机考试