計算機語言與程序設(shè)計試題庫含答案

1、試卷一、選擇牌(每跑2分，15小題，共30分)得分. 以下夫乎 VisUal Basic特點的敘述中，錯誤的是()Visual Basic是采用事件驅(qū)動編程機制的語言Visual Basic程序既可以編譯運行，也可以解釋運行C)構(gòu)成Visual Basic的多個過程沒有固定的執(zhí)行順序Visual Basic程序不是結(jié)構(gòu)化程序，不具備結(jié)構(gòu)化的三種基本結(jié)構(gòu). Visual Basic工程文件的擴展名是()。A) .frmB) .vbwC) .vbpD) .bat. VB是一種面向(B)的程序設(shè)計語言。A)機器 B)對象 C)過程D)應(yīng)用.以下關(guān)于對象的敘述中，錯誤的是()A)在Visual Bas

2、ic中，對象所能響應(yīng)的事件是由系統(tǒng)定義的B)對象的任何屬性既可以通過屬性窗口設(shè)定，也可以通過程序語句設(shè)定Visual Basic中允許不同對象使用相同對象名和方法Visual Basic中的對象具有自己的屬性和方法.當(dāng)程序運行時，系統(tǒng)自動執(zhí)行啟動窗體的()事件過程。A) UnloadB) Click C) LoadD) GotFocus.要求在文本框中輸入密碼時文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)置 TOC o 1-5 h z ()。A) Text屬性值為*B) Caption屬性值為*C) PasswordcharH性值為 *D) Passwordchar屬性值為真.數(shù)學(xué)表達式

3、0&a100在VB中的邏輯表達式為()。A) 0=a=0 OR a100C) 0=a AND a100D) 0=a AND a(i) Then (2)Next iEnd Sub.用InputBox函數(shù)輸入小于40的正整數(shù)。計算機下面表達式的值，并在標(biāo)簽Label1上輸?shù)?頁共14頁n (n 1)【程序】Private Sub Command1_Click()Dim n%, s!, i%n=Val(InputBox(輸入 n (140)”)Do While n=40(3)n=Val(InputBox( n超出范圍，請重新輸入”)Loops=0For i=1 to n s=s+ (4)Next i

4、Label1=s=& sEnd Sub.對已知存放在數(shù)組中的6個數(shù)，用選擇法按遞增順序排序?！境绦颉縋rivate Sub Command1_Click()Dim a( ) , iMin%, n% , i%, j%, t%A=Arry(8, 6, 9, 3, 2, 7) n=Ubound(a) For i=0 to n-1iMin=iFor j=i+1 to nIf (5) Then iMin=jNext j t=a(i) (6) a(iMin)=tNext iFor i=Lbound(a) to Ubound(a) Print a(i)Next i End Sub1 222 33333444

5、444455555戈556B&6666666&T7TTTT7T77TTT808808080838808ggggggggggq99999g.在窗體上輸出金字塔型數(shù)字，如圖所示。【程序】Private Sub Form_click()For i =77)Print Spc(9 - i);For j = 1 To(8)Print Format(i, 0);Next jPrint第3頁共14頁Next iEnd SubH Form1_|n| xi.以下是一個使用列表框?qū)崿F(xiàn)排序、查找、刪除的應(yīng)用程序。窗體上有一個列表框、一個 文本框、兩個按鈕。文本框用來輸入一個數(shù)，兩個按鈕分別實現(xiàn)將該數(shù)插入列表框和從列

6、表 框中查找刪除。界面如圖所示?！静糠殖绦颉縋rivate Sub Form_Load()Dim a, i%, k%, x%, n%a = Array(1,4, 7, 9, 12, 14, 23, 56) n = UBound(a) For i = 0 To n該循環(huán)用來在列表框顯示a數(shù)組的值(9) Next iEnd SubPrivate Sub Command1_Click()插入x = Val(Text1)For k = 0 To List1.ListCount - 1查找欲插入數(shù)x在列表框中的位置If (10)Then Exit ForNext kList1.AddItem x, k

