PublicSubchange1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubch
PublicSubchange1(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PublicSubchange2(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=22:b=33
change1a,b
Form. 1.Print"A1=";a,"B1=";b
a=22:b=33
change2a,b
Form1.Print"A2=";a,"B2=";b
EndSub
写出程序运行时,单击窗体Form1上的输出结果。