单项选择题

有如下函致：
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

<上一题目录下一题>

热门试题

单项选择题

假定有下表所列的菜单结构：标题名称层次显示大图标小图标 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

单项选择题

在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a s=0:j =1 a = Array(1,2,3,4) For i=4 To 1 Step -1 s =s +a(i) *j j=j * 10 Next Print s End Sub 运行上面的程序并单击命令按钮，其输出结果是

A．4221
B．1234
C．34
D．12

相关试题