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

admin2020-06-30 68

问题有如下程序：
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/9IHp777K

本试题收录于：二级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全国计算机二级

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Frame1、标题为“项目”的框架；框架内有1个名称为opt1的控件数组，该控件数组含有三个标题分别为“篮球”“排球”“足球

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为“等级考试”；再画1个文本框，名称为T1，如图3－184(a)所示。请编写适当的事件过程，使程序运行

下列关于滚动条的叙述中，错误的是

为了在窗体上画一个组合框控件，应在工具箱窗口中选中的图标是()。

软件生命周期是指()。

设有变量声明为”DimaDateAsDate”，则能为变量aDate正确赋值的表达方式是()。

下面对软件测试描述错误的是

围绝经期保健的内容不包括

某女，45岁。面浮肢肿，气短神疲，肢体困重，畏寒肢冷，腰痠膝软，纳呆腹胀，小便清长，舌淡胖，苔白滑，脉沉迟无力。辨证为

金属烤瓷冠唇侧牙体磨除厚度一般为卫生桥桥体龈面至牙槽嵴粘膜的距离至少为

A．消化道传播B．输血传播C．虫媒传播D．呼吸道传播E．直接接触传播

根据《建设工程勘察设计管理条例》的规定，编辑初步设计文件应当()。

中国人民银行上海总部成立于2005年8月10日，其主要职责是()。

在长度为n的顺序表中查找一个元素，假设需要查找的元素有一半的机会在表中，并且如果元素在表中，则出现在表中每个位置上的可能性是相同的。则在平均情况下需要比较的次数大约为()。