程序設(shè)計(jì)試卷及答案

1、1.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動執(zhí)行啟動窗體的某個(gè)事件過程。這個(gè)事件過程是（ ）A)LoadB)ClickC)UnloadD)GotFocus 2.無論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是（ ）A)TextB)FontC)NameD)Caption3.在一行內(nèi)寫多條語句時(shí)，語句之間要用某個(gè)符號分隔。這個(gè)符號是（ ）A)，B)；C)、D)：4.表達(dá)式32*2+3 MOD 104的值是（ ）A)18B)1C)19D)05.下面的變量名合法的是（ ）A)k_nameB)k ameC)nameD)k-name6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達(dá)式是（ ）A

2、)time1 = #11:34:04 #B)time1 = Format(Time,"yy:mm:dd")C)time1 = #"11:34:04"#D)time1 = Format("hh:mm:ss",Time)7.表達(dá)式12000 + "129" & 200的值是（ ）A)12329B)"12129200"C)"12000129200"D)"12329"8.若設(shè)a = 4,b = 5,則下列表達(dá)式值為真的是（ ）A)(True+a)>0

3、 And b>10B)a>b Or b>10-aC)(False-b< 0) Eqv (a>b)D)a>b Xor b+3>59.當(dāng)窗體上的文字或圖形被覆蓋或最小化后能恢復(fù)原貌，需要設(shè)置窗體的屬性是（ ）A)AppearanceB)VisibleC)EnableD)Autoredraw10.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a + bb = b + 4Print a,bEnd Sub程序運(yùn)行

4、后，單擊該命令按鈕三次，屏幕上顯示的值是（ ）A)4 12B)0 4C)4 8D)8 1211.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，構(gòu)成對象的三要素是（ ）A)屬性、控件和方法B)屬性、事件和方法C)窗體、控件和過程D)控件、過程和模塊12.下列程序段錯(cuò)誤的是（ ）A)Dim a As Integera = array(1,2,3,4)B)Dim a(),b()a = array(1,2,3,4):b = aC)Dim a As Varianta = array(1,"asd",true)D)Dim a() As Varianta = array(1,2,

5、3,4)13.表達(dá)式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（ ）A)"I am happy!"B)"I am student I am s am harass studentam happy!"C)"I am student am harass!"D)"I am student am happy!"14.下列程

6、序段中，能正常結(jié)束循環(huán)的是（ ）A)I = 1DoI = I + 2Loop Until I = 10B)I = 5DoI = I + 1Loop Until I < 0C)I = 10DoI = I + 1Loop Until I > 0D)I = 6DoI = I - 2Loop Until I = 115.引用列表框（List1）最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（ ）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1

7、)16.有如下程序：Option Base 1Private Sub Command1_Click()Dim x,y(3,3)x = Array(1,2,3,4,5,6,7,8,9)For i = 1 To 3For j = 1 To 3y(i,j) = x(i*j)If(j > = i) Then Print y(i,j);Next jPrintNext iEnd Sub運(yùn)行時(shí)輸入出的結(jié)果是（ ）A)1 2 32 4 64 6 8B)1 2 32 4 63 6 9C)12 43 6 9D)1 2 34 6917.在窗體上畫一個(gè)名稱為Command1的命令按鈕，編寫如下程序：Privat

8、e Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-n End IfEnd IfEnd Function程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是（ ）A)2B)1C)0D)1618.以下屬性和方法中，可重定義坐標(biāo)系的是（ ）A)DrawStyle屬性B)DrawWidth屬性C)Scale方法D)ScaleMode屬性19.在窗體上畫一個(gè)文本

9、框，然后編寫如下事件過程：Private Sub Form_Load()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum +iNext iText1.text = SumEnd Sub上述程序的運(yùn)行結(jié)果是（ ）A)在文本框中輸出15B)在文本框中輸出0C)在文本框中輸出不定值D)出錯(cuò)20.已知x代表某個(gè)百分制成績，下列程序段用于顯示對應(yīng)的五級制成績，正確的是（ ）A)If x > = 60 ThenPrint "及格"ElseIf x > = 70 ThenPrint "中&q

10、uot;ElseIf x > = 80 ThenPrint "良"ElseIf x > = 90 ThenPrint "優(yōu)"ElsePrint "不及格"End IfB)If x < 90 ThenPrint "良"ElseIf x < 80 ThenPrint "中"ElseIf x < 70 ThenPrint "及格"ElseIf x < 60 ThenPrint "不及格"ElsePrint "優(yōu)&qu

11、ot;End IfC)If x > = 90 ThenPrint "優(yōu)"ElseIf x > = 80 ThenPrint "良"ElseIf x > = 70 ThenPrint "中"ElseIf x > = 60 ThenPrint "及格"ElsePrint "不及格"End IfD)Select Case xCase x > = 90Print "優(yōu)"Case x > = 80Print "良"Case x &

