首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
admin
2020-07-22
50
问题
有如下程序:
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/I5Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFo
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
下面不属于软件设计阶段任务的是
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数,判断大于1的整数x是否是Fibonacci数列中的某个数,若是,则返回True,否则返
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
随机试题
H公司是一家物业管理公司,作为一家年轻的物业管理公司,公司成立以来业务发展迅速,现已管理八个小区,介入咨询和接管物业的总建筑面积达110余万平方米,已经发展成为我国深圳市一流的物业管理服务企业。由于当前物业管理相关的法律法规并不健全,已颁布的法律
下列组织不能用乙醇固定的是
下列关于调查设计的叙述,正确的是
依据《工程监理企业资质管理规定》甲级工程监理企业的企业负责人和技术负责人应当具备的条件是( )。
在下列情形中,注册机关依据职权或根据利害关系人的请求,可以撤销注册建造师注册的有()。
某项目固定资产投资是3850万元,流动资金为462万元,铺底流动资金为139万元,投产后正常生产年份的利润总额为578万元,销售税金及附加为200万元,借款利息为100万元,则正常生产年份的总投资收益率为()。
根据监管部门要求,国内银行可分为()。
一碗妈妈做的炸酱面,是挥之不去的儿时记忆;一碗豆花,融溢着对外婆的深深思念;一碗羊肉泡馍,沉淀着浓浓的乡愁……食物温暖了胃,也温暖了心;味蕾会恋上食物,心会记起那个人。这说明()。
【义净】
提出“先定论”宗教改革思想的人是()。
最新回复
(
0
)