Visual Basic程序設(shè)計(jì)考試真題

1、密封線內(nèi)不要答題試卷編號(hào)：9119 座位號(hào) 浙江廣播電視大學(xué)2006年春季學(xué)期開(kāi)放教育本科補(bǔ)修課程考試Visual Basic程序設(shè)計(jì)試題2006年7月題 號(hào)一二三四五總 分得 分得 分評(píng)卷人一、單項(xiàng)選擇題（每小題2分，共40分）1在Visual Basic中，缺省的數(shù)據(jù)類型為（ ）。ADouble BBoolean CInteger DVariant 2多窗體操作中工程文件的擴(kuò)展名是（ ）。A.frm B.vbp C.bas D.cls3下面哪個(gè)屬性不是標(biāo)簽控件的屬性？（ ）AAlignment BBorderStyleCCaption DText4Visual Basic在程序開(kāi)發(fā)過(guò)程中用

2、于使用窗體或控件對(duì)象的屬性是（ ）。AName BCaption CText DEnabled5下列哪個(gè)方法可將項(xiàng)目添加到ComboBox控件中？（ ）AList BListIndex CAddItem DMove6以下有關(guān)Visual Basic語(yǔ)言描述錯(cuò)誤的是（ ）。A不區(qū)分大小寫(xiě)B(tài)語(yǔ)句是一行一句，以回車鍵結(jié)束C用“；”分隔一行中的多個(gè)語(yǔ)句D一條語(yǔ)句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行7為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個(gè)屬性設(shè)置為False，這個(gè)屬性是（ ）。AEnabled BTimerCVisible DInterval8將調(diào)試通過(guò)的工程經(jīng)【文件】菜單的【生成.e

3、xe文件】編譯成.exe后，將該可執(zhí)行文件轉(zhuǎn)到其他機(jī)器上不能運(yùn)行的主要原因是（ ）。A缺少.frm窗體文件B運(yùn)行的機(jī)器上無(wú)Visual Basic系統(tǒng)所需的動(dòng)態(tài)鏈接庫(kù)C該可執(zhí)行文件有病毒D以上原因都不對(duì)9數(shù)學(xué)式子Sin30°寫(xiě)成Visual Basic表達(dá)式是（ ）。A Sin30 B Sin(30)C SIN(300) D Sin(30*3.14/180)10用于獲得字符串S最右邊4個(gè)字符的函數(shù)是（ ）。ARight(S,4) BLeft(S,4)CRightStr(S) DRightStr()11以下不是Visual Basic語(yǔ)言的循環(huán)控制結(jié)構(gòu)是（ ）。AFor結(jié)構(gòu) BSele

4、ct Case結(jié)構(gòu)CWhile結(jié)構(gòu) DDo結(jié)構(gòu)12如果準(zhǔn)備讀文件，打開(kāi)順序文件“text.dat”的正確語(yǔ)句是（ ）。AOpen "text.dat" For Write As #1 BOpen "text.dat" For Input As #1COpen "text.dat" For Binary As #1 DOpen "text.dat" For Random As #113下面選項(xiàng)中，能繪制填充矩形的語(yǔ)句是（ ）。 ALine (200, 200)-(500, 500),BBLine (200, 200)

5、-(500, 500), , BFCLine (200, 200)-(500, 500), BFDLine (200, 200)-(500, 500)14下列賦值語(yǔ)句正確的是（ ）。AB+C =A B A=B+CC-B=A D5=A+B15在窗體中添加一個(gè)命令按鈕，然后編寫(xiě)如下程序：Private Sub Command1_Click() Dim i For i = 1 To 10 Step 2 i = i + 1 Print i; Next iEnd Sub單擊命令按鈕，程序的執(zhí)行結(jié)果為（ ）。A2 4 6 8 10 12 B1 3 5 7 9 11C2 5 8 D2 5 8 11 16文本

6、框沒(méi)有（ ）屬性。AText BName CCaption DBorderStyle17在Sub過(guò)程定義的“參數(shù)列表”中設(shè)置參數(shù)是按值傳送的選項(xiàng)是（ ）。AByVal BByRef CParamArray DOptional18用于獲得字符串長(zhǎng)度的函數(shù)是（ ）。ALen() BLength()CStrLen() DStrLength()19下面有關(guān)數(shù)組的描述錯(cuò)誤的是（ ）。A數(shù)組下界和上界的取值范圍是-32768到32767B數(shù)組下界必須小于上界C沒(méi)有設(shè)置Option Base語(yǔ)句，省略下界，則下界默認(rèn)值為0D在定義數(shù)組時(shí)，每一維的下標(biāo)上界值必須是一個(gè)常數(shù)，不能是變量或者表達(dá)式20在窗體中添加

