)1. 執行下列Visual Basie程式片段,輸出結果為何?
(人主 (03 (D)17。
Sub Main( )
MsgBox(N(6))
End Sub
Function N(ByVal a) As Integer
Ifa=1Ora=0Then
全三1
Else
If(a Mod2<> 1) Then
a==N(a/2)-1
Else
a三N(a\4)+3
End If
End IT
Return a
End Function
)2. 執行下列Visual Basic程式片段,輸出結果為何 ?
(AA)28。 (B)25 5(G)23 SO信條e
Sub Main( )
Dim X As Integer== 10
MsgBox(F(X) + X)
End Sub
Function F(ByRefn) As Integer
ESIT
n三n二3
Else
n=三n+3
End IF
Returnn+2
End Function
)3. 執行下列Visual Basic程式版段,輸出結果為何 ?
(A)32- ,(B)64 (C)256 (0)912 2
Sub Main( )
MsgBox(F1(6))
End Sub
Function FI(ByValn As Integer) As Integer
In=#0Orn=#lThen
Returnn+1l
Else
Return Fl(n -2)*Fl(n-1) C_raeg
End If 0
End Function
