Question

訪客

求好心人幫解題~~計概程式
答案是CAC 我需要詳解🙏🙏

)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

計概 計算機概論 程式