2012VB試題-實際考試題

1、誠信應(yīng)考,考試作弊將帶來嚴重后果!）封 題 答 不 內(nèi) 線 封 密華南理工大學(xué)期末考試VB高級語言程序設(shè)計試卷題號-一一二二三三四五總分得分評卷人注意事項：1.考前請將密封線內(nèi)各項信息填寫清楚；2.所有答案請直接答在試卷上（或答題紙上）；3考試形式：閉卷；4.本試卷共五 大題，滿分100分， 考試時間120分鐘o、填空題（每空1分，共10分）1. VB中過程的參數(shù)傳遞有兩種方式：（）和（）o2. 若 x=2, y=4 和 z=6，則邏輯表達式Not（x>y） Or x+y+z<50 And 100/z<y 的值為（ ）。3. 用隨機函數(shù)Rnd生成大于或等于1,小于10的隨機整

2、數(shù)值的表達式：（）。4. 已知數(shù)組元素 A（1）=4,A（2）=2,A（3）=1,A（4）=3 ，貝U A（A（1）+A（2）-A（4）的值為 （）。5. Dim a#語句聲明變量a是（）型變量。6. 若以寫的方式打開順序文件”d:file1.dat ” （文件號為5），則正確的語句是（）。7. 在窗體上使用Print方法輸出列表框List1中序號為5項目內(nèi)容，語句為（）。8. 向組合框Combo5添加序號為3，內(nèi)容為"華南理工大學(xué)”的項目，使用的語句為（ ）9. 當單選按鈕 OptionButton 的Value屬性為（）時，表示該單選按鈕處于未選中狀態(tài)。10. 若在標準模塊中以關(guān)

3、鍵字public定義子過程，則在（）中都可以調(diào)用該子過程。：、單項選擇題（每題1.5分，共30分）1、指示一個窗體位置的值是窗體的（）A）對象 B ）事件C ）屬性 D ）方法2、 在VB中，下列變量名不合法的是 。A.姓名B. a$bC. sum% D. n0_13、數(shù)學(xué)式子sin25°寫成VB表達式是A. sin25B. Sin （ 25）C. Sin （25*3.14/180 ）D. Sin（25 ° ）4、 設(shè)窗體上有一個滾動條，單擊滾動條右端的按鈕一次，滾動條移動一定的刻度值， 決定此刻度值的屬性是 。A. Max B. MinC. SmallCha ngeD.

4、Largecha nge5、下面循環(huán)語句中在任何情況下都至少執(zhí)行一次循環(huán)體的是 A. Do While<條件 >循環(huán)體LoopC. Do循環(huán)體Loop Un til < 條件 >執(zhí)行下列程序段輸出結(jié)果是(X%=2Do while x <8 Print *" X=x+2LoopA. *B *C *B.D.D *While < 條件 >循環(huán)體WendDo Un til < 條件 > 循環(huán)體Loop以下錯誤的選項是（若把圖片框Picturel中的圖形清除,A. Picturel.DelB. Picturel.Picture = Load

5、Picture(""C. Picturel.Picture = LoadPicture(D. Picture1.Picture=Noth ing8、工程文件的擴展名是_A. vbgB.vbpC.vbwD.vbl9、設(shè) a=2,b=3,c=4,d=5，表達式 3>2*b OR a=c AND b <>c OR c>d 的值是A. 1B. TrueC. FalseD. -110、在設(shè)計階段，當雙擊窗體上的某個控件時，所打開的窗口是 。A.工程資源管理器窗口B.工具箱窗口C.代碼窗口D.屬性窗口11、運行下列程序，結(jié)果為。const a=2a=4 : pr

6、int aA.2B. 4C. 0D.出錯12、要用數(shù)組 A存放如下方陣的數(shù)據(jù)，如果不浪費存儲空間，說明數(shù)組 是。9 2 32 5 63 6 8A的語句應(yīng)A . Dim A(9) As IntegerB. Dim A(3,3) As IntegerC. Dim A(-1 to 1,-3 to -1) As SingleD . Dim A(-3 to -1,1 to 3) As Integer13、在窗體上畫一個水平滾動條，名稱為要想使用滾動條滑塊的變化量來調(diào)用HScrolH;再畫一個文本框，名稱為 Text1。 文本框中文字的大小，則可滿足的語句A. Text1.FontName= HScrol

7、l1.MaxB. Text1.FontSize= HScroll1.MinC. Textl.FontSize= HScrolll.valueD. Textl.FontBold= HScrolll.value14、按文件的內(nèi)容劃分有。A. 順序文件和隨機文件B. ASCII文件和二進制文件C. 程序文件和數(shù)據(jù)文件D. 磁盤文件和打印文件15、在下列語句中，數(shù)組 a說明正確的是()A) n=5 : Dim a(1 to n) As In tegerB) Dim a(10) As Integer : ReDim a(1 to 12)C) Dim a() As Single : ReDim a(3,

8、4) As IntegerD) Dim a() As In teger : n=5 : ReDim a(1 to n) As In teger三、程序閱讀題(每題6分，共24分)1. 寫出執(zhí)行下列事件過程的輸出結(jié)果。Private Sub Form_Click()Dim i, x, yFori = 1 To 3x = i*i + 2Select Case xCase 6y = x/4 + 6Case 10 To 20y = x*xCase Elsey = 0End SelectPrint " x=" x, "y=" yNext iEnd Sub2. 寫出

