[單項選擇題] 有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integerp=
2021-07-20
[單項選擇題] 有如下函致：
Function fact(x As Integer)As Long
Dim p As Long，i As Integer
p=1
For i=1 To x
p=p*1
Next
fact=p
End Function
調(diào)用它的事件過程如下：
Private Sub Command1_Click()
i=Val(Inputbox("請輸入數(shù)據(jù)"))
a=fact((i))
Print a
End Sub
若輸入數(shù)據(jù)5，則運行結(jié)果為
A．120
B．60
C．80
D．100
正確答案：A
參考解析：本題的難點是實參與形參數(shù)傳遞的問題。如果將fact((i))改成fact(i)會產(chǎn)生“ByRef參數(shù)類型不符”的提示。字符型變量i經(jīng)(i)計算的結(jié)果為5，其作為常數(shù)參數(shù)按值傳遞調(diào)用子過程fact(5)。子過程的功能是計算n!。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。