VB程序設(shè)計考試

1、VB程序設(shè)計考試（1）一、單選題（每題1分，共50題）.Visual Basic 6. 0集成環(huán)境的主窗口中不包括（C ）。 正確A.標題欄B.菜單欄 C.狀態(tài)欄D.工具欄.以下不屬于Visual basic的工作模式的是（）模式。正確答案：AA.編譯 B.設(shè)計 C.運行 D.中斷.如果文本框的Enabled屬性被設(shè)置為False,則運行時（）。正確答案：AA.文本框中的文本將變成灰色，并且此時用戶不能將光標置于文本框上B.文本框中的文本將變成灰色，用戶仍然能將光標置于文本框上，但是不能改變文本框中的 內(nèi)容C.文本框中的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容D.文本框的文本正常顯示，用戶

2、能將光標置于文本框上，但是不能改變文本框中的內(nèi)容.控制名稱都是系統(tǒng)的默認控件名，下列語句錯誤是（）。正確答案：DA.Command1.Caption=List1.Text;B.Label1.Caption=List1.List；C.List1.List（2）=List1.Text+Str（List1.ListIndex）;D.Text1.Text=List1.Name+Text1.Caption。.以下敘述中正確的是（）。正確答案：AA.Name屬性用來標識對象B.窗體Name屬性值顯示在標題欄中C.運行時對象Name屬性可變D.對象的Name屬性值可以為空.Abc%, abc!, abc$,

3、 abc#分別聲明 abc 是（ ）。正確答案：A兒整型、單精度、字符串、雙精度變量B.整型、整型、字符串、雙精度變量C.單精度、整型、字符串、雙精度變量第1頁共1頁D.整型、雙精度、字符串、雙精度變量.Visual Basic的邏輯類型數(shù)據(jù)占（A ）字節(jié)內(nèi)存。 正確A.2 B.4 C.8 D.16.如果邏輯與（AnD）運算的結(jié)果為真，與它所連接的兩個條件必須是（C ）。 正 確A.前一個為真，后一個為假.前一個為假，后一個也為假C.前一個為真，后一個也為真D.前一個為假，后一個為真設(shè)a=6,則執(zhí)行x=iif（a5,-1,0）后，x的值為（D ）。 正確A.5B.6C.0D.-1.下面的數(shù)組聲

4、明語句中（）是正確的。正確答案：BA.Dim A3， 4 As IntegerB.Dim A（3， 4） As IntegerC.Dim A3； 4 As IntegerD.Dim A（3； 4） As Integer.用于獲得字符串S從第5個字符開始的3個字符的函數(shù)是（）。正確答案：AA.Mid（S,5,3）B.Middle（S,5,3）C.Right（S,5,3）D.Left（S,5,3）.觸發(fā)文本框Change事件的操作是（）正確答案：AA.改變文本框的內(nèi)容B.改變文本框的大小第2頁共2頁C.文本框獲得焦點D.文本框失去焦點13.下列語句正確的是（A ） 正確A.If XY Then Y

5、=X3B.If XY Then Y=X3C.If X丫 Then Y=X3D.If XY Then Y=X*3.下列控件屬性賦值語句錯誤的是（D ） 正確Labell = 歡迎Textl.Text =歡迎Textl = 歡迎Text =歡迎.下列程序段的執(zhí)行后，TEXT1顯示的結(jié)果為（）。a = 0 : b = 1 Doa = a + bb = b + 1Loop While a 10TEXT1.Text = a & / & b 正確答案：AA. 10/5 B. a/b C. 0/1 D. 10/30.運行下列程序段后，輸出的*個數(shù)是（）。For I=1 To 2For j=0 To I-1P

6、rint *Next jNext I正確答案：CA.1B.2C.3D.4.正確使用Cls方法的是（）正確答案：BA. Text1.Cls第3頁共3頁B. Picturel.ClsListl.ClsImagel.Cls18.下列敘述中，錯誤的是()正確答案：BA.標簽和文本框都有Move方法B.標簽和文本框都有Text屬性C.標簽具有Caption屬性，而文本框沒有D.文本框具有Locked屬性，而標簽沒有.在VB中，若要將控制權(quán)交還給操作系統(tǒng)，則實現(xiàn)的語句是()。正確答案：BA.DO EVENTSB.ENDC.EXIT SUBD.EXIT DO.在窗體上畫一個名稱為Command1的命令按鈕，

