vb等級(jí)考試題目與評(píng)析52(編輯修改稿)
2024-10-10 16:52 本頁面
【文章內(nèi)容簡(jiǎn)介】 *************************************************** （ 2）在考生文件夾下有一個(gè)工程文件 ，相應(yīng)的窗體文件為 ， 在窗體上有一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即 可計(jì)算出 0～ 200范圍內(nèi)能被 3整除的所有整數(shù)的和，并在文本框中顯示出 來。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被 3整除的整 數(shù)的和的操作在通用過程 Fun中實(shí)現(xiàn)，請(qǐng)編寫該過程的代碼。 要求： 請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在 Function Fun()和 End Function之間 填入你編寫的若 干語句。最后把修改后的文件按原文件名存盤。 第 1小題： 本題的考查的是數(shù)組和隨機(jī)函數(shù)的用法。打開工程文件 ，在窗體上有一個(gè)命令按鈕 Command1， Caption屬性為“輸出平均值”，雙擊命令按鈕在代碼窗口中補(bǔ)充如下代碼： Private Sub Command1_Click() Dim arrN(20) As Integer Dim Aver As Single Dim Sum As Integer, i Randomize For i = 1 To 20 arrN(i) = Int(Rnd * 1000) Next i Sum = 0 For i = 1 To 20 Sum = Sum + arrN(i) Next i Aver = Sum / 20 Print Aver End Sub 按要求保存文件即完成本題。 第 2小題： 打開一個(gè)工程文件 ，在窗體上有一個(gè)命令按鈕和一個(gè)文本框，要求計(jì)算出 0～ 1000范圍內(nèi)不能被 7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示，在 Function Fun()和 End Function之間補(bǔ)充代碼如下： Function Fun() Dim sum As Integer, i As Integer For i = 0 To 200 If i Mod 3 = 0 Then Print i sum = sum + i End If Next i = sum End Function 按要求保存文件即完成本題。 3. 綜合應(yīng)用（ 1小題，計(jì) 30分）
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1