vb等級(jí)考試題目與評(píng)析52-文庫(kù)吧資料
2024-09-12 16:52本頁(yè)面
【正文】 。 本題考查的是關(guān)于文件的操作和矩陣的應(yīng)用。 要求： 去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容（可以是多行）， 使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。 3. 綜合應(yīng)用（ 1小題，計(jì) 30分） 注意：下面出現(xiàn)的“考生文件夾”均為 C:\WEXAM\00000000\ 在考生文件夾下有一個(gè)工程文件 ，相應(yīng)的窗體文件為 ，此 外還有一個(gè)名為 ，其內(nèi)容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序運(yùn)行后單擊窗體，將把文件 Mat中， 在窗體上按 5行、 5列的矩陣形式顯示出來(lái)，然后交換矩陣第二列和第四列的 數(shù)據(jù)，并在窗體上輸出交換后的矩陣，如圖所示。打開(kāi)工程文件 ，在窗體上有一個(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 按要求保存文件即完成本題。最后把修改后的文件按原文件名存盤(pán)。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被 3整除的整 數(shù)的和的操作在通用過(guò)程 Fun中實(shí)現(xiàn)，請(qǐng)編寫(xiě)該過(guò)程的代碼。 **********************************************************************
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1