首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function funfByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(num) Do While num k=k*(hum Mod 10):num=num\10 L
有如下程序: Function funfByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(num) Do While num k=k*(hum Mod 10):num=num\10 L
admin
2020-04-18
18
问题
有如下程序:
Function funfByVal num As Integer)As Integer
Dim k As Integer k=1
hum=Abs(num)
Do While num
k=k*(hum Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form Click()
DimnAsInteger,rAs Integer
n=InputBox(“请输入一个数:”):n=Int(n):r=tim(n):Print r
End S
选项
A、120
B、48
C、24
D、60
答案
B
解析
在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/JyTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有以下程序段,单击Commandl按钮后,屏幕上的输出结果是()。PrivateSubCommand1__Click()Fori=6To9PrintTab(i*i),iNextiEn
使用菜单编辑器设计菜单时,必须输入的项是()。
结构化程序设计中,下面对goto语句使用描述正确的是
编写如下程序代码:OptionBase1Dimnit()AsIntegerPrivateSubCommandI_Click()DimiAsInteger,jAsIntegerReDi
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的"确定"按钮,则answer$的值为( )。
VB变量x!的数据类型是
下面不属于黑盒测试方法的是
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
A公司2014年1月1日以银行存款500000元购买了B公司100%的股份。当日,B公司的所有者权益为540000元,其中股本为400000元,资本公积为80000元,其他综合收益为0,盈余公积为40000元,未分配利润为20000元。2014年B公司实现
红色血栓可见于
A.0.1B.0.2C.0.5D.1E.2
骨碎补的功效是续断的功效是
关于麻疹流行病学下述错误的是
内痔的主要症状是
垂直接地体的间距不宜小于其长度的()。
下列建设项目的环境影响评价文件由国务院环境保护行政主管部门负责审批的是()。
设有如下关系表:
Languagelearningbeginswithlistening.Individualchildrenvarygreatlyinthemountoflisteningtheydoafter【S1】
最新回复
(
0
)