第 1 頁:基本操作 |
第 2 頁:簡單運用 |
第 3 頁:綜合應(yīng)用 |
2. 簡單應(yīng)用(2小題,每題20分,計40分)
注意:下面出現(xiàn)的“考生文件夾”均為%USER%
(1)在考生文件夾下有一個工程文件sjt3.vbp,請在窗體上建立一個菜單,主菜單項為“項目”(名稱為Item),它有兩個子菜單項,其名稱分別為Add和Delete,標題分別為“添加項目”和“刪除項目”,然后畫一個列表框(名稱為List1)和一個文本框(名稱為Text1),如圖 1所示。編寫適當?shù)氖录^程。程序運行后,如果執(zhí)行“添加項目”命令,則從鍵盤上輸入要添加到列表框中的項目(內(nèi)容任意,不少于三個);如果執(zhí)行“刪除項目”命令,則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的運行情況如圖 2所示。
在考生文件夾下的工程文件sjt3.vbp(相應(yīng)的窗體文件名為sjt3.frm),可以實現(xiàn)上述功能。但這個程序不完整,請把它補充完整。
要求:
去掉程序中的注釋符,把程序中的?改為適當?shù)膬?nèi)容,使其正確運行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
解題思路:
啟動Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt3.vbp,相應(yīng)的窗體文件名為sjt3.frm。
由于所提供的窗體控件不完整,通過菜單編輯器建立一個主菜單,在菜單編輯器的標題處輸入“項目”(題目沒有要求),名稱處輸入Item。在該菜單下有二個子菜單,在菜單編輯器的標題處分別輸入“添加項目”、“刪除項目”,名稱處分別輸入Add、Delete。畫一個列表框控件,通過其屬性窗口將名稱設(shè)為List1。畫一個文本框控件,通過其屬性窗口將名稱設(shè)為Text1。
由于所提供的窗體程序不完整,在“添加項目”命令的Private Sub Add_Click()事件過程中,有一處地方需要修改。
1) 將語句
'List1.AddItem ?
改為
List1.AddItem Text1.Text
在“刪除項目”命令的Private Sub Delete_Click()事件過程中,有三處地方需要修改。
1) 將語句
'For i = 0 To ?
改為
For i = 0 To List1.ListCount - 1
2) 將語句
'If List1.List(i) = ? Then
改為
If List1.List(i) = Text1.Text Then
3) 將語句
'List1.RemoveItem ?
改為
List1.RemoveItem i
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt3.vbp文件并運行。
(2)在考生文件夾下有一個工程文件sjt4.vbp(相應(yīng)的窗體文件名為sjt4.frm),其功能是通過調(diào)用過程Sort將數(shù)組按升序排序。程序運行后,在四個文本框中各輸入一個整數(shù)(如圖 1所示),然后單擊命令按鈕,即可使數(shù)組按升序排序,并在文本框中顯示出來(如圖 2所示)。這個程序不完整,請把它補充完整,并能正確運行。
要求:
去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容,使其實現(xiàn)上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
解題思路:
啟動Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt4.vbp,相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體程序不完整,在函數(shù)Private Sub Sort(a() As Integer)中,有五處地方需要修改。
1) 將語句
'Start = ?(a)
改為
Start = LBound(a)
2) 將語句
'Finish = ?(a)
改為
Finish = UBound(a)
3) 將語句
'For i = ? To 2 Step -1
改為
For i = UBound(a) To 2 Step -1
4) 將語句
'For j = 1 To ?
改為
For j = 1 To i - 1
5) 將語句
'If a(j) ? a(j + 1) Then
改為
If a(j) > a(j + 1) Then
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt4.vbp文件并運行。
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |