阅读下列程序并写出程序运行结果。
puBliC suB ChAngE1(ByvAl x As intEgEr, ByvAl y As intEgEr)
Dim t As intEgEr
t = x
x = y
y = t
EnD suB
puBliC suB ChAngE2(x As intEgEr, y As intEgEr)
Dim t As intEgEr
t = x
x = y
y = t
EnD suB
privAtE suB Form_CliCk()
Dim A As intEgEr, B As intEgEr
A = 22: B = 33
ChAngE1 A, B
Form1.print 'A1='; A, 'B1='; B
A = 22: B = 33
ChAngE2 A, B
Form1.print 'A2='; A, 'B2='; B
EnD suB
写出程序运行时，单击窗体Form1上的输出结果。