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