单项选择题

有如下函致：
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
调用它的事件过程如下：
Private Sub Command1_Click()
i=Val(Inputbox("请输入数据"))
a=fact((i))
Print a
End Sub
若输入数据5，则运行结果为

A．120
B．60
C．80
D．100

<上一题目录下一题>

热门试题

单项选择题

下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b() ) Print t = ; t, End Sub Function Tof(a() As Integer) Dim t#, i% t=1 For i =2 To UBound(

单项选择题

假定有下表所列的菜单结构：标题名称层次显示大图标小图标 appear bigicon smallicon 1(主菜单) 2(子菜单) 2(子菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是

A．Private Sub bigicon_Click( )
bigicon. Checked = False
End Sub
B．Private Sub bigicon_Click( )
Me. appear, bigicon. Checked = True
End Sub
C．Private Sub bigicon_Click()
bigicon.Checked=True
End Sub
D．Private Sub bigicon_Click()
appear.bigicon.Checked=True
End Sub

相关试题