2014年計(jì)算機(jī)二級(jí)考試VB專家預(yù)測(cè)試卷及答案2

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

　　本題重點(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

　　Dimj 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ù)組對(duì)角線的右上部分

　　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=trap ’在Text2中顯示數(shù)組右上部分

　　End Sub

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

　　相關(guān)推薦：

　　2014年計(jì)算機(jī)等級(jí)考試時(shí)間調(diào)整通知

　　2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)預(yù)測(cè)題及答案匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通