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

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

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

3、然后刪除？及所有注釋符即 號(hào)，但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。此題描述如下：在名稱為Form1的窗體上有三個(gè)Label控件和兩個(gè)命令按鈕，Label控件均為提示信息。命令按鈕CMDstart和CMDexit，程序運(yùn)行后，單擊開始按鈕，程序自動(dòng)利用循環(huán)計(jì)算1+1/2+1/3+.+1/10的結(jié)果，并把結(jié)果寫入到考生文件夾下文件中。執(zhí)行完畢開始按鈕變成完成，且無效變灰。程序運(yùn)行界面如圖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在考生文件夾下有工程文件及窗體文件，該程序是不完整的，請(qǐng)?jiān)谟校刻?hào)的地方填入正確內(nèi)容，然后刪除？及所有注釋符即號(hào)，但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。此題描述如下：程序啟

6、動(dòng)時(shí)文本框的默認(rèn)文字為請(qǐng)輸入您要設(shè)置的文本，默認(rèn)的字體為仿宋_GB2312，字號(hào)為五號(hào)。程序運(yùn)行過程中可以修改文本框的內(nèi)容在單擊初始化時(shí)恢復(fù)啟動(dòng)時(shí)的狀態(tài)；在單擊去除后，文本框的內(nèi)容為空，并恢復(fù)默認(rèn)的字體，字型號(hào)。選擇相應(yīng)的字體和字型號(hào)可以設(shè)置文本框內(nèi)文字的字體和屬性。程序運(yùn)行界面如圖15-5所示。圖 15-5Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 請(qǐng)輸入您要設(shè)置的文本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 = 請(qǐng)輸入您要設(shè)置的文本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 = 請(qǐng)輸入您要設(shè)置的文本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 = 請(qǐng)輸入您要設(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.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綜合應(yīng)用1小題，計(jì)30分注意：下面出現(xiàn)的考生文件夾均為c:wexam25160001。在考生文件夾下有工程文件及窗體文件，該程序是不完整的，請(qǐng)?jiān)谟校刻?hào)的地方填入正確內(nèi)容，然后刪除？及所有

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