一、選擇題
    1、任何控件都有的屬性是( )。
    A.BackColor
    B.Caption
    C.Name
    D.BorderStyle
    2、設(shè)計數(shù)據(jù)庫的存儲結(jié)構(gòu)屬于(　　)
    A.需求分析
    B.概念設(shè)計
    C.邏輯設(shè)計
    D.物理設(shè)計
    3、某人創(chuàng)建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是(　　)。
    A.在工程屬性對話框中把"啟動對象"設(shè)置為Form2
    B.在Forml 的Load 事件過程中加入語句Load Form2
    C.在Form2的Load 事件過程中加入語句Form2.Show
    D.把Form2的TabIndex 屬性設(shè)置為l ，把Form1的TabIndex 屬性設(shè)置為2
    4、設(shè)有如下通用過程：
    Public Function Fun(xStr As Stri ng)As Stri ng
    Di mt Str As Stri ng ，strLAs Integer
    tStF=""
    strL=Len(xStr)
    i =1 Do While i <=strL/2
    tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)
    i =i +l
    Loop
    Fun =tStr
    End Function
    在窗體上畫一個名稱為Co mmand1的命令按鈕。然后編寫如下的事件過程：
    Private Sub Co mmandI_Click()
    Di mS1As Stri ng
    S1="abedef"
    Pri m UCase(Fun(S1))
    End Sub
    程序運行后，單擊命令按鈕，輸出結(jié)果是(　　)。
    A.ABCDEF
    B.abcdef
    C.AFBECD
    D.DEFABC
    5、下列關(guān)于棧的描述正確的是(　　)。
    A.在棧中只能插入元素而不能刪除元素
    B.在棧中只能刪除元素而不能插入元素
    C.棧是特殊的線性表，只能在一端插入或刪除元素
    D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素
    6、下列程序段的運行結(jié)果是(　　)。
    Sub sele(　　)
    Di mn As Integer
    i =21：n =3
    Do While i >n
    i =i -n
    Loop
    Print i
    End Sub
    A.2
    B.4
    C.5
    D.3
    7、復(fù)選框的Value 屬性為0時，表示該復(fù)選框(　　)。
    A.未被選中
    B.被選中
    C.框內(nèi)有灰色的勾
    D.操作有誤
    8、在窗體上有一個名稱為Check1的復(fù)選框數(shù)組(含4個復(fù)選框)，還有一個名稱為Text1的文本框，初始內(nèi)容為空。程序運行時，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見圖)。下面能實現(xiàn)此功能的事件過程是(　　)。
    A.Private Sub Check1_Click(Index As Integer)
    Text1.Text =""
    For k =0To 3
    If Check1(k).value =1Then
    Text1.Text =Text1.Text &Check1(k).Caption &""雙引號中是空格 End If Next k
    End Sub
    B.Private Sub Check1_Click(Index As Integer)
    For k =0To 3
    If Check1(k).Value =1Then
    Text1.Text =Text1.Text &Check1(k).Caption &""雙引號中是空格
    End If
    Next k
    End Sub
    C.Private Sub Check1_Click(Index As Integer)
    Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then
    Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號中是空格
    End If
    Next k
    End Sub
    D.Private Sub Check1_Click(Index As Integer)
    Text1.Text ="" For k =0To 3
    If Check1(k).Value =1Then
    Text1.Text =Text1.Text &Check1(k).Caption &""雙引號中是空格
    Exit For
    End If
    Next k
    End Sub
    9、在窗體上添加一個命令按鈕，名為Co mmand1，其單擊事件中有下列程序段，則事件過程執(zhí)行后，文本框中輸出
    (　　)。
    For i =1To 4
    For j=1To 3
    x=3
    For k =1To 2
    x=x+3
    Next k
    Next j
    Next i
    Textl .Text =Str(x)
    A.3
    B.6
    C.9
    D.12
    10、下列關(guān)于Sub 過程的敘述正確的是(　　)。
    A.一個Sub 過程必須有一個Exit Sub 語句
    B.一個Sub 過程必須有一個End Sub 語句
    C.在Sub 過程中可以定義一個Function 過程
    D.可以用Goto 語句退出Sub 過程
    11、下列敘述中正確的是( )。
    A.在窗體的Form_Load 事件過程中定義的變量是全局變量
    B.局部變量的作用域可以超出所定義的過程
    C.在某個Sub 過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程
    D.在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串
    12、編寫如下兩個事件過程：
    Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
    Print Chr(KeyCode)
    End Sub
    Private Sub Form_KeyPress(KeyAscii As Integer)
    Print Chr(KeyAscii)
    End Sub
    在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時)運行程序，如果按鍵盤上的"A"鍵，則程序輸出的結(jié)果是(　　)。
    A.A
    a
    B.a
    A
    C.A
    A
    D.a
    a
    13、在窗體上畫一個命令按鈕，名稱為Co mmand1，然后編寫下列代碼：
    Option Base 0
    Private Sub Co mmand1_Click()
    Di m A1(4)As Integer ，A2(4)As Integer
    For k =0To 2
    A1(k +1)=InputBox("請輸入一個整數(shù)")
    A2(3-k)=A1(k +1)
    Next k Print A2(k)
    End Sub
    程序運行后，單擊命令按鈕，在輸入對話框中依次輸入2、4、6，則輸出結(jié)果為(　　)。
    A.0
    B.1
    C.2
    D.3
    14、下面語句正確的是(　　)。
    A.If x<3*y And x>y Then y =x^3
    B.If x<3*y And x>y Then y =3x
    C.If x<3*y ：x>y Then y =x^3
    D.If x<3*y And x>y Then y =x**3
    15、下面程序的輸出結(jié)果是(　　)。
    Private Sub Co mmand1_Click()
    Ch$="ABCDEF"
    proc ch ：Print ch
    End Sub
    Private Sub proc(ch As Stri ng)
    s =""
    For k =Len(ch)To 1Step -1
    s =s &Mid(ch ，k ，1)
    Next k
    ch =s
    End Sub
    A.ABCDEF
    B.FEDCBA
    C.A
    D.F
    16、語句Di ma(-3To 4，3To 6)As Integer 定義的數(shù)組元素個數(shù)是(　　)。
    A.18
    B.28
    C.21
    D.32
    17、以下敘述中錯誤的是(　　)。
    A.一個工程中只能有一個Sub Main 過程
    B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體
    C.窗體的Hide 方法和Unload 方法的作用完全相同
    D.若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體
    18、在窗體上先后畫2個圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將banana.Drag Mode 屬性設(shè)置為1。要求程序運行時，可以用鼠標把banana 拖拽到Picture1中，如圖2所示。能實現(xiàn)此功能的事件過程是(　　)。
    A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
    banana . Move Picture1 . Left +X，Picture1 . Top +Y
    End Sub
    B.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
    Source . Move Picture1 . Left +X，Picture 1 . Top +Y
    End Sub
    C.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
    Source . Move Picture1 . Left +X，Picture1 . Top +Y
    End Sub
    D.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
    banana . Move banana . Left +X，banana . Top +Y
    End Sub
    19、用Print 方法在Forml 窗體中顯示出4個#號的正確代碼為(　　)。
    A.Debug .Print"####"
    B.Print"####"
    C.Forml-Print"####"
    D.Forml .Print"####"
    20、一個模塊內(nèi)部各個元素彼此結(jié)合的緊密程度的度量稱為(　　)
    A.耦合性
    B.內(nèi)聚性
    C.復(fù)雜性
    D.數(shù)據(jù)傳輸特性
    21、函數(shù)值和余弦函數(shù)值，角度為1，2，3，…，90。請在空白處填入適當?shù)膬?nèi)容，將程序補充完整。
    Private Type Ang
    K As Integer
    Si nx As Si ngle
    Cosx As Si ngle
    End Type
    Private Sub Form_Click()
    Di m Y As Si ngle
    Di mi As Integer
    Di m Ksc As Ang
    Open ____________
    Y =3.14159/180
    For i =1To 90
    Ksc .K =i
    Ksc .Si nx=Si n(i*Y)
    Ksc .Cosx=Cos(i +Y)
    ________
    Next i
    Close #2
    Elld Stub
    A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc
    B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc
    C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc
    D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc
    22、下列程序運行時輸出的結(jié)果是(　　)。
    Option Base 1
    Const a=10
    Private Sub Form_Click0
    Di mx(a)As Integer
    k =-1
    For i =1To a
    x(i)=i*k
    k =(-1)*k
    Next i
    For i =1To 10
    Print x(i)
    Next i
    End Sub
    A.1 3 5 7 9 10
    B.-1-3-5-7-9
    C.-1 2-3 4-5 6-7 8-9 10
    D.1-2 3-4 5-6 7-8 9-10
    23、某人為計算n!(O
    Private Function fun(n As Integer)As Long
    Di m P As Long
    P=l
    For k =n -1To 2Step -1
    p =p*k
    Next k
    fun =p
    End Function
    在調(diào)試時發(fā)現(xiàn)該函數(shù)過程產(chǎn)生的結(jié)果是錯誤的，程序需要修改。下面的修改方案中有3種是正確的，錯誤的方案是(　　)。
    A.把p =1改為p =11
    B.把For k =n -1To 2Step -1改為For k =1To n -1
    C.把For k =n -1To 2Step -1改為For k =1To n
    D.把Fo rk --n -1To 2Step -1改為For k =2To n
    24、要設(shè)置窗體為固定對話框，并包含控制菜單欄和標題欄，但沒有大化和小化按鈕，設(shè)置的操作是(　　)。
    A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow
    B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow
    C.設(shè)置BorderStyle 的值為Fi xed Dialog
    D.設(shè)置BorderStyle 的值為Sizable
    25、設(shè)在窗體上有一個文本框，然后編寫如下的事件過程：
    Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)
    Const Alt =4
    Const Key_F2=&H71
    altdown %=(Shift And Alt)>0
    f2down %=(KeyCode =Key_F2)
    If altdown %And f2down %Then
    Text1.Text ="abl"
    End If
    End Sub
    程序運行后，清除文本框中原有內(nèi)容，如果按Shift +F2鍵，則在文本框中顯示的是( )。
    A.Alt +F2
    B.abl
    C.隨機出幾個數(shù)
    D.不發(fā)生變化
    26、在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Co mmand1)，然后編寫下列事件過程：
    Private Sub Co mmand1_Click()
    x=0
    DO While x<50
    x=(x+2)*(x+3)
    n =n +l
    Loop
    Text1.Text =Str(n)
    Text2.Text =Str(x)
    End Sub
    程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為(　　)。
    A.1和0
    B.2和72
    C.3和50
    D.4和168
    27、下列敘述中錯誤的是(　　)。
    A.軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤
    B.對被調(diào)試的程序進行"錯誤定位"是程序調(diào)試的必要步驟
    C.程序調(diào)試通常也稱為Debug
    D.軟件測試應(yīng)嚴格執(zhí)行測試計劃，排除測試的隨意性
    28、一個工程必須包含的文件的類型是( )。
    A.*.vbp*.frm*.frx
    B.*.vbp*.cls*.bas
    C.*.bas*.ocx*.res
    D.*.frm*.cls*.bas
    29、在文本框中輸入字符時，通過( )事件過程可以得到字符的ASCII 碼值。
    A.Change
    B.GotFocus
    C.KeyPress
    D.LostFocus
    30、在下列關(guān)系運算中，不改變關(guān)系表中的屬性個數(shù)但能減少元組個數(shù)的是(　　)。
    A.并
    B.交
    C.投影
    D.笛卡兒乘積
    31、有兩個關(guān)系R ，S 如下：
    由關(guān)系R 通過運算得到關(guān)系S，則所使用的運算為(　　)。
    A.選擇
    B.投影
    C.插入
    D.連接
    32、一個棧的初始狀態(tài)為空?，F(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再出棧，則元素出棧的順序是(　　)。
    A.12345ABCDE
    B.EDCBA54321
    C.ABCDEl2345
    D.54321EDCBA
    33、在窗體上建立通用對話框需要添加的控件是(　　)。
    A.Data 控件
    B.Form 控件
    C.Co mmonDialog 控件
    D.VBComboBox 控件
    34、在窗體上畫2個命令按鈕，名稱分別為Co mmand1、Co mmand2，然后編寫下列事件過程。
    Const n =5，m=4
    Di ma(m，n)
    Private Sub Co mmand1_Click()
    k =1
    For i =1To m
    For j=1To n
    a(i ，j)=k
    k =k +1
    Next j
    Next i
    End Sub
    Private Sub Co mmand2_Click()
    summ=0
    For i =1To m
    For j=1To n
    If i =1Or i =m Then
    summ=summ+a(i ，j)
    Else
    If j=1Or j=n Then
    summ=summ+a(i ，j)
    End If
    End If
    Next j
    Next i
    Print summ
    End Sub
    過程Command1_Click()的作用是在二維數(shù)組a 中存放1個m 行n 列的矩陣;過程Command2_Click()的作用是(　　)。
    A.計算矩陣外圍一圈元素的累加和
    B.計算矩陣除外圍一圈以外的所有元素的累加和
    C.計算矩陣第1列和后一列元素的累加和
    D.計算矩陣第1行和后一行元素的累加和
    35、下列關(guān)于復(fù)選框的說法，正確的是(　　)。
    A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見
    B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中
    C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號
    D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用
    36、按照"后進先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是(　　)。
    A.隊列
    B.棧
    C.雙向鏈表
    D.二叉樹
    37、當一個復(fù)選框被選中時，它的Value 屬性的值是( )。
    A.3
    B.2
    C.1
    D.0
    38、已知在4行3列的全局數(shù)組score(4，3)中存放了4個學生3門課程的考試成績(均為整數(shù))?，F(xiàn)需要計算每個學生的總分，某人編寫程序如下：
    Option Base 1
    Private Sub Co mmand1_Click(　　)
    Di msum As Integer
    Sum=0
    For i =1To 4
    For j=1To 3
    Sum=sum+score(i ，j)
    Next j
    Print "第"&i &"個學生的總分是：";sum Next i
    End Sub
    運行此程序時發(fā)現(xiàn)，除第1個人的總分計算正確外，其他人的總分是錯誤的。程序需要修改。以下修改方案中正確的是(　　)。
    A.把外層循環(huán)語句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語句For j=1TO 3改為For j=1TO 4
    B.把sum=0移到For i =1TO 4和For j =1TO 3之間
    C.把sum=sum+score(i ，j)改為sum=sum+score(j，i)
    D.把sum=sum+score(i ，j)改為sum=score(i ，j)
    39、設(shè)有數(shù)組定義語句：Di ma(5)As Integer ，List1為列表框控件。下列給數(shù)組元素賦值的語句錯誤的是(　　)。
    A.a(3)=3
    B.a(3)=InputBox("i nput data")
    C.a(3)=List1.ListIndex
    D.a=Array(1，2，3，4，5，6)
    40、下列( )標識符不能作為Visual Basic 的變量名。
    A.ABCabe
    B.b1234
    C.28wed
    D.crud