vb等級考試題目與評析91(參考版)
2024-09-08 16:49本頁面
【正文】 修改后的主要代碼如下： Private Sub Cmd1_Click() = : = : = For i = 1 To 20 a(i) = Fix(Rnd * 9 + 1) b(i) = 1 = + Str(a(i)) + Space(2) Next i End Sub Private Sub Cmd2_Click() fmax = 0 For i = 1 To 20 For j = 1 To i 1 If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j If b(i) fmax Then fmax = b(i) Next i For i = 1 To 20 If b(i) = fmax Then = + Str(a(i)) + Space(2) End If Next i = fmax End Sub Private Sub Cmd3_Click() End End Sub 按要求保存文件即完成本題。 本題主要考查 Rnd函數(shù)的使用和數(shù)值的統(tǒng)計(jì)。 請將程序中的注釋符去掉，把 ？改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。 2）單擊 統(tǒng)計(jì) 按鈕時(shí)，統(tǒng)計(jì)出數(shù)組 a中出現(xiàn)頻率最高的數(shù)值及其出現(xiàn)的次 數(shù)，并將出現(xiàn)頻率最高的數(shù)值顯示在 Text2文本框內(nèi)、出現(xiàn)頻率最高的次
公司管理相關(guān)推薦
鄂ICP備17016276號-1