单选题   运行下列程序,窗体中的显示结果是:______。
    Option Compare Database
    Dim x As Integer
    Private Sub Form_Load()
    x=3
    End Sub
    Private Sub Command11 Click()
    Static a As Integer
    Dim b As Integer
    b=x^2
    funl x, b
    funl x, b
    MsgBox'x='&x
    End Sub
    Sub funl(ByRef y As Integer, ByVal z AS Integer)
    y=y+z
    z=y-z
    End Sub
 
【正确答案】 C
【答案解析】funl函数第一个参数是ByRef传递参数,所以实参也会被改变,而第二个参数是ByVal形式传递参数,不会改变实参的值,因此经过两次调用funl函数后,x的值为21,而b的值9不会改变。