7、然后編寫如下通用過程和命令按鈕的事件 過程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End FunctionPrivate Sub Command1_Click() Dim I As Integer s = 0 For I = 1 To 5 s = s + f(I) Next Print s End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的是()正確答案：CA.11B.10C.9D.8A.11B.10C.9D.8第4頁共4頁.窗體上有一個命令按鈕Commandl,編寫如下事

8、件過程： Private Sub Command1_Click() x = InputBox(x=”) y = InputBox(y=) Print x + yEnd Sub運行后，單擊命令按鈕，先后在兩個輸入對話框中輸入123和321,窗體顯示的內(nèi) 容是(B ) 正確444123321123+321D.出錯信息.能使文本框Text1中文本不可編輯的語句是(D ) 正確Text1.Editable = FalseText1.Enabled = TrueText1.TabStop = FalseText1.Locked = True.當文本框的TabStop屬性設(shè)為False時，下列敘述正確的是

9、(D ) 正確A.該文本框無法獲得焦點B.無法在該文本框中輸入文本C.焦點將始終停留在該文本框上D.該文本框無法通過使用Tab鍵獲得焦點.以下程序的輸出結(jié)果是()。 Dim aa=Array(1, 2, 3, 4, 5, 6, 7) For i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) Next i Print a(i) 正確答案：DA. 49 B. 0C.不確定 D.程序出錯第5頁共5頁.設(shè)有命令按鈕Commandl的單擊事件過程 Private Sub Command1_Click() Dim a(3,3) AS Integer For i=1 To 3

10、For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=O For i=1 To 3Sum=Sum+a(i,4-i) Next i Print Sum End Sub運行程序，單擊命令按鈕，輸出結(jié)果是()。正確答案：CA.20B.7C.16D.17.窗體上畫一個命令按鈕，其名稱為Command，然后編寫如下事件過程: Private Sub Command1_Click()Dim A(5, 5)For I = 1 To 3For J = 1 To 4A(I, J) = I * JNext J Next I For N = 1 To 2For M = 1 To 3

11、Print A(M, N);Next MNext NEnd Sub窗體運行后，單擊命令按鈕，輸入結(jié)果是()。 正確答案：CA.1 2 3 4 2 4B.1 2 3 4 6 8C.1 2 3 2 4 6D.1 2 3 6 3 6.下列關(guān)于數(shù)組的描述，不正確的是()。正確答案：D第6頁共6頁A.數(shù)組元素就是數(shù)組中的某一個數(shù)據(jù)項B.可以在聲明時將數(shù)組聲明為靜態(tài)數(shù)組或動態(tài)數(shù)組C.在VB中，控件數(shù)組的建立只有兩種方法D.聲明數(shù)組時，數(shù)組的下標上下界可用已賦值的變量表示.在窗體上用復(fù)制、粘貼的方法建立一個命令按鈕數(shù)組，數(shù)組名為M1。設(shè)窗體Form標題 為“1代皿1”，雙擊控件數(shù)組中的第三個按鈕，打開代碼編

12、輯器，寫下如下代碼：Private Sub M1_Click(Index As Integer)Forml.Caption = No3End Sub運行時，單擊按鈕數(shù)組中的第一個按鈕，窗體標題為：(D ) 正確FormM1myform1No3.以下數(shù)組聲明語句中，正確的是(B )。 正確A.Dim a3, 4 As IntegerB.Dim a(3, 4) As IntegerC.Dim a(m, n) As IntegerD.Dim a(3； 4) As Integer.以下是窗體的Click事件過程Form_Click的程序代碼：Option Base 1Private Sub Form_

