上海計(jì)算機(jī)二級(jí)VB試題

1、2010年上海市高等學(xué)校計(jì)算機(jī)等級(jí)考試試卷二級(jí)Visual Basic 程序設(shè)計(jì)(考試時(shí)間120分鐘A卷)、單選題(共15分，每題是合法的變量名。A. X_yzC.ln teger2.Rnd函數(shù)不可能的返回值是A.11.B.123abcD. X Y【A】【A】B. 0C. 0.00013.要將一個(gè)值傳遞給子過(guò)程 是。參數(shù)，并通過(guò) n參數(shù)返回一個(gè)結(jié)果,子過(guò)程定義中正確的【B】A. Sub A(ByVal m!, ByVal n!)B. Sub A(ByVal m!, ByRef n!)C. Sub A(ByVal m!, ByRef (n+1)!)D. Sub A(ByVal m+1, ByVa

2、l n+2)4.能在窗體Form1的標(biāo)題欄中顯示A. Form1. Name="VisualBasicVisualBasic窗體”窗體”的語(yǔ)句是B. Form1. Title="VisualBasic【C】窗C. Form1. Caption="VisualBasic窗體”體“5. 在用通用對(duì)話框控件建立打開(kāi)文件對(duì)話框時(shí)，則Filter屬性的正確設(shè)置是 。A. Picture(.jpg)|*jpgB. Picture(.jpg)(*jpg)C. 圖片文件|(.jpg)d.圖片(.jpg)|*.jpg6. 關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是A. 用Hide方法隱藏窗

3、體，用ShowB. 可以根據(jù)需要指定啟動(dòng)窗體C. 若各窗體都建立了一個(gè)文本框控件( TextBox)，它們的Name不能相同D. 若各窗體都有菜單，則各菜單是彼此獨(dú)立的7. 按照結(jié)構(gòu)化程序設(shè)計(jì)的要求， 語(yǔ)句是非結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)句。A.If語(yǔ)句B.For 語(yǔ)句C.GoTo 語(yǔ)句D.Select Case語(yǔ)句8. 同一個(gè)窗體中，各個(gè)對(duì)象的 屬性值是不同的，它用于唯一識(shí)別對(duì)象。A. LocationB. NameC.Size TextD. Select Case語(yǔ)句在文件列表框中只允許顯示 jpg圖像類(lèi)型的文件,D】【C】方法顯示窗體【c】【B】【C】A. Men ul.E nabled=False

4、C. Men u1.Visible=True【A】10. 要暫時(shí)關(guān)閉定時(shí)器，應(yīng)把定時(shí)器的A. VisibleC. En abled11. 在VB中，屬于方法的是 A. SetFocusB. LostFocusB. Men u1.E nabled=TrueD. Men u1.Visible=False屬性設(shè)置為False。B. TimerD. I nterval【A】A.0 99C. 1 9913.列表框List1確的。中已有5個(gè)列表項(xiàng)，要?jiǎng)h除列表框List1最后一項(xiàng),語(yǔ)句是正【A】A. List1.RemoveltemList1.ListCo unt - 1C. KeyPressD. Sele

5、ctedText12.使用Dim A（100） As Single語(yǔ)句聲明了數(shù)組 A，A數(shù)組的下標(biāo)取值范圍是 【B】B.0 100D.1 1005C. List1. RemoveList1.ListCo unt - 1D. List1.Remove 514.要向D盤(pán)根目錄下的名為data.txt的順序文件中添加內(nèi)容，應(yīng)先使用語(yǔ)句打開(kāi)文件?！綛】A. Ope n"data.txt" ForAppend As #1B. Open"D:data.txt" ForAppend As #1C. Ope n"data.txt" ForOutput

6、As #1D. Ope n"D:data.txt" ForOutputAs #115.要使文本框輸入的字符均顯示為*，則設(shè)置。【D】A.Visible屬性為B. Name屬性為*C. Text屬性為*D. PassWordChar屬性為二、程序調(diào)試題（共20分，每錯(cuò)2.5分，第1題有2處錯(cuò)，第2題3處錯(cuò)，第3題3處 錯(cuò)）啟動(dòng)工程文件C:kscxts1.vbp ，程序存在8處錯(cuò)誤，請(qǐng)調(diào)試改正，并按原文件名和位 置保存。正確結(jié)果見(jiàn)樣例cxts1.exe。改的語(yǔ)句必須在句尾加上注釋標(biāo)記 *。調(diào)試改錯(cuò)題1,程序中有2個(gè)錯(cuò)誤。以下程序的功能是在文本框中輸入百分制成績(jī)，單擊按鈕后，在標(biāo)

7、簽上顯示成績(jī)等第，分優(yōu)秀、合格和不合格，規(guī)定：成績(jī)?yōu)椤眱?yōu)秀"60 w成績(jī)80為"合格”；成績(jī)60為"不合格”。Private Sub Comma nd1_Click()Dim d%, s$d = Val(Text1.Text)10Select Case dCase d>=8s ="優(yōu)秀“Case 6 To 7s="合格"Case Elses ="不合格”End SelectLabell.Text =" 成績(jī)等第為：” + sEnd Sub正確答案：Case Is >= 8 或 8 To 10 或 8,9