7、End Sub得分四、程序閱讀(每小題5分，4小題，共20分)注：每行程序前面的數(shù)字是行號。.請閱讀以下程序，回答下面的問題：10 Private Sub Form_Click()Dim n%n = 9Do While n 6n = n - 1Print n;LoopEnd Sub問題：(1)程序的輸出結(jié)果是？ (2)第10行語句的含義是？ 2.請閱讀以下程序，回答下面的問題10 Private Sub Text1_LostFocus()20 Dim str As String * 430str = LCase(Text1)40If str wuyi Then第4頁共14頁41Textl =4

8、2Textl.SetFocus43 End If50 End Sub問題：(1)第20行語句的功能是？ (2)第40至43行語句的功能是？ 3.請閱讀以下程序，回答下面的問題Function f%(x()Dim i%f = 0For i = 0 To UBound(x)f = f + x(i)Next iEnd FunctionPrivate Sub form_Click()Dim a(), s%22a = Array(5,3, 15, 17, 9)s = f(a()Print sEnd Sub問題：(1)第10至16行語句的功能是? (2)第20至25行語句的功能及程序的輸出結(jié)果是 ？ 4.

9、請閱讀以下程序，回答下面的問題10 Private Sub Form_Click()20 For i = 1 To 521 Print Tab(i); String(10 - 2 * i), Chr(64 + i)22 Next i30 End Sub問題：程序的輸出結(jié)果是?得分第21行語句的功能是？ 程序設(shè)計(每小題5分，2小題，共10分)編程實現(xiàn)兩個矩陣相加，要求：(1)在Form_Load()事件中，利用隨機函數(shù)產(chǎn)生兩個 4X4矩陣(數(shù)值在1050范圍內(nèi))，并在Picture1和Picture2框中按圖中所示輸出；(2)在Picture3_Click()事件中，計算兩個矩陣之和，并在Pi

10、cture3框中按圖中所示輸出。第5頁共14頁 Foi&l口創(chuàng)矩陣我矩陣B矩陣C383133212241104】433g112&45422549+45124&24314L1234Z9223536-20214443634361455332227572514B52656369921、D2、C6、 C7、C11、C12、B二、得分1、可視化3、55、隨機文件7、運行模式9、窗體三、得分| 一(1) UBound(a) n40(5) a(j)a(iMin)(7) 1 To 9(9)選擇題(每題3、B8、A13、B試題一參考答案2分，15小題，共30分)4、C5、C9、B10、A14、B15、D填空題(

11、每空2分，10空，共2、Exit Do4、傳佰6、字符型8、屬性10、冒號程序填空(每空2分，每小題2空(2) min = a(i)(4) 1/(i*(i+1)(6) a(i)=a(iMin)(8) 2 * i - 1四、Hi分List1.AddItem a(i) (10) x Val(List1.List(k)程序閱讀(每小題5分，4小題，1. (1) 8 7 6第6頁共14頁(2)窗體的單擊事件過程(1)定義str為定長的字符串變量(2)當(dāng)Textl中輸入的不是wuyi字符時將焦點移至Textl并清空(1)輸出15的奇數(shù)的乘積與和，輸出結(jié)果為t=15,s=9(2)定義i,t,s均為整型變量

12、(1)輸出由ABCD字母組成的倒金字塔(第1行8個A,第2行6個B,第3行4個C,第4 行2個D)AAAAAAAABBBBBBCCCCDD(2)將光標(biāo)定位在由Tab(i)指定的列位置處，接著輸出由String函數(shù)指出的10-2*i個相同 的字母(2分).得分程序設(shè)計(每小題5分，2小題，共10分)參考程序如下:Option Base 1Dim a(4, 4), b(4, 4) As IntegerPrivate Sub Form_Load ()For i = 1 To 4Forj = 1 To 4a(i, j) = Int(Rnd * 41 + 10)b(i, j) = Int(Rnd * 4

13、1 + 10)Picture1.Print Tab(j - 1) * 5); a(i, j);Picture2.Print Tab(j - 1) * 5); b(i, j);Next jNext iEnd SubPrivate Sub Picture3_Click()Dim c(4, 4) As IntegerPicture3.ClsFor i = 1 To 4Forj = 1 To 4c(i, j) = a(i, j) + b(i, j)Picture3.Print Tab(j - 1) * 5); c(i, j);Next j第7頁共14頁試卷二一、選擇題(2分/題,15小題，共30分).

14、工程文件的擴展名是(B )0A) vbgB) vbpC) vbwD) vbl.如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是 (A)。A) CaptionB) NameC) BackColor D) BorderStyle.函數(shù)Right(歡迎學(xué)習(xí)Visual Basic”,5)執(zhí)行的返回值是(D )A)歡迎學(xué)習(xí)Vi”B)歡迎學(xué)”C)Visual”D)Basic”.以下能判斷是否到達文件尾的函數(shù)是(D )A) BOF B) LOCC) LOF D) EOF.若有數(shù)組說明語句為：Dim a(-2 to 5),則數(shù)組a包含元素白個數(shù)是(BA) 7B) 8C) 9D) 10. VB的過程有三種，它們是(D

15、)。A) Sub過程、Function 過程和 Property 過程B)事件過程、函數(shù)過程和屬性過程C) Sub過程、函數(shù)過程和通用過程D)事件過程、子過程和函數(shù)過程.設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體Loop While 則以下敘述中錯誤的是(A )A)若條件”是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體B)條件可以是關(guān)系表達式、邏輯表達式或常數(shù)C)循環(huán)體中可以使用Exit Do語句D)如果條件總是為True,則不停地執(zhí)行循環(huán)體. Function過程有別于Sub過程的最主要的特點是(D )。Function過程一定要有形參，而Sub過程可以沒有形參End SubFunction過程的終端語句是 End

