注意：下面出現的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，相應的窗體文件為sjt3.frm。在窗體上有一個命令按鈕，其名稱為Command1，標題為“添加”;有一個文本框，名稱為Text1，初始內容為空白;有一個列表框，名稱為List1。

　　程序運行后，在文本框中輸入一個英文句子(由多個單詞組成，各單詞之間用一個空格分開)，然后單擊命令按鈕，程序將把該英文句子分解為單詞，并把每個單詞作為一個項目添加到列表框中，如圖所示。該程序不完整，請把它補充完整。

　　要求：

　　去掉程序中的注釋符，把程序中的 ?改為正確的內容， 使其能正確運行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

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

　　1) 將語句

　　'S1 = ?

　　改為

　　S1 = Text1.Text

　　2) 將語句

　　'Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1)

　　改為

　　Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)

　　3) 將語句

　　'List1.AddItem ?

　　改為

　　List1.AddItem S2

　　4) 將語句

　　'S2 = ?

　　改為

　　S2 = ""

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

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

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，其中的窗體中有一個組合框和一個命令按鈕(如圖所示)。程序的功能是在運行時，如果在組合框中輸入一個項目并單擊命令按鈕，則搜索組合框中的項目，如果沒有此項，則把此項添加到列表中;如果有此項，則彈出提示：“已有此項”，然后清除輸入的內容。

　　要求：

　　去掉程序中的注釋符，把程序中的 ?改為正確的內容，使其實現上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來的文件名存盤。

　　解題思路：

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

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

　　1) 將語句

　　'For i = 0 To ?

　　改為

　　For i = 0 To Cb1.ListCount - 1

　　2) 將語句

　　'If Cb1.List(i) = ? Then

　　改為

　　If Cb1.List(i) = Cb1.Text Then

　　3) 將語句

　　'Cb1.? Cb1.Text

　　改為

　　Cb1.AddItem Cb1.Text

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

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

　　相關推薦：

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

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

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