三、簡單應用題
42、(1)在窗體上建立一個二級菜單,該菜單含有"文件"和"編輯"(名稱分別為vbFile和vbEdit)兩個主菜單項,其中"文件"菜單包括"打開"、"保存"和"關閉"3個子菜單項(名稱分別為vbOpen、vbSave和vbClose)。在名稱為Form1的窗體上建立兩個主菜單,其標題分別為"文件"和"編輯",名稱分別為vbFile和vbEdit,在"文件"菜單下有3個子菜單項,標題分別為"打開"、"保存"和"關閉",名稱分別為vbOpen、vbSave和vbClose。要求程序運行后,如果選中"文件"下的某個菜單項,則通過MsgBox對話框顯示該菜單項的標題,如圖31-3所示。
圖31-3
注意:保存時必須存放在考生文件夾下,窗體文件名為sj3.frm,工程文件名為sj3.vbp。
(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm,該程序是不完整的,請在有"?"的地方填入正確內(nèi)容,然后刪除"?"及代碼前的所有注釋符(即'號),但不能修改其他部分。存盤時不得改變文件名和文件夾。
在窗體上建立一個名稱為Command1,標題為"計算"的命令按鈕,再建立一個名稱為Text1的文本框。運行界面如圖31-4所示。要求程序運行后,若單擊"計算"按鈕,將計算200~350之間所有素數(shù)的和,在文本框中顯示結果,同時把結果存入文件out.txt中。(在考生文件夾中有標準模塊mode.bas,其中的writedata過程可以把結果存入文件,而isprimenum函數(shù)可以判斷整數(shù)x是否為素數(shù),如果是素數(shù),則函數(shù)返回True,否則返回False,考生可以把該模塊文件添加到自己的工程中。)
圖31-4
四、綜合應用題
43、在考生文件夾下有工程文件sj5.vbp及窗體文件sj5.frm,該程序是不完整的,請在有"?"的地方填入正確內(nèi)容,然后刪除"?"及代碼前的所有注釋符(即'號),但不能修改其他部分。存盤時不得改變文件名和文件夾。
窗體Form1中有一命令按鈕與一個水平滾動條。命令按鈕的名稱為Command1,標題為"移動";水平滾動條的名稱為HScroll1。單擊"移動"按鈕后,在彈出的對話框中輸入數(shù)值。輸入一個整數(shù)后,單擊"移動",滾動條中的滾動塊移動到指定的刻度,如果超過了滾動條的最大刻度,則不移動,并且在窗體上顯示"輸入的數(shù)值太大",如果超過了滾動條的最小刻度,則不移動,并且在窗體上顯示"輸入的數(shù)值太小"。如圖8-5所示。
圖8-5
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |