[填空題] 在窗體中添加一命令按鈕，(其Name屬性為Commmld1)，然后編寫代碼。程序的功能是產(chǎn)生100個小于1000(不含1000)的隨機(jī)正整數(shù)，并統(tǒng)計其中5的倍數(shù)所占比例。

請在空白處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。

Private Sub Command1 Click()

Dim a(100)

For j=1 To 100

a(j)=Int(______)

If a(j)______5=0 Then______

Print a (j)；

Next i

Print

Print k/100

End Sub

(999*Rnd)+1 Mod k=k+1

本題綜合考查Visual Basic內(nèi)部函數(shù)、For循環(huán)等知識點。根據(jù)題意，F(xiàn)or j循環(huán)用來為數(shù)組a(100)賦值，所賦之值為Rnd隨機(jī)產(chǎn)生。由于需要產(chǎn)生100個小于1000的正整數(shù)，故第一處空白填：(999(Rnd)+1。注意，該處不能寫成： (1000(Rnd)，因為它有可能產(chǎn)生一個小于1的小數(shù)，此時會被Int函數(shù)轉(zhuǎn)換為0，如此就違反了題目中關(guān)于正整數(shù)的要求。 If語句判斷數(shù)組中5的倍數(shù)，故第二處空白填： Mod。表示取模。 由于要計算出5的倍數(shù)所占的比例，故每判斷出一個5的倍數(shù)，便令一個變量加1，觀察Print k/100可以得出該變量為k。故第三處空白填：k=k+1。