進(jìn)行中序遍歷的結果是

A）ACBDFEG  B）ACBDFGE  C）ABDCGEF  D）FCADBEG

（11）以下敘述中正確的是

A）窗體的Name 屬性指定窗體的名稱(chēng)，用來(lái)標識一個(gè)窗體

B）窗體的Name 屬性值是顯示在窗體標題欄中的文本

C）可以在運行期間改變窗體的Name 屬性的值

D）窗體的Name 屬性值可以為空

（12）以下敘述中錯誤的是

    A）打開(kāi)一個(gè)工程文件時(shí)，系統自動(dòng)裝入與該工程有關(guān)的窗體文件

    B）保存Visual Basic程序時(shí)，應分別保存窗體文件及工程文件

    C）Visual Basic應用程序只能以解釋方式執行

    D）窗體文件包含該窗體及其控件的屬性

（13）設a = 2, b = 3, c = 4, 下列表達式的值是

       Not a <= c Or 4*c = b^2 And b <> a + c

    A）-1   B）1    C）True D）False

（14）設有如下的用戶(hù)定義類(lèi)型：

     Type Student

    number As String

    name As String

    age As Integer

End Type

則以下正確引用該類(lèi)型成員的代碼是

    A）Student.name = "李明"    B）Dim s As Student

                                s.name = "李明"

    C）Dim s As Type Student    D）Dim s As Type

    s.name = "李明"             s.name = "李明"

（15）設a = 5，b = 6，c = 7，d = 8，執行下列語(yǔ)句后，x的值為

     x = IIf((a > b) And (c > d), 10, 20)

    A）10   B）20   C）True D）False

（16）執行以下程序段后，變量c$的值為

a$ = "Visual Basic Programming"

b$ = "Quick"

c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)

A）Visual BASIC Programming B）Quick Basic Programming

C）QUICK Basic Programming D）Quick BASIC Programming

（17）在窗體上畫(huà)一個(gè)文本框（其名稱(chēng)為Text1）和一個(gè)標簽（其名稱(chēng)為Label1），程序運行后，如果在文本框中輸入指定的信息，則立即在標簽中顯示相同的內容。以下可以實(shí)現上述操作的事件過(guò)程是

     A）Private Sub Text1_Click()   B）Private Sub Text1_Change()

           Label1.Caption = Text1.Text        Label1.Caption = Text1.Text

        End Sub        End Sub

     C）Private Sub Label1_Change() D）Private Sub Label1_Click()

           Label1.Caption = Text1.Text        Label1.Caption = Text1.Text

        End Sub        End Sub

（18）在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)標簽，其名稱(chēng)分別為Command1和Label1，然后編寫(xiě)如下事件過(guò)程：

Private Sub Command1_Click()

    Counter = 0

    For i = 1 To 4

        For j = 6 To 1 Step -2

            Counter = Counter + 1

        Next j

    Next i

    Label1.Caption = Str(Counter)

End Sub

程序運行后，單擊命令按鈕，標簽中顯示的內容是

    A） 11  B）12   C） 16  D）20

（19）在窗體上畫(huà)一個(gè)名稱(chēng)為Text1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    For i = 0 To 50

        i = i + 3

        n = n + 1

        If i > 10 Then Exit For

    Next

    Text1.Text = Str(n)

End Sub

程序運行后，單擊命令按鈕，在文本框中顯示的值是

    A）5    B）4    C）3    D）2

（20）在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)標簽，其名稱(chēng)分別為Command1、Label1和Label2，然后編寫(xiě)如下事件過(guò)程：