13、Click()Dim a(10) As Integer, p(3) As IntegerDim I As Integer, k As Integerk=0For I=1 To 10a(i)=2*(I-1) + 1Next IFor I=1 To 3p(i)=a(I*I)Next IFor I=1 To 3第7頁共7頁k=k +p（i）2Next IPrint kEnd Sub在程序運行過程中，單擊窗體時，程序的輸出結(jié)果為（）。正確答案：DA.5B.7C.9D.11.聲明一個變量為全局變量應(yīng)該用（D ）關(guān)鍵字。 正確A.DimB.PrivateC.StaticD.Public.根據(jù)變量的作用域，

14、可以將變量分為3類，分別為（A ）。 正確A.局部變量、模塊變量和全局變量B.局部變量、模塊變量和標準變量C.局部變量、模塊變量和窗體變量D.局部變量、標準變量和全局變量.編寫如下事件過程：Private Sub Form_Click（）Dim a As Integer,b As Integera=10： b=20Call pl（a， b）Print a= ； a； b=；bEnd SubPrivate Sub pl（ByVal x As Integer,y As Integer）x=5y=x+yEnd Sub程序運行時，單擊窗體后，窗體上顯示的值是（）。正確答案：BA.a=10 b=20B.

15、a=10 b=25第8頁共8頁C.a=5 b=25D.a=5 b=20.可以執(zhí)行“工具”菜單中的（）命令來建立通用過程。正確答案：CA.添加過程B.通用過程C.添加模塊D.添加窗體35.下列程序運行時，兩次單擊窗體后，顯示的結(jié)果是（C ）。 Private Sub Form_Click（）Dim b As IntegerStatic C As Integerb=b+2c=c+2Print“b二；b;“c二；cEnd Sub 正確A.b=2 c=2b=2 c=2B.b=1 c=2（換行 b=2 c=2C.b=2 c=2（換行 b=2 c=4D.b=2 c=2（換行 b=4 c=236.如果在程序

16、中要將c定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語句是（）。正確答案：BA.Redim a As IntegerB.Static a AS IntegerC.Public a As IntegerD.Dim a As Integer.在列表框中當前被選中的列表項的序號是由下列（）屬性表示的。正確答案：CA.List第9頁共9頁B.IndexC.ListIndexD.Tablndex.下列（D ）方法不是通用對話框可以使用的方法。正確A.ShowOpenB.ShowColorC.ShowFontD.ShowSize.列表框中的列表框的數(shù)目可通過以下（B ）屬性的值獲得。正確A.CountB.Lis

17、tcoumC.ListlndexD.Index.計時器的interval屬性為0時，表示（）。正確答案：AA.計時器失效C.相隔0毫秒相隔0秒D.計時器的enable屬性為false.設(shè)a$= China，將China增加到列表框List開頭位置，下列完成此項操作正確的語句是（C ）。 正確A.Listl.addItem a$B.Listl.addItem a$C.Listl.addItem a$， 0D.AddItem a$ 0第10頁共10頁.想要不使用【Shift】鍵或【Ctrl】鍵就能在列表框中同時選擇多條項目，則應(yīng)把該列表 框的MultiLine屬性設(shè)置為（）。正確答案：CA.0B.

18、1C.2D.其他.編寫如下事件過程：Private Sub Form_MouseDown（Button As Integer,Shift As Integer, _X As Single,Y As Single）If Shift=6 And Button=2 ThenPrint “Hello”End IfEnd Sub程序運行后，為了在窗體上輸出“Hello”，應(yīng)在窗體上執(zhí)行以下（）操作。正確答 案：DA.同時按下Shift鍵和鼠標左按鈕B.同時按下Shift鍵和鼠標右按鈕C.同時按下Ctrl、Alt鍵和鼠標左按鈕D.同時按下Ctrl、Alt鍵和鼠標右按鈕44.如果列表框Listl中沒有選定的項目，則執(zhí)行Listl.RemoveItem Listl.ListIndex語 句的結(jié)果是（）。正確答案：DA.移去第一項B.移去最后一項C.移去最后加入列表中的一項D.以上都不