三、綜合應用題

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

　　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

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

　　圖26-5

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

　　參考解析：

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

　　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 '定義二維數組

　　str = ""

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

　　For i = 1 To 5 '第一層For循環代表數組的行讀取

　　For j = 1 To 5 '第二層For循環代表數組的列讀取

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

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

　　Next j

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

　　Next i

　　Close #1 '關閉文件

　　tmp = ""

　　For i = 1 To 5 'For循環讀取數組對角線的右上部分

　　For j = 1 To 5

　　If j < i Then '當該數是矩陣的左下部分時

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

　　Else '當該數是矩陣的右上部分時

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

　　End If

　　Next j

　　tmp = tmp + vbCrLf

　　Next i

　　Text1.Text = str '在Text1中顯示數組

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

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年9月計算機等級考試考場拿高分技巧

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題