[填空題] 有一個過程如下： Sub Sub1(m As Integer，total As Long) Dim i AS Integer total=
2021-07-20
[填空題] 有一個過程如下：
Sub Sub1(m As Integer，total As Long)
Dim i AS Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
調用它的事件過程如下：
Private Sub Command1_Click()
Dim tot As Long，a As Integer
a=Val(InputBox("請輸入數據"))
Call Subl(a,tot)
Print tot
End Sub
則輸入數據5，運行結果為______。
正確答案：120
參考解析：[命題目的] 考查考生對過程中參數傳遞方式的掌握情況。 [解題要點] 本題的難點是實參與形參的傳遞問題。total按ByRef參數傳遞。子過程的功能是計算n!，題中輸入5，因此5!=120。 [錯解分析] 參數按傳值方式傳遞時，不改變實參中的值；按傳地址的方式傳遞時，實參和形參指向的內容被改變。 [考點鏈接] 參數傳遞方式的概念和應用。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。