有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Nex

admin2013-04-11 71

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

答案1

解析本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。

转载请注明原文地址:https://kaotiyun.com/show/qOhp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类