寫出下列程序的正確運行結(jié)果(每題5分，共10分)
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
1. y= 7
2. a= 30 b=30
免責(zé)申明 --------------------------------------------------------------------------------------
以上內(nèi)容僅代表原創(chuàng)者觀點，其內(nèi)容未經(jīng)本站證實，中華考試網(wǎng)對以上內(nèi)容的真實性、完整性不作任何保證或承諾，轉(zhuǎn)載目的在于傳遞更多信息，由此產(chǎn)生的后果與中華考試網(wǎng)無關(guān)；如以上轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益，請聯(lián)系我們
，我們將會及時處理。
