华南俳烁实业有限公司

1．       Command1_Click( )事件程序的功能是：按順序讀入10名學(xué)生4門課程的成績，計算出每位學(xué)生的平均分并輸出，程序如下：

Dim n As Integer, k As Integer

Dim score As Single, sum As Single, ave As Single

sum = 0#

For n = 1 To 10

  For k =1 To 4

score = InputBox(“請輸入第” & n & “名學(xué)生第” & k & “門課的成績：”)

sum = sum + score

                Next k

                ave = sum / 4

            Print “第” & n & “個學(xué)生的平均成績?yōu)椋骸?& ave

            Next n

上述程序運行后結(jié)果不正確，調(diào)試中發(fā)現(xiàn)有一條語句出現(xiàn)在程序中的位置不對。這條語句是（　　�。�

（A）sum = 0#                             （B）sum = sum + score

（C）ave = sum / 4                      （D）Print “第” & n & “個學(xué)生的平均成績?yōu)椋骸?& ave

2．       在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

            Private Sub Command1_Click( )

                Dim num As Integer

                num = 1

                Do Until num > 6

                   Print num;

                   num = num + 2.4

                Loop

            End Sub

　　程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（　　�。�

（A）1　3.4　5.8                        （B）1　3　5

（C）1　4　7                              （D）無數(shù)據(jù)輸出

3．       以下程序的輸出結(jié)果是（　　�。�

            Dim i As Integer, a As Integer

            Do While i < 20

                Do While True

                   If i Mod 10 = 0 Then

                       Exit Do

                   Else

                       i = i -1

                   End If

                Loop

                i = i + 11 : a = a + i

         Loop

         Print a

（A）21                  （B）32                      （C）33                      （D）11

4．       在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下程序：

         Private Sub Command1_Click( )

            Dim array1(10,10) As Integer

            Dim i, j As Integer

            For i = 1 To 3

                For j = 2 To 4

                   array1(i,j) = i + j

                Next j

            Next i

            Text1.Text = array1(2,3) + array1(3,4)

         End Sub

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

（A）12                  （B）13               （C）14                      （D）15

5．       設(shè)有如下程序：

Option Base 0

Private Sub Form_Click( )

  Dim a

  Dim i As Integer

  a = Array(1,2,3,4,5,6,7,8,9)

  For i = 0 To 3

    Print a(5 – i);

            Next

         End Sub

程序運行后，單擊窗體，則在窗體相顯示的內(nèi)容是（　　�。�

（A）4　3　2　1    （B）5　4　3　2              （C）6　5　4　3              （D）7　6　5　4

6．       在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼：

Option Base 1

Private Sub Command1_Click( )

  d = 0

  c = 10

  x = Array(10, 12, 21, 32, 24)

  For i = 1 To 5

If x(i) > c Then

  d = d + x(i)

  c = x(i)

Else

  d = d – c

End If

            Next i

            Print d

         End Sub

程序運行后，單擊命令按鈕，則在窗體上輸出的內(nèi)容是（　　�。�

（A）89                  （B）99               　（C）23                         （D）77

7．       假定有以下函數(shù)過程：

Function Fun(S As String) As String

  Dim s1 As String

  For i = 1 To Len(S)

s1 = Ucase(Mid(S, i, 1)) + s1

            Next i

            Fun = s1

         End Function

在窗體上畫一個命令按鈕，然后編寫如下事件過程：

         Private Sub Comman1_Click( )

            Dim Str1 As String, Str2 As String

            Str1 = InputBox(“請輸入一個字符串：”)

            Str2 = Fun(Str1)

            Print Str2

         End Sub

程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上輸出的結(jié)果為（　　�。�

（A）abcdefg          （B）ABCDEFG         （C）gfedcba      （D）GFEDCBA

8．       在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下代碼：

         Private Sub Command1_Click( )

            Dim x, y, z As Integer

            x = 5

            y = 7

            z = 0

            Text1.Text = “”

            Call P1(x, y, z)

            Text1.Text = Str(z)

         End Sub

         Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)

            c = a + b

         End Sub

程序運行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是（　　�。�

（A）0                    （B）12               （C）Str(z)                 （D）沒有顯示

9．       以下關(guān)于過程的敘述中錯誤的是（　　　）

（A）      如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

（B）      Sub過程中不能嵌套定義Sub過程

（C）     Sub過程中可以嵌套調(diào)用Sub過程

（D）     事件過程可以像通用過程一樣由用戶定義過程名

10．   在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱分別為Label1、Label2的標(biāo)簽，然后編寫如下程序代碼：

         Private X As Integer

         Private Sub Command1_Click( )

            X = 5: Y = 3

            Call proc(X, Y)

            Label1.Caption = X

            Label2.Catpion = Y

         End Sub

         Private Sub proc(Byval a As Integer, ByVal b As Integer)

            X = a * a

            Y = b + b

         End Sub

單擊命令按鈕，兩個標(biāo)簽中顯示的內(nèi)容分別是（　　�。�

（A）5和3             （B）25和3               （C）25和6               （D）5和6