首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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-02-27
47
问题
有如下程序:
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全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是()。
单击命令按钮时,下列程序段的执行结果为()。PrivateSubCommandl_Click()PrintFuncl(24,18)EndSubPublicFunctionFuncl
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array(2,4,
窗体上命令按钮的事件过程如下:PrivateSubCommand1_Click()A="34":B="26":C="98"PrintB+C+AEndSub运行程序后,单击命令按钮,输出结果是(
结构化程序设计的3种结构是()。
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
下列关于顺序文件的描述中,正确的是( )。
某二叉树的前序遍历序列与中序遍历序列相同,均为ABCDEF,则后序遍历序列为()。
在软件开发中,需求分析阶段可以使用的工具是()。
随机试题
目前中国人咯血的常见原因是
社区危险因素评估主要是针对
A.一次最高浓度B.日平均最高浓度C.一次最高容许浓度D.日平均最高容许浓度E.C+D大气污染物具有蓄积作用,应制订
将存量房屋市场分为租赁、转让、抵押等市场的划分方式是()。
“收入-费用=利润(或亏损)”,关于此等式说法不正确的是( )。
侗族信仰多神,盛行祖先崇拜和自然崇拜,其至高无上的神为()。
澳大利亚山火4个月不断,迷雾烟尘影响了新西兰,网民说这火要是在中国早就被扑灭了。对此,谈谈你的看法。
设f(x)在[a,b]上连续,在(a,b)内二阶可导,f(a)=f(b)=0,且.证明:存在ε∈(a,b),使得f"(ε)﹤0.
HTTP是________传输协议。
Likemanyworkers,IvelisseRivera,aphysicianatCommunityHealthCenter,Middletown,Conn.,feelsstressed-outbymountingw
最新回复
(
0
)