运行下列程序，窗体中的显示结果是：x= 。 Option Compare Database Dim x As Integer Private Sub Form_Load（） x=3 End Sub Private Sub Command

admin2011-04-29 114

问题运行下列程序，窗体中的显示结果是：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