2. 计算机
  3. 随机生成的10个两位数，求出它们的总和与平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。 说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数，

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

admin2010-03-30  37
问题 随机生成的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=【  】
            k=m*10+n
            sum=【  】
       Next i
       aver=【  】
       Print aver
   End Sub
选项
答案Int(10*Rnd),Sum+k,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。
转载请注明原文地址:https://kaotiyun.com/show/kbmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)