2012VB試題-實(shí)際考試題

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

2、數(shù)值的表達(dá)式：（）。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#語(yǔ)句聲明變量a是（）型變量。6. 若以寫(xiě)的方式打開(kāi)順序文件”d:file1.dat ” （文件號(hào)為5），則正確的語(yǔ)句是（）。7. 在窗體上使用Print方法輸出列表框List1中序號(hào)為5項(xiàng)目?jī)?nèi)容，語(yǔ)句為（）。8. 向組合框Combo5添加序號(hào)為3，內(nèi)容為"華南理工大學(xué)”的項(xiàng)目，使用的語(yǔ)句為（ ）9. 當(dāng)單選按鈕 OptionButton 的Value屬性為（）時(shí)，表示該單選按鈕處于未選中狀態(tài)。10. 若在標(biāo)準(zhǔn)模塊中以關(guān)

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

4、Largecha nge5、下面循環(huán)語(yǔ)句中在任何情況下都至少執(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以下錯(cuò)誤的選項(xiàng)是（若把圖片框Picturel中的圖形清除,A. Picturel.DelB. Picturel.Picture = Load

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

6、int aA.2B. 4C. 0D.出錯(cuò)12、要用數(shù)組 A存放如下方陣的數(shù)據(jù)，如果不浪費(fèi)存儲(chǔ)空間，說(shuō)明數(shù)組 是。9 2 32 5 63 6 8A的語(yǔ)句應(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、在窗體上畫(huà)一個(gè)水平滾動(dòng)條，名稱(chēng)為要想使用滾動(dòng)條滑塊的變化量來(lái)調(diào)用HScrolH;再畫(huà)一個(gè)文本框，名稱(chēng)為 Text1。 文本框中文字的大小，則可滿(mǎn)足的語(yǔ)句A. Text1.FontName= HScrol

7、l1.MaxB. Text1.FontSize= HScroll1.MinC. Textl.FontSize= HScrolll.valueD. Textl.FontBold= HScrolll.value14、按文件的內(nèi)容劃分有。A. 順序文件和隨機(jī)文件B. ASCII文件和二進(jìn)制文件C. 程序文件和數(shù)據(jù)文件D. 磁盤(pán)文件和打印文件15、在下列語(yǔ)句中，數(shù)組 a說(shuō)明正確的是()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. 寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(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. 寫(xiě)出

9、單擊Command1按鈕后，下列程序運(yùn)行的結(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. 寫(xiě)出以下程序的運(yùn)行，單擊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. 寫(xiě)出單擊Command1按鈕后，下列程序運(yùn)行的結(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、下面事件過(guò)程的功能是：輸入某個(gè)學(xué)生某門(mén)課程的百分制成績(jī)，并根據(jù)成績(jī)輸出評(píng)語(yǔ)，若0W成績(jī)v 60時(shí)，評(píng)語(yǔ)為“差”；若60w成績(jī)v 70時(shí)，評(píng)語(yǔ)為“通過(guò)”；若70W成績(jī)v 80 時(shí)，評(píng)語(yǔ)為“中等”；若80成績(jī)v 90時(shí)，評(píng)語(yǔ)為“良好”；若90成績(jī)w 100時(shí)，評(píng)語(yǔ)為“優(yōu)秀”；在程序中填入適當(dāng)?shù)膬?nèi)容Private Sub Comma nd1_Click()Dim s !s=ln putBox(“請(qǐng)輸入學(xué)生的成績(jī)“)If 0<=s And s<=100 T

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

13、計(jì)時(shí)停止。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é)生的各科成績(jī)及總分，請(qǐng)完成程序。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é)號(hào)"stude nt.noPrint "姓名"stude nt. namePrint "數(shù)學(xué)"stude nt.mathsPrint "物理"stude nt.physicsPrint "編程"stude gram mingPrint "總分"stude nt.totalEnd Sub4、下面事件過(guò)程的功能是：用迭代法求x =3.a的近似值。給定迭代公式為:1“32X、Xn當(dāng)?shù)絏n十-Xn <10_6時(shí)，Xn+1作為球a的近似值。在橫線(xiàn)上填入適當(dāng)?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 +