亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　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

寫出程序的正確運(yùn)行結(jié)果（每題5分，共10分）

1. y=  7

2. a=30 b=30