首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=
admin
2009-03-15
58
问题
在窗体上画一个命令按钮,然后编写如下程序:
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=O
转载请注明原文地址:https://kaotiyun.com/show/SH1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
10位同学参加某次团队测试,要求每位同学都必须及格、同时团队平均分不少于80分,整个团队才能够通过。每位同学的成绩可以通过随机数产生(0~100)。请在程序的每条横线处填写一条语句,是程序的功能完整。注意:请勿改动main()主方法和其他已有的语句
请完成下列Java程序:创建一个具有2行3列的GridLayout管理器,包括Choice,Label,Button构件,布局为第1行包括一个Choice构件(包括2个选项item1和item2),一个Label构件(当选择Choice构件中的选项时,La
下列程序的功能是为变量赋值,程序运行后,输出i=51。请改动main方法中的错误,使程序能够正确编译、运行并输出正确的结果。注意:不改动程序结构。classA{privateinta;
下列是定义一个接口ITF的程序,在横线处应填入的选项是()publicinterfaceITF{publicstaticfinaldoublePI=3.14,public______doublearea(doublea,
从工程管理的角度来看,软件设计分两步来完成。首先是概要设计,然后是【】。
软件测试的目的是尽可能发现软件中错误,通常【】是在代码编写阶段可进行的测试,它是整个测试工作的基础。
在结构化方法中,软件功能分解属于下列软件开发中的哪个阶段?()
Java现成调度策略是一种基于优先级的【】。
Swing组件中可以通过拖动控件来设置数值的是()。
随机试题
美术课程的基本理念是面向全体学生。[江苏2019]()
A、温中散寒,行气止痛B、散寒止痛,温中止呕C、散寒止痛,理气和胃D、温中降逆,温肾助阳E、温中止痛,杀虫止痒小茴香的功效是
A.第一类医疗器械B.第二类医疗器械C.第三类医疗器械D.特殊用途医疗器械产品上市需要取得注册证,经营只需办理备案管理的医疗器械是()。
物权的分类标准有()。
盛阳公司对2009年1月8日发生的事项进行账务处理,下列会计分录中,正确的为( )。盛阳公司在对2009年1月1日至4月20口发生的上述事项进行会计处理后,应调减原已编制的2008年12月31日资产负债表中的“应交税费”项目金额( )万元。
一般来说,下列各项指标中数值越小,表明投资价值越大的是()。
地球静止轨道(GEO)卫星的轨道平面与赤道平面重合,卫星轨道离地面高度为()。
对下属的工作,你能宽容的错误有哪些?你最不能原谅的错误是什么?
已知α1,α2为2维列向量,矩阵A=(2α1+α2,α1-α2),B=(α1,α2).若|A|=6,|B|=_______.
Largeanimalsthatinhabitthedeserthaveevolvedanumberofadaptationsforreducingtheeffectsofextremeheat.【C1】______ad
最新回复
(
0
)