【题目】 所谓按址传递就是当过程被调用时，形参与实参共享同一个内存单元。（ ）

1、[单选题]Private Sub Command1_Click()
  Dim A(1 To 5) As Integer
  Dim x As Integer
  For i = 1 To 5
    A(i) = i
  Next i
  i = 1
  Do While x < 2
    A(i) = A(i) * x
    x = x + 1
    i = i + 1
  Loop
  Text1.Text = A(1)
  Text2.Text = A(2)
End Sub
程序运行后，单击Command1后按钮，文件框Text1、Text2中的结果是（   ）。

• A、2   0
• B、0   2
• C、2   4
• D、2   5

• 点击查看答案
• 进入题库做题

2、[单选题]Private Sub Command1_Click()
    x = 0
    Do While x < 60
        x = (x + 2) * (x + 3)
        n = n + 1
    Loop
    Text1.Text = Str(n)
    Text2.Text = Str(x)
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
程序运行后，单击命令按钮在文件框Text3中显示的结果是（   ）。

• A、72
• B、74
• C、7
• D、16

• 点击查看答案
• 进入题库做题

3、[单选题]Private Sub Form_Click()
    Dim c As Integer, j As Integer, k As Integer
    k = 1
    c = 2
    For j = 1 To 5
      If j > 3 Then
        c = c + 5
        Exit For
      Else
        k = k + 1
      End If
    Next j
    Print c, k
End Sub      
程序运行后，单击窗体，在窗体上显示的c,k的值分别是（    ）。

• A、7   3
• B、7   4
• C、2   4
• D、7   5

• 点击查看答案
• 进入题库做题

4、[单选题]Private Sub Form_Click()
  Dim i As Integer, k As Integer, c As Integer
  For i = 1 To 5
     If i Mod 2 = 0 Then
         k = k + 2
     Else
        c = c + 3
     End If
  Next i
  Print k, c
End Sub
程序运行后单击窗体，Form1上的输出结果是（   ）。

• A、2   12
• B、4    9
• C、4    6
• D、2    9

• 点击查看答案
• 进入题库做题

5、[单选题]Private Sub Form_Click()
  Dim i As Integer, k As Integer
  Static c As Integer
  For i = 1 To 6
     If i Mod 2 = 0 Then
         k = k + 2
     Else
        c = c + 3
     End If
  Next i
  Print k, c
End Sub
程序运行后，连续两次单击窗体，在窗体上显示的值是（    ）。

• A、6   12
• B、6   24
• C、6   9
• D、6   18

• 点击查看答案
• 进入题库做题