首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
admin
2019-07-30
74
问题
有如下程序:
Function fun(ByVal num As Integer)As Integer
Dim k As Integer
k=1
hum=Abs(nnm)
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的初值并转换成数字进行计算。DoWhile…Loop循环对传过来的数值进行处理。Nod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/IpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于窗体的叙述中,错误的是
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()m=-3.6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPr
下列叙述中正确的是
滚动条可以响应的事件是
以下可以作为“容器”的控件是
语句:PrintAsc(Chr$(Mid$("98765432",4,2)))的输出是
以下说法中正确的是()。
随机试题
为幼儿园中班设计一个“使声音变大”的科学教育活动方案。
发作性呼气性呼吸困难常见于()。
3岁,女性患者,自生后右面部见有一红色、界限清晰的斑块,不高出皮面,压之能褪色。随年龄增长而增大。最可能的诊断是
含有吡咯烷基乙酰胺的药物是()
背景资料某通信施工单位承担某地移动通信基站安装工程,主要内容为基站设备、天馈线系统、传输设备及配套电源设备的安装和测试。设备及主材由建设单位采购。施工过程中,发生下列事件:事件一:开工初期,项目部组织现场检查时,没有找到材料的
以概念同化的学习方式获得概念主要发生在()
西斯廷教堂天花板上米开朗基罗的壁画的清洗和修复工作是由一些世界上最好的艺术复原专家在一批国际性艺术家和历史专家的密切监督下进行的。然而,结果产生一场争议性风暴。大多数的现代参观者似乎已习惯于观看这些颜色已被泛黄的胶层和灰尘弄得黯淡无光,人物的轮廓已被半个世
[*]
BernardBailynhasrecentlyreinterpretedtheearlyhistoryoftheUnitedStatesbyapplyingnewsocialresearchfindingsonthe
ThespaceageofficiallybeganonOctober4,1957,【C1】______theSovietUnionlaunchedthemodest185-poundSputnikI,thefirst
最新回复
(
0
)