Private Sub Command1_Click()

    a = 0

    For i = 1 To 10

        a = a + 1

        b = 0

        For j = 1 To 10

            a = a + 1

            b = b + 2

        Next j

    Next i

    Label1.Caption = Str(a）

    Label2.Caption = Str(b）

End Sub

    程序運行后，單擊命令按鈕，在標簽Label1和Label2中顯示的內容分別是

    A）10和20  B）20和110 C）200和110    D）110和20

（21）在窗體上畫(huà)一個(gè)名稱(chēng)為List1的列表框，一個(gè)名稱(chēng)為Label1的標簽，列表框中顯示若干城市的名稱(chēng)。當單擊列表框中的某個(gè)城市名時(shí)，該城市名從列表框中消失，并在標簽中顯示出來(lái)。下列能正確實(shí)現上述操作的程序是

    A）Private Sub List1_Click()    B）Private Sub List1_Click()

           Label1.Caption = List1.ListIndex        Label1. Name = List1. ListIndex

           List1.RemoveItem List1.Text         List1.RemoveItem List1.Text

       End Sub         End Sub

    C）Private Sub List1_Click()    D）Private Sub List1_Click()

           Label1.Caption = List1.Text         Label1.Name = List1.Text

           List1.RemoveItem List1.ListIndex        List1.RemoveItem List1.ListIndex

        End Sub         End Sub

（22）在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下程序：

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    Dim a(10, 10) As Integer

    For i = 1 To 3

        For j = 1 To 3

            a(i, j) = (i - 1) * 3 + j

            Print a(i, j);

        Next j

        Print

    Next i

End Sub

程序運行后，單擊命令按鈕，窗體上顯示的是

（23）在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為Command1，然后編寫(xiě)如下代碼：

Option Base 0

Private Sub Command1_Click()

    Dim A(4) As Integer,B(4) As Integer

    For k = 0 To 2

        A(k + 1) = InputBox("請輸入一個(gè)整數")

        B(3 - k) = A(k + 1)

    Next k

    Print B(k)

End Sub

   程序運行后，單擊命令按鈕，在輸入對話(huà)框中分別輸入2、4、6，輸出結果為

    A）0    B）2    C）3    D）4

（24）有以下程序：

Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

    Dim i As Integer, j As Integer

    ReDim arr(3, 2)

    For i = 1 To 3

        For j = 1 To 2

            arr(i, j) = i * 2 + j

        Next j

    Next i

    ReDim Preserve arr(3, 4)

    For j = 3 To 4

        arr(3, j) = j + 9

    Next j

    Print arr(3, 2); arr(3, 4)

End Sub

    程序運行后，單擊窗體，輸出結果為

    A）8  13    B）0  13    C）7  12    D）0  0

（25）以下敘述中正確的是

A）一個(gè)Sub過(guò)程至少要有一個(gè)Exit Sub語(yǔ)句

B）一個(gè)Sub過(guò)程必須有一個(gè)End Sub語(yǔ)句

C）可以在Sub過(guò)程中定義一個(gè)Function過(guò)程，但不能定義Sub過(guò)程

D）調用一個(gè)Function過(guò)程可以獲得多個(gè)返回值

（26）有以下程序：

    Sub subP(b() As Integer)

        For i = 1 To 4

            b(i) = 2 * i

        Next i

    End Sub

    Private Sub Command1_Click()

        Dim a(1 To 4) As Integer

        a(1) = 5

        a(2) = 6

        a(3) = 7

        a(4) = 8

        subP a()

        For i = 1 To 4

            Print a(i)

        Next i

    End Sub

    運行上面的程序，單擊命令按鈕，輸出結果為      

（27）設有如下通用過(guò)程：

Public Function Fun(xStr As String) As String

    Dim tStr As String, strL As Integer

    tStr = ""

    strL = Len(xStr)

    i = 1

    Do While i <= strL / 2

        tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)

        i = i + 1

    Loop

    Fun = tStr

End Function

    在窗體上畫(huà)一個(gè)名稱(chēng)為Text1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕。然后編寫(xiě)如下的事件過(guò)程：

Private Sub Command1_Click()

    Dim S1 As String

    S1 = "abcdef"

    Text1.Text = UCase(Fun(S1))

End Sub

    程序運行后，單擊命令按鈕，則Text1中顯示的是

    A）ABCDEF   B）abcdef   C）AFBECD   D）DEFABC

（28）在窗體上畫(huà)一個(gè)名稱(chēng)為TxtA的文本框，然后編寫(xiě)如下的事件過(guò)程：

    Private Sub TxtA_KeyPress(KeyAscii As Integer)

        ......

    End Sub

假定焦點(diǎn)已經(jīng)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是

    A）單擊鼠標     B）雙擊文本框

    C）鼠標滑過(guò)文本框       D）按下鍵盤(pán)上的某個(gè)鍵

（29）在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)文本框，其名稱(chēng)分別為Command1、Text1和Text2，然后編寫(xiě)如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load()

    Text1.Text = ""

    Text2.Text = ""

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    S2 = S2 & Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

    S1 = S1 & Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

    Text1.Text = S2

    Text2.Text = S1

    S1 = ""

    S2 = ""

