[填空題] 在窗體中添加一命令按鈕，(其Name屬性為Commmld1)，然后編寫代碼。程序的功能是產生100個小于1000(不含1000)的隨機正整數，并統(tǒng)計其中5的倍數所占比例。 請在空白處填入適當的內容，將程序補充完整。 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

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