全國計算機(jī)等級考試二級VB模擬試卷機(jī)試

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

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

3、地方填入正確內(nèi)容，然后刪除？及所有注釋符即 號，但不能修改其他局部。存盤時不得改變文件名和文件夾。此題描述如下：在名稱為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 Si

4、ngle, J As 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

5、As Single 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、題描述如下：程序啟動時文本框的默認(rèn)文字為請輸入您要設(shè)置的文本，默認(rèn)的字體為仿宋_GB2312，字號為五號。程序運行過程中可以修改文本框的內(nèi)容在單擊初始化時恢復(fù)啟動時的狀態(tài)；在單擊去除后，文本框的內(nèi)容為空，并恢復(fù)默認(rèn)的字體，字型號。選擇相應(yīng)的字體和字型號可以設(shè)置文本框內(nèi)文字的字體和屬性。程序運行界面如圖15-5所示。圖 15-5Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 請輸入您要設(shè)置的文本End SubPrivate Sub Command2

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

8、1.FontName = ?End SubPrivate 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 S

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

10、te Sub Form_Load() Option1.Value = True Option6.Value = True Text1.Text = 請輸入您要設(shè)置的文本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.FontNam

11、e = 黑體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() Text1.FontSize = 42End Sub3綜合應(yīng)用1小題，計30分注意：下面出現(xiàn)的考生文件夾均為c:wexam25160001。在考生文件夾下有工程文件及窗體文件，該程序是不完整的，

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

13、 COMSTART_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$)