题目内容:
随机生成的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
参考答案:
答案解析: