1、一、單項選擇題（每題1 分，共40 分）1 下列屬于計算機輸出設備的是（A)鼠標 B) 掃描儀 C) 鍵盤）D)打印機2. 網上購物屬于計算機在A)電子政務B) 電子商務（） 領域中的應用。C)計算機輔助設計D)辦公自動化3. 微型機種，U 盤使用的一般是接口A)1394 B)LPTC)COMD)USB4. 下列關于存儲器讀取速度從快到慢的排序中，正確的是（A)RAM、硬盤、光盤B)RAM、光盤、硬盤C)硬盤、 RAM、光盤D)硬盤、光盤、RAM）5、“ 32 位微型機”中的“ 32”是指（）A)微機主頻 B) 內存容量 C)微機字長D) 硬盤容量6.在 Windows 系統(tǒng)中查找文件時，如果

2、輸入“*.doc ”，則查找的是A)文件名為 *.doc的文件 B)文件名中有一個 * 的 doc 文件C)所有擴展名為doc 的文件 D)文件名長度為一個字符的doc 文件7.下列不符合域名命名規(guī)則的是（）A)B)C)D)8下列軟件不屬于多媒體影音播放工具的是（）A)暴風影音B)PhotoshopC)RealplayerD)Windows media player9. 下列關于計算機病毒危害的描述，錯誤的是（A)影響程序的運行B)破壞用戶程序和數(shù)據C)影響計算機的運行速度D)破壞只讀光盤中的信息）10軟件開發(fā)過程中，程序設計的核心是（A)算法與數(shù)據結構B)語句格式C)用戶數(shù)據）D)用戶存檔1

3、1. 窗體文件的擴展名是（A).vbgB） .vbpC).vbw）D).frm12.VB的續(xù)行符是（）A)一個空格加一個下劃線B ）一個下劃線C)直接回車D)一個空格13. 下面（）是合法的變量名。A)x_yzB ） 123abcC).IntegerD)x-y14. 將不等式 |x|<10表示成 VB表達式，以下錯誤的是（）A)Abs(x)<10B) x>-10 And x<10C) x>10 Or x<-10D)Sqr(x*x)<1015.邏輯運算符 And、 Or、 Not 運算優(yōu)先級從高到低的順序是（）A)And、 Not 、 Or B) Not

4、 、 And、 Or C) Or 、 Not 、 AndD)Not 、 Or、And16.已知 a=” 12345678” , 則表達式 Val(left(a,4)+Mid(a,4,2)的值為（）A)12345 B) 123445C) 1279 D)617.下列語句（）可以交換變量x,y的值。A)x=y:y=xB) x=(x+y)/2:y=(x-y)/2C) t=x:x=y:y=tD)x=t:t=y:y=x18.下列表達式值為0 的是（）A)7/9 B) 7 Mod 9C) 79D)9 Mod 719.設 a=”Welcome,北京 ! ”，執(zhí)行語句b=Len(a) 后， b 的值為（）A)1

5、3 B) 11C) 12D)1520.設 x=3，則執(zhí)行y=IIf(x>5,-1,0)后， y 的值為（）A)3B)5C)-1D)021.應使用（）聲明一個變量為過程級變量。A)PublicB)GlobelC) DimD)Private22.VB 中的變量如果沒有聲明其數(shù)據類型，則默認為（）。A)變體型B)數(shù)值型 C)字符型D)日期型23.下列關于語句 Exit For說法正確的是（）A) Exit For可以退出任何類型的循環(huán)B)一個循環(huán)中只能有一個 Exit For語句C) Exit For可以退出過程D) 一個 For循環(huán)中可以有多條 Exit For語句24.定義數(shù)組 a(1 T

6、o 5,5)后，下列（）數(shù)組元素不存在。A)a(1,1) B) a(1.,5)C)a(0,1)D)a(5,5)25.Sub End Sub 過程的形式參數(shù)可以是（）A)常數(shù) B)函數(shù)C)變量D)表達式26.VB 中默認的參數(shù)傳遞方式是（）A)傳值B)傳地址 C)傳值和傳地址D)從形參到實參27.以下（）屬性的值不能通過程序代碼改變。A)CaptionB)BackColorC)NameD)Enabled28.要改變標簽控件的寬度，應修改該控件的（）屬性值。A)TopB) WidthC)LeftD)Height29.要使文本框獲得焦點，應采用下列（）方法。A)GotFocus B) LostFoc

7、usC) KeyPressD)SetFocus30.若要使命令按鈕Command1不可見，應設置其（）屬性值為 False 。A)VisibleB) Default C)CannelD)Enabled31.下列（）對象不能響應 Click事件。A)列表框B) 計時器 C)窗體D)命令按鈕32.下列（）對象具有 Clear方法。A)圖片框B)窗體 C)復選框D) 列表框33.下列（）屬性返回組合框中列表項目的個數(shù)。A)LIstCountB) List C) ListIndexD)Text34.可以通過復選框和單選按鈕的（）屬性值來判斷它們是否被選中。A)Style B) ValueC)Check

8、edD)Selected35.文件列表框的（）屬性表示所顯示文件的路徑。A)PathB) Drive C) RoadD)FileName36. 下面關于控件數(shù)組說法錯誤的是（）A)控件數(shù)組中所有元素共用同一個事件過程B) 控件數(shù)組中通過 Index 屬性來區(qū)分每個元素C)控件數(shù)組中所有控件元素使用同一個控件名D)一個控件數(shù)組中可以包括不同類型的控件37. 下面幾個關鍵字均表示文件的打開方式，其中只能進行讀不能寫的是（）A)InputB) Output C) RandomD)Append38. 記錄集中移動到下一個記錄的方法是（）A)MoveFirstB)MoveLast C) MovePrec

