[填空題] 有一過程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total
2021-07-20
[填空題] 有一過程如下：
Sub Subl (m As Integer,total As Long)
Dim i AS Integer
total = 1
For i = 1 To m
total = total * i
Next
End Sub
調(diào)用它的事件過程如下：
Private Sub Commandl_Click( )
Dim tot As Long, a As Integer
a = Val( InputBox ("請輸入數(shù)據(jù)")
Call Subl (a,tot)
Print tot
End Sub
則輸入數(shù)據(jù)5，運行結(jié)果為 【10】 。
正確答案：120
參考解析：本題的難點是實參與形參的傳遞的問題。 total按ByRef參數(shù)傳遞。子過程的功能是計算n!，題中輸入5，因此51=120。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。