9、單擊Command1按鈕后，下列程序運行的結(jié)果。Private Sub Comma nd1_Click()Dim a(1 To 9) As In tegerDim b(1 To 3, 1 To 3) As In tegerDim i%, j%Fori = 1 To 9a(i) = iNext iFori = 1 To 3Forj = 1 To 3b(i, j) = 2*a(i*j)If j=i Then Print b(i, j),Next jPrintNext iEnd Sub3. 寫出以下程序的運行，單擊Form1窗體后的結(jié)果。Private Sub Form1_Click ()Print

10、 "*" ; Tab(9);3,Tab(18);6PrintFor 1=15 to 16Print I;For j=3 To 6 Step 3Print Tab(3*j);j*I;Next jPrintNext IEnd Sub4. 寫出單擊Command1按鈕后，下列程序運行的結(jié)果。Dim x As In tegerPrivate Sub Comma nd1_Click()x = 100Call s1: Print xCall s2: Print xEnd SubPrivate Sub s1()Dim x As In tegerx = x + 200: Print xEn

11、d SubPrivate Sub s2()x = x + 200: Print xEnd Sub四、程序填空題(每空2分，共22分)1、下面事件過程的功能是：輸入某個學(xué)生某門課程的百分制成績，并根據(jù)成績輸出評語，若0W成績v 60時，評語為“差”；若60w成績v 70時，評語為“通過”；若70W成績v 80 時，評語為“中等”；若80成績v 90時，評語為“良好”；若90成績w 100時，評語為“優(yōu)秀”；在程序中填入適當?shù)膬?nèi)容Private Sub Comma nd1_Click()Dim s !s=ln putBox(“請輸入學(xué)生的成績“)If 0<=s And s<=100 T

12、henSelect Case 7Case Is >=90Print"優(yōu)秀"Case Is >=80Print “良好“Case Is 8Print “中等“Case Is >=60Print"通過"9Print “差“End SelectEnd IfEnd Sub2、設(shè)計一個計時程序。該程序用戶界面如圖所示，由一個文本框(text 1 ),和兩個按鈕：命令按鈕1 ( Comma ndl按鈕，命令按鈕 2( Comma nd)組成。程序運行后，用戶按開始(Commandl按鈕，則開始計時，文本框中顯示秒數(shù)，按停止(Command2按鈕，則

13、計時停止。Opti on ExplicitDim iPrivate Sub Comma ndl_Click()i=0Timerl.I nterval=1000Timerl.E nabled= _4End SubPrivate Sub Comma nd2_Click()Timerl.E nabled= _5End subPrivate Sub Form_Load()Timerl.E nabled=FalseTextl.Text =""End SubPrivate Sub Timer1_Timer()i=i+ 6Text1.Text= iEnd SubPrivate Type

14、stuno As Stri ng * 8n ame As String * 8 maths As In teger physics As In teger3、下列程序在屏幕上如圖顯示學(xué)生的各科成績及總分，請完成程序。3東 6 8 32 陳 9 8 8553m<=,II Ldprogram ming As In teger total As In tegerEnd TypePrivate Sub Comma nd1_Click()Dim stude nt As 10stude nt.no = 123 =" 陳東"stude nt.maths =

15、96stude nt.physics = 88stude gram ming = 83stude nt.total=11Print "學(xué)號"stude nt.noPrint "姓名"stude nt. namePrint "數(shù)學(xué)"stude nt.mathsPrint "物理"stude nt.physicsPrint "編程"stude gram mingPrint "總分"stude nt.totalEnd Sub4、下面事件過程的功能是：用迭代法求x =3.a的近似值。給定迭代公式為:1“32X、Xn當?shù)絏n十-Xn <10_6時，Xn+1作為球a的近似值。在橫線上填入適當?shù)膬?nèi)容。Private Sub Comma nd1_Clilck()Const eps = 0.000001Dim a!, x!, u!, v!a = Val(l nputBox("E nter a")v = aDou =v = (2 * u +