三、簡單應(yīng)用題

　　42、(1)在窗體上建立一個(gè)二級(jí)菜單，該菜單含有"文件"和"編輯"(名稱分別為vbFile和vbEdit)兩個(gè)主菜單項(xiàng)，其中"文件"菜單包括"打開"、"保存"和"關(guān)閉"3個(gè)子菜單項(xiàng)(名稱分別為vbOpen、vbSave和vbClose)。在名稱為Form1的窗體上建立兩個(gè)主菜單，其標(biāo)題分別為"文件"和"編輯"，名稱分別為vbFile和vbEdit，在"文件"菜單下有3個(gè)子菜單項(xiàng)，標(biāo)題分別為"打開"、"保存"和"關(guān)閉"，名稱分別為vbOpen、vbSave和vbClose。要求程序運(yùn)行后，如果選中"文件"下的某個(gè)菜單項(xiàng)，則通過MsgBox對(duì)話框顯示該菜單項(xiàng)的標(biāo)題，如圖31-3所示。

　　圖31-3

　　注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3.frm，工程文件名為sj3.vbp。

　　(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。

　　在窗體上建立一個(gè)名稱為Command1，標(biāo)題為"計(jì)算"的命令按鈕，再建立一個(gè)名稱為Text1的文本框。運(yùn)行界面如圖31-4所示。要求程序運(yùn)行后，若單擊"計(jì)算"按鈕，將計(jì)算200~350之間所有素?cái)?shù)的和，在文本框中顯示結(jié)果，同時(shí)把結(jié)果存入文件out.txt中。(在考生文件夾中有標(biāo)準(zhǔn)模塊mode.bas,其中的writedata過程可以把結(jié)果存入文件，而isprimenum函數(shù)可以判斷整數(shù)x是否為素?cái)?shù)，如果是素?cái)?shù)，則函數(shù)返回True，否則返回False，考生可以把該模塊文件添加到自己的工程中。)

　　圖31-4

　　四、綜合應(yīng)用題

　　43、在考生文件夾下有工程文件sj5.vbp及窗體文件sj5.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。

　　窗體Form1中有一命令按鈕與一個(gè)水平滾動(dòng)條。命令按鈕的名稱為Command1，標(biāo)題為"移動(dòng)";水平滾動(dòng)條的名稱為HScroll1。單擊"移動(dòng)"按鈕后，在彈出的對(duì)話框中輸入數(shù)值。輸入一個(gè)整數(shù)后，單擊"移動(dòng)"，滾動(dòng)條中的滾動(dòng)塊移動(dòng)到指定的刻度，如果超過了滾動(dòng)條的最大刻度，則不移動(dòng)，并且在窗體上顯示"輸入的數(shù)值太大"，如果超過了滾動(dòng)條的最小刻度，則不移動(dòng)，并且在窗體上顯示"輸入的數(shù)值太小"。如圖8-5所示。

　　圖8-5