[填空題] 有一個(gè)過程如下：

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

調(diào)用它的事件過程如下：

Private Sub Command1_Click()

Dim tot As Long，a As Integer

　　a=Val(InputBox("請(qǐng)輸入數(shù)據(jù)"))

　　Call Subl(a,tot)

　　Print tot

End Sub

則輸入數(shù)據(jù)5，運(yùn)行結(jié)果為______。

120

[命題目的] 考查考生對(duì)過程中參數(shù)傳遞方式的掌握情況。 [解題要點(diǎn)] 本題的難點(diǎn)是實(shí)參與形參的傳遞問題。total按ByRef參數(shù)傳遞。子過程的功能是計(jì)算n!，題中輸入5，因此5!=120。 [錯(cuò)解分析] 參數(shù)按傳值方式傳遞時(shí)，不改變實(shí)參中的值；按傳地址的方式傳遞時(shí)，實(shí)參和形參指向的內(nèi)容被改變。 [考點(diǎn)鏈接] 參數(shù)傳遞方式的概念和應(yīng)用。