1. Private Sub Command1_Click( )

x=Int(Rnd) 3

If x^2>8 Then y=x^2 1

If x^2=9 Then y=x^2-2

If x^2<8 Then y=x^3

Print “y=”;y

End Sub

2. Public Sub Swap(ByVal x As Integer, y As Integer)

Dim t As Integer

t=x: x=y: y=t

End Sub

Private Sub Command1_Click( )

Dim a As Integer ,b As Integer

a=30: b=20

Swap a ,b

Print “a=”; a ;”b=”; b

End Sub

写出程序的正确运行结果（每题5分，共10分）

1. y=  7

2. a=30 b=30