首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: 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
37
问题
在窗体上画一个命令按钮,然后编写如下程序:
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全国计算机二级
相关试题推荐
数据流图中带有箭头的线段表示的是
下列叙述中正确的是
下列程序要求在对话框中打印“欢迎您参加考试!”。请将程序填写完整。注意:不改动程序结构,不得增行或删行。importjavax.swing.JOptionPane;publicclassex1{publi
请完成下列Java程序。程序的功能是显示用户在命令行方式下指定的任意驱动器目录的内容。提示:publicString[]list();//将目录中所有文件名保存在字符数组中返回。注意:请勿改动main()主方法和其他已有的语句内容,仅在下
下列程序的功能是为变量赋值,程序运行后,输出i=51。请改动main方法中的错误,使程序能够正确编译、运行并输出正确的结果。注意:不改动程序结构。classA{privateinta;
数据库管理系统是位于【】之间的软件系统。
已创建好一个Frame类的对象myfrm,要为其设置标题,需要调用______方法?()
若按层次顺序将一棵有n个结点的完全二叉树的所有结点从1到n编号,那么当i为偶数且小于n时,结点i的右兄弟是结点【】,否则结点i没有右兄弟。
一棵含18个结点的二叉树的高度至少为()。
下列方法中设置Swing容器JFrame大小为20×30的语句是()。
随机试题
对不合作病人的精神检查应包括哪些方面?
某水产批发市场购人一批大黄鱼,部分鱼鳞片有脱落,眼球略有塌陷,要判断这批鱼是否发生腐败变质,可选择的指标包括感官、物理、化学和微生物等方面。鉴定这批鱼是否发生早期腐败的化学指标是
不适用于各期内痔的外治法是
患者,男,50岁,平素易感冒,面色少华,时自汗出,恶风,舌质淡红刚浮无力。用药宜选
沥青混凝土桥面铺装主要评定指标包括()。
盈利企业在计算稀释每股收益时,下列说法中,正确的是()。
某银行的平均存款期限为2.5年,其平均贷款期限为2.8年,则该银行收益与市场利率变化关系为()。
将下面《卡门序曲》(片段)改写为一首6/8拍的旋律。要求:(1)采取合适的节拍、速度及重音。(2)允许对原曲旋律做增减音符、改动节奏的处理,但须保持原有旋律的基本框架。
求.
假设数据段定义如下: DSEG SEGMENT DAT DW 1,2,3,4,5,6,7,8,9,10 CNT EQU($-DAT)/2 DSEG ENDS 执行指令MOV CX,CNT后,寄存器CX的内容是( )。
最新回复
(
0
)