三、綜合應(yīng)用題

　　5在考生文件夾下有一個(gè)工程文件sj5.vbp，相應(yīng)的窗體文件為sj5.frm，此外在考生文件夾下還有一個(gè)名為in5.txt的文本文件，其內(nèi)容如下：

　　10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31， 32，33，34，35

　　程序運(yùn)行后，雙擊窗體，將把文件in5.txt中的數(shù)據(jù)輸入到二維數(shù)組Arr中，在窗體上按5行×5列的矩陣形式顯示出來，并在其下顯示該矩陣左上-右下對角線的右上部分。在窗體的代碼窗口中，已給出了部分程序，這個(gè)程序不完整，請把它補(bǔ)充完整，并使之能正確運(yùn)行。程序運(yùn)行效果如圖26-5所示。

　　圖26-5

　　要求：去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　參考解析：

　　本題重點(diǎn)考查二重For循環(huán)和二維數(shù)組的使用。根據(jù)題意，將兩個(gè)文本框控件和兩個(gè)標(biāo)簽控件添加到窗體中，文本框的名稱分別為Text1和Text2、Text屬性都為空，Text1的MultiLine屬性為True、ScrollBar屬性為2、標(biāo)簽的Caption屬性分別為"矩陣如下："和"矩陣的右上半部："。設(shè)置完成后，雙擊Form進(jìn)入代碼編寫窗口，在其DblClick事件中補(bǔ)充如下代碼：

　　Private Sub Form_DblClick()

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　Dim j As Integer

　　Dim Arr(5, 5) As Integer '定義二維數(shù)組

　　str = ""

　　Open "App.Path&\in5.txt" For Input As #1′打開文件準(zhǔn)備讀取

　　For i = 1 To 5 '第一層For循環(huán)代表數(shù)組的行讀取

　　For j = 1 To 5 '第二層For循環(huán)代表數(shù)組的列讀取

　　Input #1, Arr(i, j) '將讀取到的數(shù)放入數(shù)組中

　　str = str + CStr(Arr(i, j)) + " " '將數(shù)組寫入字符串中

　　Next j

　　str = str + vbCrLf '每讀完一行則添加換行字符串

　　Next i

　　Close #1 '關(guān)閉文件

　　tmp = ""

　　For i = 1 To 5 'For循環(huán)讀取數(shù)組對角線的右上部分

　　For j = 1 To 5

　　If j < i Then '當(dāng)該數(shù)是矩陣的左下部分時(shí)

　　tmp = tmp + " " + " " '加入空格

　　Else '當(dāng)該數(shù)是矩陣的右上部分時(shí)

　　tmp = tmp + CStr(Arr(i, j)) + " " '將讀取到的數(shù)據(jù)寫入字符串

　　End If

　　Next j

　　tmp = tmp + vbCrLf

　　Next i

　　Text1.Text = str '在Text1中顯示數(shù)組

　　Text2.Text = tmp '在text2中顯示數(shù)組右上部分

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2015年9月計(jì)算機(jī)等級考試考場拿高分技巧

　　2015年計(jì)算機(jī)二級考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級考試《VB》考前預(yù)測試卷匯總

　　2015年9月計(jì)算機(jī)等級考試各科目考前必做試題