End Sub

    程序運行后，在Text1中輸入“abc”，然后單擊命令按鈕，在文本框Text1和Text2中顯示的內容分別為

    A）abc和ABC    B）abc和abc    C）ABC和abc    D）ABC和ABC

（30）以下說(shuō)法中正確的是

    A）任何時(shí)候都可以通過(guò)執行“工具”菜單中的“菜單編輯器”命令打開(kāi)菜單編輯器

    B）只有當某個(gè)窗體為當前活動(dòng)窗體時(shí)，才能打開(kāi)菜單編輯器

    C）任何時(shí)候都可以通過(guò)單擊標準工具欄上的“菜單編輯器”按鈕打開(kāi)菜單編輯器

    D）只有當代碼窗口為當前活動(dòng)窗口時(shí)，才能打開(kāi)菜單編輯器

（31）在窗體上畫(huà)一個(gè)通用對話(huà)框，其名稱(chēng)為CommonDialog1，然后畫(huà)一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：

Private Sub Command1_Click()

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _

                     "(*.txt)|*.txt| Executable Files(*.exe)|*.exe"

    CommonDialog1.FilterIndex = 3

    CommonDialog1.ShowOpen

    MsgBox CommonDialog1.FileName

End Sub

程序運行后，單擊命令按鈕，將顯示一個(gè)“打開(kāi)”對話(huà)框，此時(shí)在“文件類(lèi)型”框中顯示的是

    A）All Files(*.*)       B）Text Files(*.txt)

    C）Executable Files(*.exe)  D）不確定

（32）以下敘述中錯誤的是

     A）一個(gè)工程中可以包含多個(gè)窗體文件

     B）在一個(gè)窗體文件中用Public定義的通用過(guò)程不能被其他窗體調用

     C）窗體和標準模塊需要分別保存為不同類(lèi)型的磁盤(pán)文件

     D）用Dim定義的窗體層變量只能在該窗體中使用

（33）以下敘述中錯誤的是

    A）語(yǔ)句“Dim a, b As Integer”聲明了兩個(gè)整型變量

    B）不能在標準模塊中定義Static型變量

    C）窗體層變量必須先聲明，后使用

    D）在事件過(guò)程或通用過(guò)程內定義的變量是局部變量

（34）設有語(yǔ)句：Open "d:\Test.txt" For Output  As #1 ，以下敘述中錯誤的是

   A）若d盤(pán)根目錄下無(wú)Test.txt文件，則該語(yǔ)句創(chuàng )建此文件

   B）用該語(yǔ)句建立的文件的文件號為1

   C）該語(yǔ)句打開(kāi)d盤(pán)根目錄下一個(gè)已存在的文件Test.txt，之后就可以從文件中讀取信息

   D）執行該語(yǔ)句后，就可以通過(guò)Print #語(yǔ)句向文件Test.txt中寫(xiě)入信息

（35）以下敘述中錯誤的是

    A）順序文件中的數據只能按順序讀寫(xiě)

    B）對同一個(gè)文件，可以用不同的方式和不同的文件號打開(kāi)

    C）執行Close語(yǔ)句，可將文件緩沖區中的數據寫(xiě)到文件中

    D）隨機文件中各記錄的長(cháng)度是隨機的