1、全國計算機等級考試二級VB模擬試卷機試一1根本操作2小題，每題15分，共計30分注意：下面出現(xiàn)的考生文件夾均為c:wexam25160001。請根據(jù)以下各小題的要求設計Visual Basic應用程序包括界面和代碼。1在Form1的窗體上畫一個名稱為P1的圖片框，然后建立一個主菜單，標題為操作，名稱為Op，該菜單有兩個子菜單，其標題分別為顯示和去除，名稱分別為Dis和Clea。編寫適當?shù)氖录^程，程序運行后，如果單擊操作菜單中的顯示命令，那么在圖片框中顯示計算機考試；如果單擊去除命令，那么去除圖片框中的信息。程序的運行情況如圖15-1和圖15-2所示。注意：存盤時必須存放在考生文件夾下，工程文

2、件名為，窗體文件名為。程序中不得使用任何變量。 圖 15-1 圖 15-22在Form1的窗體上畫一個列表框，名稱為L1，通過屬性窗口向列表框中添加4個工程，分別為早上好、上午好、中午好和下午好。編寫適當?shù)氖录^程，過程中只能使用一條命令。程序運行后，如果雙擊列表框中的某一項，那么把該項再添加到列表框中。程序的運行情況如圖15-3所示。注意：存盤時必須存放在考生文件夾下，工程文件名為，窗體文件名為。圖 15-32簡單應用2小題，每題20分，計40分注意：下面出現(xiàn)的考生文件夾均為c:wexam25160001。1在考生文件夾下有工程文件及窗體文件，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，

3、然后刪除？及所有注釋符即 號，但不能修改其他局部。存盤時不得改變文件名和文件夾。此題描述如下：在名稱為Form1的窗體上有三個Label控件和兩個命令按鈕，Label控件均為提示信息。命令按鈕CMDstart和CMDexit，程序運行后，單擊開始按鈕，程序自動利用循環(huán)計算1+1/2+1/3+.+1/10的結(jié)果，并把結(jié)果寫入到考生文件夾下文件中。執(zhí)行完畢開始按鈕變成完成，且無效變灰。程序運行界面如圖15-4所示。圖 15-4Private Sub CmdEXIT_Click() EndEnd SubPrivate Sub Cmdstart_click() Dim E As Single, J A

4、s Integer Dim T As Single Open App.Path & ? For ? As ? E = ? T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Next J Write #1, ? Close #1 CMDSTART.Caption =? CMDSTART.Enabled = ?End Sub答案：Private Sub CMDEXIT_Click() EndEnd SubPrivate Sub CMDstart_click() Dim E As Single, J As Integer Dim T As Single

5、 Open App.Path & & result.txt For Output As #1 E = 1 T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Debug.Print T, E Next J Write #1, E Print E Close #1 CMDSTART.Caption = 完成 CMDSTART.Enabled = FalseEnd Sub2在考生文件夾下有工程文件及窗體文件，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符即號，但不能修改其他局部。存盤時不得改變文件名和文件夾。此題描述如下：程序啟

6、動時文本框的默認文字為請輸入您要設置的文本，默認的字體為仿宋_GB2312，字號為五號。程序運行過程中可以修改文本框的內(nèi)容在單擊初始化時恢復啟動時的狀態(tài)；在單擊去除后，文本框的內(nèi)容為空，并恢復默認的字體，字型號。選擇相應的字體和字型號可以設置文本框內(nèi)文字的字體和屬性。程序運行界面如圖15-5所示。圖 15-5Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 請輸入您要設置的文本End SubPrivate Sub Command2_Click()

7、Option1.Value = True Option6.Value = True Text1.Text = ?End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Option1.Value = True = True Text1.Text = 請輸入您要設置的文本End SubPrivate Sub Option1_Click() Text1.FontName = 仿宋_GB2312End SubPrivate Sub Option2_Click() Text1.FontName = ?End SubPr

8、ivate Sub Option3_Click() Text1.FontName = 隸書End SubPrivate Sub Option4_Click() Text1.FontName = 黑體End SubPrivate Sub Option5_Click() Text1.FontSize = 5.5End SubPrivate Sub Option6_Click() Text1.FontSize = ?End SubPrivate Sub Option7_Click() Text1.FontSize = 16End SubPrivate Sub Option8_Click() Text

9、1.FontSize = 42End Sub答案：Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 請輸入您要設置的文本End SubPrivate Sub Command2_Click() Option1.Value = True Option6.Value = True Text1.Text = ?End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Opti

10、on1.Value = True Option6.Value = True Text1.Text = 請輸入您要設置的文本End SubPrivate Sub Option1_Click() Text1.FontName = 仿宋_GB2312End SubPrivate Sub Option2_Click() Text1.FontName = ?End SubPrivate Sub Option3_Click() Text1.FontName = 隸書End SubPrivate Sub Option4_Click() Text1.FontName = 黑體End SubPrivate Su

11、b Option5_Click() Text1.FontSize = 5.5End SubPrivate Sub Option6_Click() Text1.FontSize = ?End SubPrivate Sub Option7_Click() Text1.FontSize = 16End SubPrivate Sub Option8_Click() Text1.FontSize = 42End Sub3綜合應用1小題，計30分注意：下面出現(xiàn)的考生文件夾均為c:wexam25160001。在考生文件夾下有工程文件及窗體文件，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有

12、注釋符即 號，但不能修改其他局部。存盤時不得改變文件名和文件夾，相應的dat文件也保存到考生文件夾下，否那么沒有成績。此題描述如下：在名稱為Form1的窗體上有五個Label控件和兩個命令按鈕，數(shù)據(jù)文件prog8a.dat存放一些字符。按開始按鈕后,能從考生文件夾下的prog8a.dat中讀出數(shù)據(jù)并分別統(tǒng)計出其中數(shù)字、大寫字母、小寫字母和其他類型字符的個數(shù)，將結(jié)果寫入考生文件夾下的文件中以標準格式在一行中輸出；執(zhí)行完畢，開始按鈕變成完成，且無效變灰。程序運行界面如圖15-6所示。圖 15-6Private Sub COMEXIT_Click() EndEnd SubPrivate Sub CO

13、MSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfile1 = App.Path & & prog8a.dat myfile2 = App.Path & & prog8b.dat Open myfile1 For ? As #1 Open myfile2 For ? As #2 While Not EOF(1) Input ?, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$)