全國計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷

1、江西信息應(yīng)用職業(yè)技學(xué)院Visual Basic程序設(shè)計(jì)Visual Basic模擬試卷1一、 單項(xiàng)選擇題（每小題1 分，共25 分）(1) 以下能在“工程資源管理器”窗口中列出的文件類型是：（）A)*.txtB)*.frmC)*.docD)*.jpg(2) 下列可作為Visual Basic變量名的是：（）A)A#AB)4AC)?xYD)constA(3)以下能在窗體Form1的標(biāo)題欄中顯示“ VisualBasic窗體 的語句是：（）Form1.Name=VisualBasic 窗體 Form1.Title=VisualBasic窗體 Form1.Caption=VisualBasic 窗體

2、 Form1.Text=VisualBasic 窗體”(4) 將數(shù)學(xué)表達(dá)式2(a+b)+5 2 寫成 Visual Basic的表達(dá)式，其正確的形式是：（）A) 2*(a+b)十 5/2B) 2(a+b)+52C)(a+b)2十 5*2D) 2(a+b)+5*2窗體上只有命令按鈕 Command1，代碼中有如下過程：Private Sub Command2_Click()a=software and hardwareMsgbox aEnd Sub則該過程是：（）A) 事件過程B) 通用過程C)函數(shù)D)設(shè)計(jì)過程在窗體上添加一個(gè)名稱為 List1 的列表框，一個(gè)名稱為 Label1 的標(biāo)簽。當(dāng)單擊

3、列表框中的某個(gè)選項(xiàng)時(shí)， 在標(biāo)簽中顯示該選項(xiàng)名稱。下列能正確實(shí)現(xiàn)此功能的程序是：（）Private Sub List1_Click() Label1 Caption List1.ListIndex End SubPrivate Sub List1_Click() Label1 NameList1 ListIndex End SubPrivate Sub List1_Click()Label1 Caption List1.TextEnd SubPrivate Sub List1_Click() Label1 NameList1.Text End Sub如下事件過程 :Private Sub Com

4、mand1_Click()x=0For i= 1 To 5x = x +1Next iLabel1.Caption= xEnd Sub程序運(yùn)行后, 單擊命令按鈕Command1,則Label1顯示：（） _A) 3B) 4C) 5D) 6(8) 窗體上一個(gè)名為command1(1)的按鈕，正確調(diào)用其Name屬性的方法是：（）A)B)command1*nameC) command1(1).nameD) command1(1)*name(9) 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是：()A、Ltrim B 、 Rtrim C、 Trim D、Mid(10) 以下關(guān)于文件

5、的敘述中，錯(cuò)誤的是： （）順序文件中的記錄一個(gè)接一個(gè)地順序存放B）隨機(jī)文件中記錄的長度是隨機(jī)的C）執(zhí)行打開文件的命令后，自動(dòng)生成一個(gè)文件指針D）LOF 函數(shù)返回給文件分配的字節(jié)數(shù)以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是 ( )事件過程不能被其他過程調(diào)用B)ByVal 關(guān)鍵字聲明按值傳遞參數(shù)C)ByRef 關(guān)鍵字聲明按地址傳遞參數(shù)D)事件過程是基于對(duì)象的事件而建立的設(shè) a=5， b=3，則以下表達(dá)式值為真的是A) a =b And b 10B)(a b)Or(b 0)C) a 0 And(b 0)D)( 5a) And (b 0)在窗體上一個(gè)名稱為 TxtA 的文本框有如下的事件過程：Priva

6、te Sub TxtA_KeyPress(keyascii as integer)End Sub則能夠觸發(fā) KeyPress 事件的操作是：（）A) 單擊鼠標(biāo)B)雙擊文本框C)鼠標(biāo)滑過文本框D)按下鍵盤上的某個(gè)鍵(14) DirListBox目錄列表框的 Path 屬性的作用是：（）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名C)顯示根目錄下的文件名D)只顯示當(dāng)前路徑下的文件(15) 為了暫時(shí)停止計(jì)時(shí)器，應(yīng)把計(jì)時(shí)器的某個(gè)屬性設(shè)置為False ，這個(gè)屬性是：（）A) VisibleB) TimerC) EnabledD) Interval16） 設(shè)窗體上有一個(gè)

7、文本框，名稱為 text1,程序運(yùn)行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是）：A)text1.maxlength=0B)text1.enabled=flaseC)text1.visible=flaseD)text1.width=0（ 17）對(duì)聲明語句 String * size ,以下說法正確的是 ：（）A 、size 為定長的字符串B、size 為變長的字符串C、size 為指針D、 size 為定長的字符串的長度18） Load 事件的理解正確的是 ( ) A 此事件是在一個(gè)窗體被裝載時(shí)發(fā)生 B 當(dāng)窗體從屏幕上刪除時(shí)發(fā)生C 可以用于釋放窗體資源以上均不正確（

8、19） 在窗體上畫一個(gè)名稱為Text1 的文本框，然后畫一個(gè)名稱為HScroll1 的滾動(dòng)條，其 Min 和 Max 屬性分別為 0 和 100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，如圖所示：以下能實(shí)現(xiàn)上述操作的程序段是： （）A ）Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll

9、.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub（ 20） 在工具箱中，需要添加才會(huì)顯示的控件是()A CommandB ComboBoxC ShapeD RichTextBox（ 21） 以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是：（）用 Hide 方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體B）在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的C）在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體D）對(duì)于多重窗體程序中，而且單獨(dú)保存每個(gè)窗體（ 22） 以下敘述中錯(cuò)誤的是：（）事件過程是響應(yīng)特定事件的一段程序B）不同的

10、對(duì)象可以具有相同名稱的方法C）對(duì)象的方法是執(zhí)行指定操作的過程D）對(duì)象事件的名稱可以由編程者指定（ 23） 在窗體上畫一個(gè)名稱為Command1 的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()a$=VisualBasicPrint String(3,a$)End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是：（）A ） VVVB) VisC) sicD) 11（ 24） 設(shè)有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext運(yùn)行以上程序后， x 的值是：（）A) 26B) 27C) 38D) 57（ 25）、執(zhí)行如下兩

11、條語句，窗體上顯示的是()a=9.8596Print Format(a,$0,000.00)A) 0,009.86B) $9.86C) 9.86D) $0,009.86二、程序閱讀題（每小題5 分，共 30 分）1. Satatic private Sub Command1_ClickDim x as Integer,s as integerx=Val(Inputbox(請(qǐng)輸入一個(gè)正整數(shù) =)if x= 5 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer)n = n + 1Print n=; nEnd Sub寫出程序

12、運(yùn)行后窗體上顯示的結(jié)果。4.Private Sub cmdSum_Click()static Sum as integerSum=2*Sum+1End Sub問：第三次單擊命令按鈕cmdSum 后， Sum 的值為：5、Private Sub Form_Click()Dim a1 As Integer,a2 As Integera1=10:a2=100wu a1,a2print“ a1=” ;a1, ” a2=” ;a2End SubPrivate Sub wu(b1 As Integer,Byval b2 As Integer)b1=b12:b2=b2 Mod 13print“ b1=” ;b1, ” b2=” ;b2End Sub寫出程序運(yùn)行時(shí)單擊窗體后,在 Form1 上的輸出結(jié)果。結(jié)果為：6Private S