2. 计算机
  3. 下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integ

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integ

admin2009-02-13  30
问题 下列程序的功能是：单击窗体时将随机生成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”。
转载请注明原文地址:https://kaotiyun.com/show/wB1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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