16、 Function,而Sub過程的終端語句是Function過程用于計算函數(shù)值，而Sub過程用于改變屬性值Function過程要返回函數(shù)值，而Sub過程沒有數(shù)值返回.當(dāng)程序運行時，系統(tǒng)自動執(zhí)行啟動窗體的(C)事件過程。A)UnloadB)ClickC)LoadD)GotFocus.邏輯運算符的優(yōu)先級( B A)關(guān)系運算符的優(yōu)先級。A)低于B)高于C)小于D)等于.數(shù)學(xué)表達式0&a100在VB中的邏輯表達式為(C )A) 0=a=0 OR a100C) 0=a AND a100D) 0=a AND b, a, b)50 End Sub問題：(1)程序的輸出結(jié)果是？ (2)第10行語句的含義是？

17、(3)第20行語句的功能是？ 2.請閱讀以下程序，回答下面的問題10 Private Sub Text1_LostFocus()20 Dim stri As String30stri = Trim(Text1)40If Not IsNumeric(stri) Then41Text1 =42Text1.SetFocus43 End If50 End Sub第11頁共14頁問題：(1)第20行語句的功能是？ (2)第40至43行語句的功能是？ 3,請閱讀以下程序，回答下面的問題：Function f%(x()Dim i%f = 0For i = LBound(x) To UBound(x)f =

18、f + x(i)Next iEnd FunctionPrivate Sub form_Click()Dim b(), s%22b = Array(3,1, 17, 5, 9)s = f(b()Print sEnd Sub問題：(1)第10至16行語句的功能是? (2)第20至25行語句的功能及程序的輸出結(jié)果是 ？4,請閱讀以下程序，回答下面的問題：10 Private Sub Form_Click()20Dim a%(29)30For i = 0 To 2931a(i) = Int(Rnd * 101)32 If i Mod 5 = 0 Then Print33Print a(i);34 Ne

19、xt i40 End Sub問題：第31行語句的功能是？ 第32至33行語句的功能是？ 745S62363T30117g84741447&83143977437640853ao74ai62ii144335794797FdzbI 回區(qū)矩陣山矩陣A轉(zhuǎn)直五、得分程序設(shè)計(每小題5分，2小題，共10分) 編程實現(xiàn)矩陣轉(zhuǎn)置(即矩陣的行和列互換)，要求：(1)在Form_Load()事件中，利用隨機函數(shù)產(chǎn)生一個4X4矩陣A(數(shù) 值在10100范圍內(nèi))，并在Picture1框中按圖中所示輸出；(2)在Picture2_Click()事件中，將矩陣A轉(zhuǎn)置保存在矩陣B中，并 在Picture2而中按圖中所示輸出。試卷二參考答案選擇題2分，15小題，共30分)、得分程序填空(每空2分，每小題2空，5小題,20分)(1) UBound(a)sum = sum + a(i)(3) 1 To 9(4) 2 * i - 1(5) List1.AddItem Text1 (6) List1.RemoveI