計算機語言與程序設(shè)計08-09[1].2期末試卷B卷

1、試卷編號命題人： 試卷分類（A卷或B卷） B 五邑大學(xué) 試 卷學(xué)期： 2008 至 2009 學(xué)年度第 2 學(xué)期課程： 計算機語言與程序設(shè)計 專業(yè)： 班級： 姓名： 學(xué)號： 題號一二三四五六七八九十總分得分得分一、選擇題（2分/題，15小題，共30分）1. 以下敘述中，錯誤的是( C )。A 一個VisualBasic應(yīng)用程序可以含有多個標(biāo)準(zhǔn)模塊文件B 一個VisualBasic工程可以含有多個窗體文件C 標(biāo)準(zhǔn)模塊文件可以屬于某個指定的窗體文件D 標(biāo)準(zhǔn)模塊文件的擴展名是.Bas2. Visual Basic規(guī)定工程文件的擴展名是( B )。A .frmB .vbpC .vbgD .bat3.

2、下面的運算符中，優(yōu)先級最高的是( D )。 A NotB AndC OrD Like4. 下面的（ D ）不能用來在模塊之間傳遞數(shù)據(jù)。A 全局變量 B 對象屬性C 全局?jǐn)?shù)組D 模塊級變量5. VB提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（ D ）。A 遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B 選擇結(jié)構(gòu)、過程結(jié)構(gòu)、循序結(jié)構(gòu)C 過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D 選擇結(jié)構(gòu)、順序結(jié)構(gòu)、循序結(jié)構(gòu)6. 如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是( A )。A CaptionB NameC BackColorD BorderStyle7.函數(shù)Mid(“WuyiUniversity”,5)的值為（ B ）。A

3、 “WuyiU”B “University”C “rsity”D “Unive”8.以下能判斷是否到達文件尾的函數(shù)是( D ) 。A BOFB LOCC LOFD EOF9. 以下賦值語句中正確的是（ D ）。A 10x=Sin(x)+yB c+x+y=c*yC x=Sin(x)/(20 Mod 2)D c=3+Sqr(18)10. 退出For循環(huán)可使用的語句為（ A ）。A Exit ForB Exit DoC End ForD End Do11. 下列符號中，合法的VB變量是（ A ）。A a123B IntegerC 2abD sin(x)12. 設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop Wh

4、ile 則以下敘述中錯誤的是（ A ）。A 若“條件”是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B “條件”可以是關(guān)系表達式、邏輯表達式或常數(shù)C 循環(huán)體中可以使用Exit Do語句D 如果“條件”總是為True，則不停地執(zhí)行循環(huán)體13. 如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為( D )。A =B *C &D -14. 如下數(shù)組聲明語句，（ D ）正確。A Dim a3,4 As IntegerB Dim a(3,4) As Integer C Dim an,n As IntegerD Dim a(3: 4) As Integer15. 要從磁盤上讀入一個文件名為“c:t1.

5、txt”順序文件，正確的是（ A ）。A F=“ c:t1.txt”B F=“ c:t1.txt” Open F For Input As #1Open “F” For Input As #1C Open “c:t1.txt” For output As #1D Open c:t1.txt For input As #2得分二、填空題（1分/空，20空，共20分）1.VB有三種工作模式，它們分別是設(shè)計模式、運行模式和中斷模式。2.Visual Basic工程文件的擴展名是vbp，窗體文件的擴展名是frm。3.若A=120，B=80，C=70，D=30，則表達式A+B160 Or (B*C200

6、 And Not d60)的值是 True 。4.VB算術(shù)表達式 a/(c/(d+esqr(f)+b)所對應(yīng)的數(shù)學(xué)表達式是 5.用隨機函數(shù)產(chǎn)生一個兩位的隨機正整數(shù)的VB表達式是Int(Rnd*90+10)6.Format(10, 0.00)的返回值為10.007.VB可能遇到的錯誤有語法錯誤、運行時錯誤、邏輯錯誤8.設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為Mark，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語句為Dim Mark(1 to 5,-2 to 6) as String9.把數(shù)學(xué)表達式寫成VB的算術(shù)表達式為abs(a2-b2) 或者 abs(a*

7、a-b*b)10.VB表達式 21 5 + 14 Mod 4的運算結(jié)果是 6 。1. 11.文本框的Text屬性值是文本框中包含的文本內(nèi)容。2. 12.數(shù)組按大小是否可變分為 定長數(shù)組、動態(tài)數(shù)組 兩類。13.用Dim A(-3 to5)語句定義的數(shù)組的元素個數(shù)是 9 。14.使用Exit Function 語句可以中途退出Function過程，使用Exit Sub語句可以中途退出Sub過程。得分三、 程序填空（2.5分/空，2空/小題，4小題，共20分）1. 在窗體上輸出金字塔型數(shù)字，如圖所示。Private Sub Form_click()For i = 1 To 9 Print Spc(9

8、 - i); For j = 1 To 2 * i 1 Print Format(i, 0); Next j PrintNext iEnd Sub2. 在窗體上畫一個名稱為Label1的標(biāo)簽和一個名稱為List1的列表框。程序運行后，在列表框中添加若干列表項。當(dāng)單擊列表框中的某個項目時，在標(biāo)簽Label1中顯示所選中的項目，如下圖所示。Private Sub Form_load() List1.AddItem 北京 List1.AddItem 上海 List1.AddItem 河北End SubPrivate Sub UBound(a) () Label1.Caption= sum = sum

9、 + a(i)End Sub 3. 編寫一子過程，求一維數(shù)組中所有元素之和。Sub procSum(ByRef a%(), ByRef sum%) Dim i% For i = LBound(a) To List1_Click List1.Text Next iEnd Sub4. 在窗體單擊Command1的命令按鈕，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，a(5)與a(6)的值互換。Sub swap(b() As Integer)n=UBound(b)For i=1 To n/2 t=b(i): b(i)=b(n): b(n

10、)=t n=n-1 Next iEnd SubPrivate Sub Command1_Click()Dim a, i%a=Array (1,2,3,4,5,6,7,8,9,10)Call swap(_ a _)For i=1 To 10 Print a(i);Next iEnd Sub得分四、 程序閱讀（5分/題，4小題，共20分）1.有如下事件過程：Private Sub Form_Click()a=6b=8 c=Sqr(a*a+b*b)Print cEnd Sub問題：（1）語句“c=Sqr(a*a+b*b)”的功能是：將a*a+b*b的值開平方，然后賦給變量c。（2）程序運行后，單擊窗

11、體，輸出的結(jié)果是：10。2.有如下程序：Private Sub Form_Click()For m = 1 To 5 For n = 1 To m Print Tab(n + 5); *; Next n PrintNext mEnd Sub問題：（1）語句“Print”的功能是：（1）換行。（2）程序運行后，單擊窗體，輸出的圖案是： * * * * * * * * * * * * * * *3.有如下事件過程： Private Sub Form_Click()Dim n As Integern=8Do While n5 n=n-1 Print n,LoopEnd Sub問題：（1）語句“Do While n5”的功能是：控制循環(huán)，當(dāng)n 的值大于5的時候，就繼續(xù)循環(huán)。（2）程序執(zhí)行后，單擊窗體，輸