首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
42
问题
有如下程序:
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()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0Printn\10
文本框的Locked属性被设置为True后产生的效果是
下列数据结构中,能用二分法进行查找的是()。
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值
表达式Str(Len("123"))+Str(77.7)的值是()。
在窗体上没有进行任何属性设置,然后编写如下事件过程,则程序运行结果是()。PrivateSubForm_Load()Fori=1To10sum=sum+iNex
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
为使文本框具有初始值"VB",在设计阶段正确的操作是
下列工具中,不属于结构化分析的常用工具的是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
阅读《归园田居》的教学实录(节选),按要求答题。(画线语句的序号与选项的序号是对应的)师:下面我们来重点分析一下第三句,哪位同学来读一读?生:羁鸟恋旧林,池鱼思故渊。师:[A]这两句非常巧妙,哪位同学来分析一下,这两句表达了作者怎样的情感?生:[B
下列各项,属异位妊娠病机实质的是
治疗肝昏迷的抗帕金森药是
公民、法人或者其他组织可以依照《中华人民共和国行政复议法》申请行政复议的情形有
高胃酸的病人应服延长胃排空的药物为
《诗经》上说:“高岸为谷,深谷为陵。”就是说,高的堤岸可以变为深谷,深谷也可以变成丘陵。这是一种()。
甲(男)、乙(男)、丙(女)、丁(女)、戊(女)五个人有亲戚关系,其中凡有一个以上兄弟姐妹并且有一个以上儿女的人总说真话;凡只有一个以上兄弟姐妹或只有一个以上儿女的人.所说的话真假交替;凡没有兄弟姐妹,也没有儿女的人总说假话。他们各自作出了断定。甲说:“丙
(中国人大2012年)X公司正在研究如何调整公司的资本结构。目前,公司发行在外的股票为4,000万股,每股价格20元。(以市场价值计)负债权益比为0.25。公司权益的贝塔为1.2,公司的债务评级为AAA,对应的市场利率基本等于目前8%的无风险利率水平,市场
Theeconomicnewsforyoungwomenrecentlyhasbeenbright.Severalstudieshavesuggestedthatwomenunder30wholiveincitie
A、Consultwithheruncleandaunt.B、Buyabusticket.C、Returnthetrainticket.D、Seekhelpfromthecompany.A
最新回复
(
0
)