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

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

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

3、xe文件】編譯成.exe后，將該可執(zhí)行文件轉(zhuǎn)到其他機器上不能運行的主要原因是（ ）。A缺少.frm窗體文件B運行的機器上無Visual Basic系統(tǒng)所需的動態(tài)鏈接庫C該可執(zhí)行文件有病毒D以上原因都不對9數(shù)學(xué)式子Sin30°寫成Visual Basic表達式是（ ）。A Sin30 B Sin(30)C SIN(300) D Sin(30*3.14/180)10用于獲得字符串S最右邊4個字符的函數(shù)是（ ）。ARight(S,4) BLeft(S,4)CRightStr(S) DRightStr()11以下不是Visual Basic語言的循環(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)備讀文件，打開順序文件“text.dat”的正確語句是（ ）。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下面選項中，能繪制填充矩形的語句是（ ）。 ALine (200, 200)-(500, 500),BBLine (200, 200)

5、-(500, 500), , BFCLine (200, 200)-(500, 500), BFDLine (200, 200)-(500, 500)14下列賦值語句正確的是（ ）。AB+C =A B A=B+CC-B=A D5=A+B15在窗體中添加一個命令按鈕，然后編寫如下程序：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、框沒有（ ）屬性。AText BName CCaption DBorderStyle17在Sub過程定義的“參數(shù)列表”中設(shè)置參數(shù)是按值傳送的選項是（ ）。AByVal BByRef CParamArray DOptional18用于獲得字符串長度的函數(shù)是（ ）。ALen() BLength()CStrLen() DStrLength()19下面有關(guān)數(shù)組的描述錯誤的是（ ）。A數(shù)組下界和上界的取值范圍是-32768到32767B數(shù)組下界必須小于上界C沒有設(shè)置Option Base語句，省略下界，則下界默認值為0D在定義數(shù)組時，每一維的下標(biāo)上界值必須是一個常數(shù)，不能是變量或者表達式20在窗體中添加

7、一個命令按鈕，并編寫如下程序：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得 分評卷人二、填空題（每空1分，共20分）1在Visual Basic中設(shè)置或修改一個對象的屬性的方法有兩種，它們分別是 和 。2基本程序控制結(jié)構(gòu)可以分為順序結(jié)構(gòu)、 結(jié)構(gòu)和 結(jié)構(gòu)3種。3在Visual Basic的參數(shù)傳遞過程中，形式參數(shù)表和實際參數(shù)表中對應(yīng)的變量名 ，變量個數(shù) 、變量類型 、書寫順序必須對應(yīng)相同。4每次重新設(shè)置驅(qū)動器列表框的Dr

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

9、回值是 ； Right("abcd",2)函數(shù)的返回值是 。10執(zhí)行指令“Line (200,200,) (500,500,)”后，CurrentX 。11Vb應(yīng)用程序與數(shù)據(jù)庫進行通信的主要機制稱為 。 得 分評卷人三、閱讀程序題（每小題5分，共20分）1運行下列程序，回答問題。Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub點擊窗體兩次后，變量Sum的值是：2運行下列程序，回答問題。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運行下列程序，回答問題。Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox("請輸入一個正整數(shù)=") If x < 5 Then s = s * x Else s = s + x En

11、d If Text1.Text = "s=" & Str(s)End Sub程序運行時連續(xù)3次單擊Command1，且設(shè)輸入的數(shù)據(jù)為6、5、4時，分別寫出文本框Text1的值。4運行下列程序，回答問題。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 寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。得 分評卷人四、完善

12、程序題（每空2分，共10分）在窗體上建立一個驅(qū)動器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運行后，驅(qū)動器列表框Drive1的默認驅(qū)動器設(shè)置為D盤，選擇File1中所列的圖片文件（*.bmp,*.gif和*.jpg）,則相應(yīng)的圖片顯示在圖片框Picture1中，文件的路徑顯示在文本框中。程序運行結(jié)果如圖1所示。 圖1程序代碼如下，請補充完整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 =