有如下程序： 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 27

问题有如下程序：
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://kaotiyun.com/show/bMTp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBasejPrivateSubCommand1_Click()Dimaa=Array(1，2，3，4)j=l
要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。
在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个实心圆。程序运行时，当用鼠标芹键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注
为了使通用对话框弹出的窗口标题显示为“文件操作”，应对通用对话框控件设置的属性是()。
在考生文件夹下有一个工程文件sjt5．vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下in5．dat文件的内容读入一维数组a中，并按下标顺序将数组a各元素的值显示在List1列表框中；单击“移动"按钮，则将数组a中的最大值移动到数组的最前面，其他
关于变量作用域，下列叙述中正确的是()。
关于菜单设计，下列叙述中错误的是()。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是(　　)。
下列不属于软件工程三个要素的是()。
软件工程研究的内容主要包括：【】技术和软件工程管理。

随机试题

ThisyearisthetwohundredthanniversaryofthebirthofwriterEdgar/UlanPoe.EdgarAllanPoe,whoselifewas【36】andseemin
以下哪项对诊断急性心衰没有意义
正气胜邪病向愈的苔象变化是正不胜邪胃气暴绝的苔象变化是
其他项目清单的内容不包括()。
英译汉：“certificateofdamage；certificateofcargoG.A.”，正确的翻译为(　　)。
某企业只生产一种产品，单价20元，单位变动成本12元，固定成本为2400元，满负荷运转下的销售量为400件。下列有关说法中正确的有()。
把社会主义本质概括为“解放生产力，发展生产力，消灭剥削，消除两极分化，最终达到共同富裕”的中国共产党人是()。
区域性目标是指广告目标覆盖一省或几省，这一区域因为()等方面的相同或相似而连成一体。
Thepublishinghousehasbroughtoutan(entire)______neweditionofthedictionary.
Manybusinesses,suchasdepartmentstores,restaurants,hotelsandairlinecompanies,useacreditsystemforsellingtheirpro

最新回复(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全国计算机二级

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBasejPrivateSubCommand1_Click()Dimaa=Array(1，2，3，4)j=l

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是( )。

为了使通用对话框弹出的窗口标题显示为“文件操作”，应对通用对话框控件设置的属性是()。

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

关于菜单设计，下列叙述中错误的是()。

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是( )。

下列不属于软件工程三个要素的是()。

软件工程研究的内容主要包括：【】技术和软件工程管理。

ThisyearisthetwohundredthanniversaryofthebirthofwriterEdgar/UlanPoe.EdgarAllanPoe,whoselifewas【36】andseemin

以下哪项对诊断急性心衰没有意义

正气胜邪病向愈的苔象变化是正不胜邪胃气暴绝的苔象变化是

其他项目清单的内容不包括()。

英译汉：“certificateofdamage；certificateofcargoG.A.”，正确的翻译为( )。

某企业只生产一种产品，单价20元，单位变动成本12元，固定成本为2400元，满负荷运转下的销售量为400件。下列有关说法中正确的有()。

把社会主义本质概括为“解放生产力，发展生产力，消灭剥削，消除两极分化，最终达到共同富裕”的中国共产党人是()。

区域性目标是指广告目标覆盖一省或几省，这一区域因为()等方面的相同或相似而连成一体。

Thepublishinghousehasbroughtoutan(entire)______neweditionofthedictionary.

Manybusinesses,suchasdepartmentstores,restaurants,hotelsandairlinecompanies,useacreditsystemforsellingtheirpro

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是(　　)。

英译汉：“certificateofdamage；certificateofcargoG.A.”，正确的翻译为(　　)。