首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu
有如下程序: Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile num k=k*(nu
admin
2017-04-25
32
问题
有如下程序:
Function fun(ByVal nuin As Integer)As Integer
Dim k As Integer k=1
num=Abs(num)
Do Wbile num
k=k*(num Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer,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
解析
在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/xQGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) DimaAsInteger,sAsInteger a=8 s
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""T
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分虽为Lahel1、Label2,标题分别为空白和"共有文件"的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_______()TextTime.text=TimeEndSub
在窗体上画一个命令按钮,然后编写如下事件过程。该程序运行后,单击命令按钮,在输入对话框中分别输入321和456,则输出结果为【】。PrivateSubCommand1_Click()a=InputBox("请输入一个整数")
在窗体上有三个控件:名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1,并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所
在面向对象的程序设计中,下列叙述错误的是______。
执行下列语句后,输出结果是______。s$="ABCDEFG"PrintlnStr(s$,"efg")PrintLCase$(s$)
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
关于变量作用域,下列叙述中错误的是()。
随机试题
有关干预性研究特点的描述,错误的是
A.牙源性B.腺源性C.损伤性D.血源性E.医源性新生儿颌骨骨髓炎感染多为
下列关于公民的民事权利能力的表述,正确的是( )。
律师接受律师事务所安排办理业务后,律师事务所可以因某些情况的出现终止其代理工作。但发生下列哪一种情况时,不得终止承办律师的代理工作?
保证人和债权人可能就下列哪些合同,签订最高债权额保证合同?()
房地产经纪人是指()。
防病毒卡能够()。
①果戈理!少年和青年,男子和妇女,掌握知识为时不久的中学生和熟悉生活、聪慧颖悟的老者的永恒旅伴。②一旦果戈理渗入我们的心灵,他已然永不离去,而是永久在我们的意识和心中定居,并且像在家里那样在那里生活着——异常果敢,从容安适。③仿佛这全然不是
Inarareunanimousruling,theUSSupremeCourthasoverturnedthecorruptionconvictionofaformerVirginiagovernor,Robert
以下不属于无线局域网应用领域的是______。
最新回复
(
0
)