运行下列程序，窗体中的显示结果是：x= 。Option Compare DatabaseDim x As IntegerPrivate Sub For

运行下列程序，窗体中的显示结果是：x= 。

Option Compare Database

Dim x As Integer

Private Sub Form_Load（）

x=3

End Sub

Private Sub Commandll_ 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 nteger）

y=y+z

z=y-z

End Sub