[單項(xiàng)選擇題] 單擊窗口時(shí)，下列程序代碼的執(zhí)行結(jié)果為　

Private Sub Form_Click( )

Text1

End Sub

Private Sub Text(x As Integer)

x=x*3+1

if x＜6 Then

call Text(x)

End if

x=x*2+1

Print x；

End Sub

A．27 55

B．11 35

C．22 45

D．24 51

A

難點(diǎn)在于Sub過程Text中嵌套了一個Text過程。根據(jù)Text的描述，當(dāng)把1以傳地址的方式傳送給x時(shí)，x的值為4，此時(shí)x的值滿足If條件，所以再次執(zhí)行1次Text過程。第2次執(zhí)行時(shí)，x的值變?yōu)?3，此時(shí)跳過If語句，執(zhí)行x=x*2+1語句，x值變?yōu)?7，隨后用Print方法輸出。注意，到此時(shí)，整個Text過程僅僅執(zhí)行完了call Text(x)這一語句塊，結(jié)束這個語句塊，系統(tǒng)接著執(zhí)行x=x*2+1語句，由于x參數(shù)的傳地址的方式傳送，此時(shí)在執(zhí)行該句前，x的值為27，執(zhí)行完之后x的值為55，再將這一值輸出。窗體上顯示27與55。