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