运行下列程序,窗体中的显示结果是: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