第六章单元测试
  1.  下面的过程语句声明中正确的是(  



  2. A:Sub f1(ByVal n%()) B:Sub f1(ByRef n%) As Integer C:Function f1(Byval n%) D:Function f1%(ByRef f1%)
    答案:Function f1(Byval n%)
  3. 在一个过程中定义的变量,若希望该过程外还能保存过程中局部变量的值,则应使用关键字()在过程中定义过程级变量。



  4. A:Dim B:Private C:Static  D:Public
  5. 下面过程运行后显示的结果是(

     Public Sub F1 (ByRef n%, ByVal m%)

         n=n Mod 10

         M=m\10

    End Sub

    Sub Command1_Click()

      Dim x%, y%

      X=12: y=34

      Call F1(x,y)

      MsgBox(x & “ “ & y)

    End Sub



  6. A: 12  3 B: 2  3  C:2  34 D:12  34
  7. 如下程序的运行结果是()

    Sub Command1_Click ( )

      MsgBox (p1(3.0, 7))

    End Sub

    Public Function p1! (ByVal x!, ByVal n%)

      If n=0 Then

    p1=1

      Else

        If n Mod 2=1 Then

          p1=x*p1(x, n\2)

        Else

          P1=p1(x, n\2) \x

    End if

    End if

    End Function



  8. A:14 B:18 C:27 D:7
  9. 如下程序运行后各变量的值依次为()

    Public Sub Proc (ByRef a%())

    Static i%

    Do

       a(i)=a(i)+a(i+1)

       I=i+1

    Loop While i<2

    End Sub

     

    Sub Command1_Click ( )

      Dim m%, i%, x%(10)

      For i=0 To 4: x(i)=i+1: Next i

      For i=1 To 2: Call Proc(x): Next i

      For i=0 To 4: Print x(i);: next i

    End sub



  10. A:2  3  4  4  5 B: 4  5  6  7  8 C:3  4  7  5  6  D: 3  5  7  4  5 

温馨提示支付 ¥3.00 元后可查看付费内容,请先翻页预览!
点赞(4) dxwkbang
返回
顶部