7、一個(gè)命令按鈕，并編寫(xiě)如下程序：Private Sub Command1_Click() a = 1: b = 2: c = 3 a = b: b = c: c = a Print cEnd Sub程序執(zhí)行后，輸出的結(jié)果是（ ）。A0 B1 C2 D3得 分評(píng)卷人二、填空題（每空1分，共20分）1在Visual Basic中設(shè)置或修改一個(gè)對(duì)象的屬性的方法有兩種，它們分別是 和 。2基本程序控制結(jié)構(gòu)可以分為順序結(jié)構(gòu)、 結(jié)構(gòu)和 結(jié)構(gòu)3種。3在Visual Basic的參數(shù)傳遞過(guò)程中，形式參數(shù)表和實(shí)際參數(shù)表中對(duì)應(yīng)的變量名 ，變量個(gè)數(shù) 、變量類型 、書(shū)寫(xiě)順序必須對(duì)應(yīng)相同。4每次重新設(shè)置驅(qū)動(dòng)器列表框的Dr

8、ive屬性時(shí)，都將引發(fā) 事件?？稍谠撌录^(guò)程中編寫(xiě)代碼修改目錄列表框的路徑，使目錄列表框內(nèi)容隨之發(fā)生改變。5在Visual Basic中，參數(shù)通過(guò) 和 兩種方式傳送。6數(shù)組的類型可以是基本數(shù)據(jù)類型，也可以是用戶自定義的記錄類型。如果省略類型說(shuō)明，數(shù)組會(huì)被設(shè)置為默認(rèn)的 。數(shù)組中各個(gè)元素在定義時(shí)如果是數(shù)值類型就被默認(rèn)初始化為 ，如果是字符串類型就被初始化為 。7將1£ x <12寫(xiě)成Visual Basic邏輯表達(dá)式 。8在Visual Basic 6.0中，多重窗體程序的保存操作分成兩步進(jìn)行：首先，保存 ；然后，保存 。9Left ("abcd",2)函數(shù)的返

9、回值是 ； Right("abcd",2)函數(shù)的返回值是 。10執(zhí)行指令“Line (200,200,) (500,500,)”后，CurrentX 。11Vb應(yīng)用程序與數(shù)據(jù)庫(kù)進(jìn)行通信的主要機(jī)制稱為 。 得 分評(píng)卷人三、閱讀程序題（每小題5分，共20分）1運(yùn)行下列程序，回答問(wèn)題。Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub點(diǎn)擊窗體兩次后，變量Sum的值是：2運(yùn)行下列程序，回答問(wèn)題。Private Sub Command1_

10、Click() Text1.Text=2 Text2.Text=3 Text3.Text=Text1.Text+Text2.Text Text4.Text=Val(Text1.Text)+Val(Text2.Text)End Sub 文件框Text3和Text4的結(jié)果分別是：3運(yùn)行下列程序，回答問(wèn)題。Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)=") If x < 5 Then s = s * x Else s = s + x En

11、d If Text1.Text = "s=" & Str(s)End Sub程序運(yùn)行時(shí)連續(xù)3次單擊Command1，且設(shè)輸入的數(shù)據(jù)為6、5、4時(shí)，分別寫(xiě)出文本框Text1的值。4運(yùn)行下列程序，回答問(wèn)題。Private Sub Form_Click() Dim i As Integer, a As Integer k = 0 For i = 1 To 6 If i > 3 Then a = a + 5 Else a = a + 2 End If Next iPrint i, aEnd Sub 寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。得 分評(píng)卷人四、完善

12、程序題（每空2分，共10分）在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運(yùn)行后，驅(qū)動(dòng)器列表框Drive1的默認(rèn)驅(qū)動(dòng)器設(shè)置為D盤，選擇File1中所列的圖片文件（*.bmp,*.gif和*.jpg）,則相應(yīng)的圖片顯示在圖片框Picture1中，文件的路徑顯示在文本框中。程序運(yùn)行結(jié)果如圖1所示。 圖1程序代碼如下，請(qǐng)補(bǔ)充完整Private Sub Form_Load() Drive1.Drive = 1 File1.Pattern = "*.bmp;*.gif;*.jpg"End SubPrivate Sub Drive1_change() Dir1.Path = 2 Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 3 Text1.Text = 4 End SubPrivate Sub File1_click() Picture1. 5 = LoadPicture(File1.Path + "" + File1.FileName) FileName =