首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=nu
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=nu
admin
2010-09-11
24
问题
在窗体上画一个命令按钮,然后编写如下程序:
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_ Click()
Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数”)
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入“345”,输出结果为【 】。
选项
答案
60
解析
程序首先要求用户输入一个数,然后将这个数转化为长整型传递入函数fun。本题中传入的数字是345。
函数fun中首先将传入的参数取绝对值,然后进入循环:
第一次循环结束的时候:
k=5
num=34
第二次循环结束的时候:
k=20
num=3
第三次循环结束的时候:
k=60
num=0
转载请注明原文地址:https://kaotiyun.com/show/1Pmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
程序流程图(PFD)中的箭头代表______。
执行下面程序段后,z值为intx=1,y=2,z=3;z=z/(float)(x/y);
在求解运算速度要求不高,但是要求程序简洁的问题时,通常采用【】结构。
关于Applet执行的操作,下面说法正确的是()。
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为【】。
数据库系统的核心是( )。
将E-R图转换到关系模式时,实体与联系都可以表示成( )。
请完善程序(程序文件名:Java_2.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。[题目要求]在JFrame窗口中,显示一个字符串并保证窗口正常关闭和退出,使程序运行结果如下图所示。
设某循环队列的容量为50,头指针front=5(指向队头元素的前一位置),尾指针rear=9(指向队尾元素),则该循环队列中共有______个元素。
下列各项关于Applet(小应用程序)的描述中错误的是()。
随机试题
领导类型的划分是()
患者,女性,37岁,已婚,1-0-3-1,因“放宫内节育器6年,近1年经期延长至10余天”就诊。该患者进一步的检查应选择[病史询问结果]患者6年前在乡计划生育指导站人工流产时放置T型宫内节育器,经过顺利;术后每年1次随访,但近2年因外出打
下列药物在使用前需要做过敏试验的是
某企业上年12月31日资产负债表部分项目的年初数和期末数如表7—3所示。(单位:元)该企业上年度产品销售收入4000000元,利润总额400000元,应交所得税100000元,利息支出15000元。本年1月份发生的部分经济业务如下:(
在对客户的资金调用和调整成本方面,理财师应把握好的原则有()。
甲企业为增值税一般纳税人,适用的增值税税率为17%,存货采用计划成本法核算。该企业2010年9月初“应交税费”账户余额为零,当月发生下列相关业务:(1)购入材料一批,价款200000元,增值税税额34000元,以银行存款支付,该材料计划成本210000元
职工基于企业组织一员的身份而得到的,与职工个人的工作绩效无直接关系的是()。
李安新片《少年派的奇幻漂流》,再度引发观影热潮。短短十几天之内.几乎每一位评论家都在谈论导演想象的奇谲,每一位观众都在解读影片背后的玄妙深意。应该说.优秀的作品为受众提供了开放的读解空间,而受众的解读也为文艺作品的阐释提供了丰富的认知可能。然而,值得警惕的
参加阅兵式的官兵排成一个方阵,最外层的人数是80人,这个方阵共有官兵多少人?()
Madewasatall,handsome22-year-oldBalinesemanwhowasinlovewithonegirlbutexpectedtomarryanother.Hisstepmotherh
最新回复
(
0
)