9、iousD)MoveNext39. 下列程序段運行后，輸出結果是（）x=5If x>0 Then y=5 Else y=10Print yA)0B) 5C) 10D)1540. 窗體上有一個命令按鈕Command1和一個列表框 List1 ，下列代碼執(zhí)行后輸出結果的（）Private Sub Command1_Click()List1.AddItem”北京”List1.AddItem”紐約”List1.AddItem”倫敦”List1.AddItem”巴黎”Print List1.List(2)End SubA)北京B)紐約C)倫敦D)巴黎十五、填空題（每空2 分，共 20 分）1.3x

10、y33x 的 VB 表達式為(x-y3)（ 1/3 ） -3*x。2.若要每隔3 秒觸發(fā)一次計時器事件，應將Interval 屬性值設置為 3000。3.VB 中菜單僅能接受Click事件。4.下列程序中循環(huán)語句的循環(huán)次數(shù)是5 。i=5Do While i >=1i=i-1Loop5. 下列程序執(zhí)行時， 要求輸入密碼， 如果密碼不正確則彈出非法用戶對話框， 請將程序補充完整。Private Snb Form_Click()Dim password As Stringpassword =If password =inputbox(“請輸入你的密碼” 654321” Then, ”輸入密碼”

11、)輸入用戶密碼Exit SubElsemsgbox“對不起！你是非法用戶！”EndEnd IfEnd Sub6. 下面程序的功能是求Fibonacci數(shù)列的前n 項，直到第n 項大于1000為止，請將程序補充完整。Fibonacci數(shù)列是：1,1,2,3,5,8,13， ；數(shù)列的第1 項和第2 項均為1，從第3 項開始，每一項都是其前兩項之和。Private Sub Form_Click()Dim f(20) As Long,n As Integerf(1)=1:f(2)=1n =2Print f(1); f(2);Don=n+1f (n)=f(n-2)+f(n-1)Print f(n);If

12、f(n)>1000Then Exit DoLoopEnd Sub求數(shù)列的第n 項若條件滿足就終止循環(huán)7. 下面程序的運行結果是輸出如下所示的圖案，請將程序補充完整。* * * *Private Sub Form_Click()Dim i As Integer ,j As IntegerFor i =3 To 1 Step -1Print Spc (10-i);For j = 1 Toi*2-1控制每行 * 號的個數(shù)Print“*”;Next jprint換行Next iEnd Sub十六、閱讀理解題（每題4 分，共 20 分）1. 執(zhí)行下面程序后，輸出的結果是shanghai。Priva

13、te Sub Form_Click()Dim x As Integer,y As Stringx= 14Select Case xCase Is <5y=” beijing”Case 5 To 15y=” shanghai ”Case Elsey=” ! ”End SelectPrint yEnd Sub2. 執(zhí)行下面程序后，輸出的結果是12345。Private Sub Form_Click()Dim i As Interger,s As Stringi=0Doi=i+1s=s&iLoop While i<5Print sEnd Sub3.執(zhí)行下面程序后，輸出的結果是s=

14、 4321。Private Sub Form_Click()Dim i As Integer, j As Integer, s As IntegerDim aa = Array(1, 2, 3, 4)s = 0: j = 1For i = 0 To 3s = s + a(i) * jj = j * 10Next iPrint "s=" sEnd Sub4.執(zhí)行下面程序后，輸出的結果是s= 4。Private Sub Form_Click()Dim i As Integer, j As Integer, s As IntegerFor i = 1 To 3s = 0For j

15、 = 1 To i + 1s = s + 1Next jNext iPrint "s=" sEnd Sub5. 執(zhí)行下面程序后，輸出的結果是3 20 。Dim b As IntegerPrivate Sub Proc(ByVal m As Integer)Static a As Integera = a + mb = b + a * 2End SubPrivate Sub Form_Click()Dim n As Integern = 3Call Proc(n)Call Proc(n + 1)Print n, bEnd Sub十七、編程題（共20 分）1. 編寫一個函數(shù) A

16、rea ，求圓環(huán)的面積，以內圓、外圓半徑作為函數(shù)的形式參數(shù)。圓環(huán)面積如下圖陰影所示，外圓半徑為r 1，內圓半徑為r 2。（5 分）Const PI = 3.14Function area(r1 As Single, r2 As Single) As Singlearea = PI * r2 * r2 - PI * r1 * r1End FunctionPrivate Sub Form_Click()Dim r1 As Single, r2 As Single, s As Singler1 = Val(InputBox("請輸入 r1")r2 = Val(InputBox(&

17、quot;請輸入 r2")s = area(r1, r2)Print sEnd Sub2. 某一快遞公司快遞費用計算方法如下：快遞貨物重量不超過2 千克，快遞費用10 元；超過 2 千克而不超過10 千克，超過部分2.5 元 / 千克；超過10 千克，超出部分1.5 元 / 千克。程序設計界面和運行界面入下圖所示，編寫“計算”按鈕Command1的單擊事件代碼，計算快遞費用。（ 7 分）設快遞貨物重量為x 千克，快遞費用為y 元，則計算公式為：10( x2)y 10(x2)*2.5(2x 10)30( x10)*1.5( x10)Private Sub Command1_Click()Dim x!x = Val(Text1)If x <= 2 ThenText2 = 10ElseIf x <= 10 ThenText2 = 10 + (x - 2) * 2.5ElseText2 = 30 + (x - 10) * 1.5End IfEnd Sub3. 隨機產生十個學生的身高數(shù)據（100 200cm，包含 100 和 200），輸出這十個學生身高數(shù)據、平均身高和超過平均身高的學生人數(shù)。