[填空題] 隨機(jī)生成的10個兩位數(shù)，求出它們的總和與平均數(shù)。產(chǎn)生兩位數(shù)采用的算法如下：分別產(chǎn)生個位數(shù)(0～9)和十位數(shù)(1～9)，然后十位數(shù)乘10再加上個位數(shù)即得到一個兩位數(shù)。

說明：在窗體上有一個Commandl按鈕，單擊它將計(jì)算10個隨機(jī)數(shù)的和與平均數(shù)，

并在窗體上輸出平均數(shù)。

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

本題涉及到隨機(jī)函數(shù)方面的知識點(diǎn)。隨機(jī)函數(shù)的格式為： Rnd[(number #)] 其含義是產(chǎn)生一個小于l，大于等于。的隨機(jī)雙精度數(shù)。題中m表示一個1～9之間的十位數(shù)，n表示一個0～9之間的個位數(shù)。故 [9]處應(yīng)填I(lǐng)nt(10 * Rnd)，但不是Int(9* Rnd)(注意：Rnd函數(shù)和Int函數(shù)的意義)。循環(huán)體中對數(shù)的求和運(yùn)算，需每次循環(huán)都加數(shù)k，故[10]處填Sum+k。[11]處實(shí)現(xiàn)的是求平均值的運(yùn)算，故應(yīng)為10個數(shù)的總和與數(shù)字10的比值即Sum/10。