2. 簡單應(yīng)用(2小題，每題20分，計40分)

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

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，請在名稱為Form1的窗體上畫一個名稱為 Text1的文本框和一個名稱為 C1，標(biāo)題為“轉(zhuǎn)換”的命令按鈕，如圖所示。在程序運(yùn)行時，單擊“轉(zhuǎn)換” 按鈕，可以把 Text1中的大寫字母轉(zhuǎn)換為小寫，把小寫字母轉(zhuǎn)換為大寫。 窗體文件中已經(jīng)給出了“轉(zhuǎn)換”按鈕的Click事件過程，但不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，需在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。畫一個命令按鈕控件，通過其屬性窗口將名稱設(shè)為C1，標(biāo)題(Caption屬性)設(shè)為“轉(zhuǎn)換”。

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub C1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'n% = Asc("a") - Asc( ? )

　　改為

　　n% = Asc("a") - Asc("A")

　　2) 將語句

　　'b$ = String(1, Asc(b$) ? )

　　改為

　　b$ = String(1, Asc(b$) + 32)

　　3) 將語句

　　'Text1.Text = ?

　　改為

　　Text1.Text = a

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

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運(yùn)行。

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，其功能是：

　　1)單擊“讀數(shù)據(jù)”命令按鈕，把考生文件夾下in4.dat文件中已按升序方式排列的60個數(shù)讀入數(shù)組A，并顯示在Text1中;

　　2)單擊“輸入”按鈕，彈出一個輸入對話框，接收用戶輸入的任意一個整數(shù);

　　3)單擊“插入”按鈕，將輸入的數(shù)插入A數(shù)組中合適的位置，使其仍保持A數(shù)組的升序排列，最后將A數(shù)組的內(nèi)容重新顯示在Text1中。

　　在窗體文件中已經(jīng)給出了全部控件(如圖所示)和程序，但程序不完整，要求去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。 本程序只考慮插入一個整數(shù)的情況。

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體程序不完整，在“插入”按鈕的Private Sub Command3_Click()事件過程中，有五處地方需要修改。

　　1) 將語句

　　'If num < a(i) Then ?

　　改為

　　If num < a(i) Then Exit For

　　2) 將語句

　　'For j = 60 To i ?

　　改為

　　For j = 60 To i Step -1

　　3) 將語句

　　'a(j + 1) = ?

　　改為

　　a(j + 1) = a(j)

　　4) 將語句

　　'? = num

　　改為

　　a(i) = num

　　5) 將語句

　　'For k = 1 To ?

　　改為

　　For k = 1 To 61

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

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運(yùn)行。

　　相關(guān)推薦：

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

　　2012年計算機(jī)等級考試二級VB重點(diǎn)知識匯總

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