有如下程序： Function fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num

admin2020-01-02 44

问题有如下程序：
Function fun(ByVal hum 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/KhTp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

下面程序计算并输出的是()。PrivateSubCommand1_Click()Num＝10：Sum＝0DoSum＝Sum＋Num*Num*NumNum＝Num－1LoopUnti1N
下列有关过程的叙述中错误的是()。
在文本框中，要设置显示的文本颜色，应该设置()属性。
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个事件中执行的语句分别为()。
下面的程序执行完毕后，组合框中数据项的值是()。PrivateSubForm_Click0Fori=＝1To6Combo1．AddItemiNextiFori＝1To3
下列数组定义中错误的是()。
把数学表达式表示为正确的VB表达式应该是()。
窗体上的三个命令按钮构成名称为Commandl的控件数组。如图所示。程序如下：PrivateSubCommandl—Click(IndexAsInteger)IfIndex=1ThenPrint“计算机等级考试
算法的时间复杂度是指()。

随机试题

简述青霉素皮试液的配制。
A、风热感冒B、外感风寒犯肺咳嗽C、肺肾阴虚咳嗽D、阳虚寒凝便秘E、食积胃痛疏散风寒，宣肺解表法可治疗（）
A、0B、1C、2eD、2C
项目投资目标具体化，形成了设计概算、修正概算和施工图预算，这发生在项目的()。
对于应急工程的建设，其工程承包合同的计价形式较适合采用()。
某产品的实际成本为5000元，由6个零部件组成，其中零一个部件的实际成本为880元，功能指数为0．190，则该零部价的价值系数为()。
2018年8月20日，上海金融法院正式挂牌成立。下列不属于上海金融法院管辖范围的是()。
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈，然后再依次出栈，则元素出栈的顺序是
Thefitnessmovementthatbeganinthelate1960sandearly1970scenteredaroundaerobicexercise(有氧操).Millionsofindividuals
Theworldisonthecuspofastaggeringriseinthenumberofoldpeople,andtheywilllivelongerthaneverbefore.Overthe

最新回复(0)

有如下程序： Function fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num

二级VB

NCRE全国计算机二级

下面程序计算并输出的是()。PrivateSubCommand1_Click()Num＝10：Sum＝0DoSum＝Sum＋Num*Num*NumNum＝Num－1LoopUnti1N

下列有关过程的叙述中错误的是()。

在文本框中，要设置显示的文本颜色，应该设置()属性。

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个事件中执行的语句分别为()。

下面的程序执行完毕后，组合框中数据项的值是()。PrivateSubForm_Click0Fori=＝1To6Combo1．AddItemiNextiFori＝1To3

下列数组定义中错误的是()。

把数学表达式表示为正确的VB表达式应该是()。

窗体上的三个命令按钮构成名称为Commandl的控件数组。如图所示。程序如下：PrivateSubCommandl—Click(IndexAsInteger)IfIndex=1ThenPrint“计算机等级考试

算法的时间复杂度是指()。

简述青霉素皮试液的配制。

A、风热感冒B、外感风寒犯肺咳嗽C、肺肾阴虚咳嗽D、阳虚寒凝便秘E、食积胃痛疏散风寒，宣肺解表法可治疗（）

A、0B、1C、2eD、2C

项目投资目标具体化，形成了设计概算、修正概算和施工图预算，这发生在项目的()。

对于应急工程的建设，其工程承包合同的计价形式较适合采用()。

某产品的实际成本为5000元，由6个零部件组成，其中零一个部件的实际成本为880元，功能指数为0．190，则该零部价的价值系数为()。

2018年8月20日，上海金融法院正式挂牌成立。下列不属于上海金融法院管辖范围的是()。

一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈，然后再依次出栈，则元素出栈的顺序是

Thefitnessmovementthatbeganinthelate1960sandearly1970scenteredaroundaerobicexercise(有氧操).Millionsofindividuals

Theworldisonthecuspofastaggeringriseinthenumberofoldpeople,andtheywilllivelongerthaneverbefore.Overthe

下面程序计算并输出的是()。PrivateSubCommand1_Click()Num＝10：Sum＝0DoSum＝Sum＋NumNumNumNum＝Num－1LoopUnti1N