首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下程序: 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
14
问题
在窗体上画一个命令按钮,然后编写如下程序:
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/5kmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当把一个程序、线程或代码段的输出连接到另一个程序、线程或代码段的输入时,应使用( )流。
在软件工程中,白盒测试法可用于测试程序的内部结构。此方法将程序看做( )。
下列代码的功能是把按钮save添加到窗口myFrame的中间,在空白处应填入的代码是______。importJavax.swing.*;publiccalssMyFrame{publicstaticvoidmain
阅读下面实现堆栈类并发控制的部分代码publicclassDataStack} privateintidx=0; privateint[]data=newint[8]; publicvoidpush(in
对于一个3位的正整数m,取出它的个位数字t(t为整型)的表达式是______。
下列有关算法的描述中错误的是()。
下面不属于软件设计原则的是()
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
执行以下程序段后,变量c$的值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是______。
随机试题
解释下列句子中划线的词语相与枕藉乎舟中,不知东方之既白。
A.100次/分B.75次/分C.507欠/分D.25次/分E.10次/分窦房结的自律性为
A、巴豆B、火麻仁C、甘遂D、芦荟E、京大戟用于肠燥津枯的药物是
与邀请招标相比,公开招标的最大优点是()。
依法必须进行施工招标的工程建设项目,可以采用邀请招标的情形有()。[2015年真题]
会计人员如果泄露本单位的商业秘密,可能导致的后果将会有()。
下列选项中,不属于风能特点的是()。
势均:力敌
设B≠0为三阶矩阵,且矩阵B的每个列向量为方程组的解.则k=________,|B|________.
Afinancialfutureisacontracttobuyorsellcertainformsofmoneyataspecifiedfuturedate,withthepriceagreedatthe
最新回复
(
0
)