有如下程序： Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：n

admin2020-04-18 21

问题有如下程序：
Function fun(ByVal aura As Integer)As Integer
  Dim k As Integer k=1
  num=Abs(num)
  Do While num
k=k*(num Mod 10)：num=num＼10
  Loop
  fun=k
  End Function
  Private Sub Form_Click()
Dim n As Integer，r As Integer
  n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为

选项 A、120
B、48
C、24
D、60

答案B

解析在函数fun中会对传过来的参数num进行判断，如果不为0则进行循环，将各位数字乘到一起然后作为函数的返回值。

转载请注明原文地址:https://jikaoti.com/ti/r1x0FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时(　　)。PrivateSubClick_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print
(1)考生文件夹下的工程文件sjt3．vbp中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图2．160所示)。当选中“计算100以内自然数之和”菜单项时，将计算100以内自然数之和并放入Textl中；当选中“计算
假定有以下循环结构：DoUntil条件表达式　　　　循环体Loop则以下正确的描述是(　　)。
标准模块中有如下程序代码：PublicxAsInteger，YAsIntegerSubTempSub()x=10：y=20EndSub在窗体上有1个命令按钮，并有如下事件过程：PrivateSubCommandl_C
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是
以下关于VB的叙述中，错误的是()。
关于变量作用域，下列叙述中正确的是()。
在考生文件下有一个工程文件sjt5．vbp，按照要求完成以下操作：在名称为Form1的窗体上添加两个命令按钮，其名称分别为C1和C2。抓题分别为“读人数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadD
在窗体上画一个通用对话框，程序运行中用ShowOpen方法显示"打开"对话框时，希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件，则在设计阶段应把通用对话框的Filter属性设置为(　　)。

随机试题

四连杆机构运动到图示位置时，AB／／O1O2，O1A杆的角速度为w1，则O2B杆的角速度w2为：
某监理单位对实施监理的某跨越大江大河的桥梁施工工程的动力供应、施工照明、安全防护设备、施工场地空间条件以及交通运输和道路条件在施工前进行了检查。承包单位因条件限制，不能建立试验室，则委托某一具有相应资质的专门试验室作为本工程施工用试验室。监理工程师
某水利工程施工项目经过招标，建设单位选定A公司为中标单位。双方在施工合同中约定，A公司将设备安装、配套工程和桩基工程的施工分别分包给B、C和D三家专业公司，业主负责采购设备。该工程在施工招标和合同履行过程中发生了下述事件：事件1：施工招标过程中共有6家
2015年12月1日，甲公司通过分期付款方式取得一项大型生产设备，价款为500万元，在当日支付价款200万元，另外300万元自2016年开始每年年末支付100万元。该项设备在购买当日的公允价值为467．3万元。甲公司另以银行存款支付安装费10万元，员工培训
在规定的时间间隔进行物品配送，每次配送的品种和数量，按用户要求进行配送的配送服务的形式是()。
领导让你和兄弟部门合作。方案紧急。你没有征询其他部门意见．引起了其他人不满。你怎么办?
A、 B、 C、 D、 C第一行前一个图形中的阴影依次顺时针移动2格得到后一个图形，第二行前一个图形中的阴影依次顺时针移动4格得到后一个图形，第三行前一个图形中的阴影依次顺时针移动6格得到后一个图形。
某上市公司职业经理人在任职期间不断提高在职消费，损害股东权益。这一现象主要揭示公司制企业的缺点是()。
HigherGasPricesAreAffectingCarPurchaseDecisionThepercentageofcarbuyerschangingtheirmindabouttheirnextnewcar
Man:I’msorryImissedthefootballgame,butIhadaterriblecold.Woman:Youdidn’tmissanything.Wecouldn’thaveplayedw

最新回复(0)

有如下程序： Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：n

二级VB

NCRE全国计算机二级

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。PrivateSubClick_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print

假定有以下循环结构：DoUntil条件表达式 循环体Loop则以下正确的描述是( )。

标准模块中有如下程序代码：PublicxAsInteger，YAsIntegerSubTempSub()x=10：y=20EndSub在窗体上有1个命令按钮，并有如下事件过程：PrivateSubCommandl_C

为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是

以下关于VB的叙述中，错误的是()。

关于变量作用域，下列叙述中正确的是()。

在窗体上画一个通用对话框，程序运行中用ShowOpen方法显示"打开"对话框时，希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件，则在设计阶段应把通用对话框的Filter属性设置为( )。

四连杆机构运动到图示位置时，AB／／O1O2，O1A杆的角速度为w1，则O2B杆的角速度w2为：

在规定的时间间隔进行物品配送，每次配送的品种和数量，按用户要求进行配送的配送服务的形式是()。

领导让你和兄弟部门合作。方案紧急。你没有征询其他部门意见．引起了其他人不满。你怎么办?

A、 B、 C、 D、 C第一行前一个图形中的阴影依次顺时针移动2格得到后一个图形，第二行前一个图形中的阴影依次顺时针移动4格得到后一个图形，第三行前一个图形中的阴影依次顺时针移动6格得到后一个图形。

某上市公司职业经理人在任职期间不断提高在职消费，损害股东权益。这一现象主要揭示公司制企业的缺点是()。

HigherGasPricesAreAffectingCarPurchaseDecisionThepercentageofcarbuyerschangingtheirmindabouttheirnextnewcar

Man:I’msorryImissedthefootballgame,butIhadaterriblecold.Woman:Youdidn’tmissanything.Wecouldn’thaveplayedw

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时(　　)。PrivateSubClick_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print

假定有以下循环结构：DoUntil条件表达式　　　　循环体Loop则以下正确的描述是(　　)。

在窗体上画一个通用对话框，程序运行中用ShowOpen方法显示"打开"对话框时，希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件，则在设计阶段应把通用对话框的Filter属性设置为(　　)。