填空题

有一过程如下：
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
调用它的事件过程如下：
Private Sub Commandl_Click( )
Dim tot As Long, a As Integer
a = Val( InputBox ("请输入数据")
Call Subl (a,tot)
Print tot
End Sub
则输入数据5，运行结果为【10】。

【参考答案】

120

<上一题目录下一题>

热门试题

填空题

在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范” CmdMax.Caption=“字体变大” End Sub Private Sub CmdMax_Click() 【8】 Form1.Print“字体由小变大” End Sub

填空题

下面运行程序后，单击命令按钮，输出的结果是【9】。 Private Sub Command1_Click() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print s1 = ; s1; s2 = ; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function

相关试题