12、gt; = 70Print "中"Case x > = 60Print "及格"Case ElsePrint "不及格"End Select21.下面說法不正確的是( )A)滾動條的重要事件是Change和ScrollB)框架的主要作用是將控件進(jìn)行分組，以完成各自相對獨(dú)立的功能C)組合框是組合了文本框和列表框的特性而形成的一種控件D)計(jì)時(shí)器控件可以通過對Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上22.在窗體上畫一個(gè)名稱為Check1復(fù)選框，在程序運(yùn)行的過程中，若選中復(fù)選框，則Check1.value的值是（ ）A)Tr

13、ueB)2C)0D)123.在下列關(guān)于菜單的說法中，錯(cuò)誤的是（ ）A)每一個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣都有自己的屬性和事件B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如 DblClick等事件過程C)菜單項(xiàng)的快捷鍵不可以任意設(shè)置D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇24.下面關(guān)于多重窗體的敘述中，正確的是（ ）A)作為啟動對象的Main 子過程只能放在窗體模塊內(nèi)B)如果啟動對象是Main 子過程，則程序啟動時(shí)不加載任何窗體，以后由該過程根據(jù)不同情況決定是否加載窗體或加載哪一個(gè)窗體C)沒有啟動窗體，程序不能執(zhí)行D)以上都不對2

14、5.與鍵盤操作有關(guān)的事件有KeyPress、KeyUp和KeyDown事件，當(dāng)用戶按上并且釋放一個(gè)鍵后，這三個(gè)事件發(fā)生的順序是（ ）A)KeyDown、KeyPress、KeyUpB)KeyDown、KeyUp、KeyPressC)KeyPress、KeyDown、KeyUpD)沒有規(guī)律26.要從磁盤上讀入一個(gè)文件名為“c:filel.txt”的順序文件，下面程序段正確的是（ ）A)F="c:filel.txt"Open F For Input As # 1B)F="c:filel.txt"Open "F" For Input As

15、# 2C)Open "c:filel.txt" For Output As # 2D)Open c:filel.txt For Input As # 127.下列關(guān)于過程敘述不正確的是（ ）A)過程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參B)過程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參C)過程的傳值調(diào)用參數(shù)是單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的D)無論過程傳值調(diào)用還是過程傳址調(diào)用，參數(shù)傳遞都是雙向的28.執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是（ ）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor

16、i= 1 to 3Combo1.RemoveItem iNext iEnd SubA)1 5 6B)1 3 5C)4 5 6D)2 4 629.若在Shape 控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應(yīng)（ ）A)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為1B)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為0D)將Sha

17、pe控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為030.下列程序的執(zhí)行結(jié)果是（ ）Private Sub Form_Activate()Dim score(3) As Integer, total As IntegerDim aa_score As Variantscore(1)=50: score(2) =14：score(3)=36tota=0: i=0For Each aa_score In scorei=i+1total=tota + aa+_scorePrint i,aa_score,totalNextEnd SubA)1 0 02 50 503 14 644

18、36 100B)1 50 502 14 643 36 100C)0 50 501 14 642 36 100D)0 0 01 50 502 14 643 36 10031.在Activate 事件過程中，寫入下面的程序：Option Base 1Private Sub Form_Activate()Dim t As IntegerDim a( ) As Varianta=Array (2,4,6,8,10,1,3,5,7,9)For i=1 to 102t= a(i)a(i)=a(10 - i + 1)a(10 - i + 1)=tNext iFor j= 1 to 10Print a(j);

19、Next jEnd Sub運(yùn)行程序后，顯示的結(jié)果是（ ）A)2 4 6 8 10 1 3 5 7 9B)1 3 5 7 9 2 4 6 8 10C)9 7 5 3 1 10 8 6 4 2D)10 8 6 4 2 9 7 5 3 132.在Activate 事件過程中，寫入下面的程序：Private Sub Form _Activate()Dim S As String, a As String, b As Stringa= "*" : b =" $"For i= 1 to 4If i / 2= Int(i / 2) ThenS=String(Len (

20、a)+i , b)ElseS=String(Len(a) + i, a)End IfPrint S;Next iEnd Sub運(yùn)行程序后，顯示結(jié)果是（ ）A)$ *$*B)*$*$*$*$C)*$*$D)$*$*$*$*33.在窗體上設(shè)置相應(yīng)的控件，并在代碼窗口編寫下列程序：Printe Sub Form_Click()Dim a As Long ,b As Longa=InputBox("請輸入若干個(gè)整數(shù)")Call P(a,b)Print bEnd SubPrivate Sub P(x As Long, y As Long)Dim n As Integer, j As String*