2012年計算機二級VB上機試題及解題思路第34套

　　3. 綜合應用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，在窗體上給出了所有控件和不完整的程序，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　本程序的功能是：如果單擊“取數(shù)”按鈕，則把考生目錄下的 in5.txt文件中的15個姓名讀到數(shù)組a中，并在窗體上顯示這些姓名;當在Text1中輸入一個姓名，或一個姓氏后，如果單擊“查找”按鈕，則進行查找，若找到，就把所有與Text1中相同的姓名或所有具有Text1中姓氏的姓名顯示在Text2中;(如圖所示)若未找到，則在Text2中顯示“未找到!”;若Text1中沒有查找內(nèi)容，則在Text2中顯示“未輸入查找內(nèi)容!”。

　　*注意：

　　考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，在窗體的Private Sub C1_Click事件過程中，有一處地方需要修改。

　　1) 將語句

　　'Close ?

　　改為

　　Close #1

　　另外在窗體的Private Sub C2_Click事件過程中，有四處地方需要修改。

　　2) 將語句

　　'n = Len( ? )

　　改為

　　n = Len(Text1.Text)

　　3) 將語句

　　'If Left(a(k), ? ) = Text1.Text Then

　　改為

　　If Left(a(k), n) = Text1.Text Then

　　4) 將語句

　　'c = c + " " + ?

　　改為

　　c = c + " " + a(k)

　　5) 將語句

　　'Text2.Text = ?

　　改為

　　Text2.Text = c

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總