vb等級(jí)考試題目與評(píng)析91-資料下載頁
2024-09-04 16:49本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。在名稱為Form1的窗體上建立一個(gè)名稱為Cmd1，寬度為1500，高度為500，標(biāo)題為"顯示"的命令按鈕，編寫適當(dāng)?shù)氖录^程。為500，Caption為“顯示”，雙擊這個(gè)按鈕在彈出的代碼窗口中寫入“"祝你考試成功"”，然后以文。課"”，然后以文件名。"新建"、"打開"和"存盤"。（在考生文件夾中有標(biāo)準(zhǔn)模塊,其中的putdata過程。代碼窗口中加入相應(yīng)的代碼即可，本題所加代碼從嚴(yán)格意義上講只能使用菜單的Caption屬性。別為Text1、Text2和Text3，其中Text1、Text2可多行顯示。數(shù)顯示在Text3文本框內(nèi)。3）單擊"退出"按鈕時(shí)，結(jié)束程序運(yùn)行。改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。本題主要考查Rnd函數(shù)的使用和數(shù)值的統(tǒng)計(jì)。
【正文】 本題主要考查 Rnd函數(shù)的使用和數(shù)值的統(tǒng)計(jì)。 為了生成某個(gè)范圍內(nèi)的隨機(jī)數(shù)，可以使用一下公式： Int((upperbound lowerbound+1) * Rnd + lowerbound) 這里， upperbound是隨機(jī)整數(shù)范圍的上限，而 lowerbound則是隨機(jī)整數(shù)范 圍的 下限。 修改后的主要代碼如下： 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 按要求保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1