8、,10Labell.Caption或 Labell調(diào)試改錯(cuò)題2,程序中有3個(gè)錯(cuò)誤。單擊“調(diào)試改錯(cuò)題2 ”按鈕，在Picturel顯示有規(guī)律數(shù)字字符和字母字符圖，見(jiàn)樣例。Private Sub Comma nd2_Click()Dim ch$,i%,j%Picturel.ClsFor i = 1 To 5Ch = Trim(i)For j = 1 To 5'輸出數(shù)字字符Picture1.Pri nt Ch;Next jPicture1.Pri nt Space(3);For j = i To 5'輸出字母字符Picturel.Pri nt Chr(65);Next jPictur

9、el.Pri ntNext jEnd Sub正確答案：For j = 1 To iPicture1.Pri nt Chr(i+64);Next i調(diào)試改錯(cuò)題3,程序中有3個(gè)錯(cuò)誤。單擊“調(diào)試改錯(cuò)題3 ”按鈕，自動(dòng)產(chǎn)生兩個(gè) 5999之間的隨機(jī)正整數(shù)a,b，在Text2 顯示較小的數(shù)a, Text3顯示較大的數(shù)b。計(jì)算a到b之間的偶數(shù)和，結(jié)果顯示在Label3。Private Sub Comma nd2_Click()Dim a%, b%, c%, i%a = In t(R nd * 995 + 5)b = In t(R nd * 995 + 5)If a > b The nt = b: a

10、= b: b = tEnd IfTextl = aText2 = bs = 1For i = a To bIf Mod(i,2)=0 The n s = s + iNext iLabel3 = "Sum=" & sEnd Sub正確答案：t=aS=0i mod 2 = 0三、程序填空題(共30分，每空2 .5分)2 2 2 21 按公式s 123n ,求累加和s不超過(guò)1000的最大項(xiàng)數(shù)n。要求每行顯示每個(gè)n的累加和如圖所示，并將全部結(jié)果保存在c:data.txt 中。Private Sub Form_Click()Dim n%, s$n = 1s =(1)Print

11、 " N", " S"Do While (2 )s = s + n * nPrint n, sn=n+1140204Z3510365115012加相K越迪wcogg磁項(xiàng)數(shù)oopPrint"累加和不超過(guò)1000的最大項(xiàng)數(shù)n=" n - 2'Open "c:jg.txt" For(3) As #1Print #1, "n=" n - 2Close #1End Sub答案：(1) 0(2 ) s < 1000(3) Output2.以下

12、程序段的功能是：在一個(gè)字符串變量 str1中查找子串變量str2中出現(xiàn)的個(gè)數(shù),并顯示是否找到及查找到的結(jié)果。樣例為查找子串"at"出現(xiàn)的個(gè)數(shù)為2個(gè)。Private Sub Form_Click()Dim str1$, str2$, cd1%, cd2%, n%, i%str1 = Text1.Textstr2 = Text2.Textcd1 = Len (str1)cd2 = Len (str2)i = 1n = 0Do While i <=(1)If Mid(str1, i,(2) = str2The nn = n + 1End If(3)LoopIfThe nLa

13、bel3 ="找到了 " & n & "個(gè)"ElseLabel3 ="沒(méi)有找到！”End IfEnd Sub答案(1)cd1cd1-cd2+1(2)2(3)i=i+1(4)n>03.以下程序段的子過(guò)程 RightShift的功能是：將一維字符數(shù)組s中的元素循環(huán)右移一 位并輸出變動(dòng)后的結(jié)果。給定的字符數(shù)組元素循環(huán)右移，樣例為右移3次的結(jié)果。Private Sub Comma nd1_Click()Dim i%, m%, a()a = Array("A", "B", "C&qu

14、ot;, "D", "E", "F", "G", "H")Print "原始順序?yàn)椋?quot;For i = 0 To UBou nd(a)Print a(i) & ""Next iPrint(1)= In putBox("請(qǐng)輸入右移位數(shù)：")For i = 1 To mPrint "第” & i & ”次右移后："Call(2)Next iEnd SubSub RightShift(ByRef s(

15、)Dim Last$, i%, n%n =(3)Last = s(n)For i = n To 1 Step -1 逐位右移s(i) =Next is(0) =(5)For i = 0 Ton顯示右移后的結(jié)果Print s(i) & ” "Next iPrintEnd Sub答案：（1）m(2) RightShift(a)(3) UBound(s)(4) s(i - 1)( 5)Last四、編程題（35分）1 .參見(jiàn)樣例，在 Form1窗體上放置2個(gè)列表框。建立如下菜單:菜單項(xiàng)菜單名備注-應(yīng)用Menu1一級(jí)菜單產(chǎn)生Men u11二級(jí)菜單計(jì)算Men u12二級(jí)菜單-bar分隔線結(jié)束Men u13二級(jí)菜單繪圖Menu2一級(jí)菜單在Form2上，放置“繪圖”和“返回”2個(gè)命令按鈕。2 .單擊“產(chǎn)生”菜單項(xiàng)，在列表框Listl中隨機(jī)生成10個(gè)3位正整數(shù)。單擊“計(jì)算”菜單項(xiàng)，在列表框 List2中顯示Listl各數(shù)據(jù)項(xiàng)每位數(shù)之和。3 單擊“繪圖”菜單項(xiàng)時(shí)，顯示窗體2，并隱藏窗體1 ;單擊"結(jié)束"菜單項(xiàng)時(shí)，結(jié)