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

admin2020-02-27 59

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

解析程序从对话框中获得n的初值并转换成数字进行计算。Do While…Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

下面不属于软件设计阶段任务的是

在数据库管理技术的发展中，数据独立性最高的是()。

下列方法中，不属于软件调试方法的是()。

已知二叉树后序遍历序列是CDABE，中序遍历序列是CADEB，它的前序遍历序列是()。

下列选项中，不属于数据模型所描述的内容的是()。

以下哪项属于胎儿窘迫的指征

国务院证券监督管理机构在对证券市场实施监督管理中应履行()职责。

小学生认知技能获得的主要方式是()。

下列句子中没有语病的是（）。

近年来，我国各地公安机关加强警校联动，统筹校园内外安全防控体系，有力维护了校园安全。这种对未成年人的保护是()

目前，几乎所有的科学家都_所谓的“生殖性克隆”，即用生殖技术制造完整的克隆人，但对“治疗性克隆”大多持_态度。填入划横线部分最恰当的一项是()。

在局域网的拓扑结构中，只允许数据在传输媒体中单向流动的拓扑结构是()。

下列软件中，属于系统软件的是（）。

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

二级VB

NCRE全国计算机二级

下面不属于软件设计阶段任务的是

在数据库管理技术的发展中，数据独立性最高的是()。

下列方法中，不属于软件调试方法的是()。

已知二叉树后序遍历序列是CDABE，中序遍历序列是CADEB，它的前序遍历序列是()。

下列选项中，不属于数据模型所描述的内容的是()。

以下哪项属于胎儿窘迫的指征

国务院证券监督管理机构在对证券市场实施监督管理中应履行()职责。

小学生认知技能获得的主要方式是()。

下列句子中没有语病的是（）。

近年来，我国各地公安机关加强警校联动，统筹校园内外安全防控体系，有力维护了校园安全。这种对未成年人的保护是()

目前，几乎所有的科学家都_______所谓的“生殖性克隆”，即用生殖技术制造完整的克隆人，但对“治疗性克隆”大多持_______态度。填入划横线部分最恰当的一项是()。

在局域网的拓扑结构中，只允许数据在传输媒体中单向流动的拓扑结构是()。

下列软件中，属于系统软件的是（）。

目前，几乎所有的科学家都_所谓的“生殖性克隆”，即用生殖技术制造完整的克隆人，但对“治疗性克隆”大多持_态度。填入划横线部分最恰当的一项是()。