首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
20
问题
有如下程序:
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全国计算机二级
相关试题推荐
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是( )。
编写如下程序:DimnumAsInteger,rAsInteger,nAsInteger,iAsIntegerDimarr(5)AsIntegerPrivateSubCommand1_Click()num=
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
在考生文件夹卜有一个工程义件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
下列叙述中正确的是
阅读下面的程序代码:PrivateSubCommand1_Click()Printfun(748639,5)EndSubPrivateFunctionfun(xAsLong,aAsInteger)
算法时间复杂度的度量方法是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为( )。
软件测试的目的是
软件测试的目的是
随机试题
目前,我国的国务院环保部门是【】
前苏联大机关内负责推行日常公务的秘书工作机构是
男性,31岁,排便不适,下坠感1个月,偶有腹泻便血,无腹痛,有癌症家族史。若诊断为直肠癌,首选治疗为
《脾胃论》提出的"甘温除热"的代表方剂是
行使侦查、检察、监狱管理职权的机关及其工作人员在行使职权时有下列何种情形的,受害人有取得赔偿的权利?( )
张某的某项发明给企业带来了巨大的经济效益,企业奖励了他100万元,这项奖励属于()。
A公司2017年1月1日未分配利润为一500万元(满足税法弥补条件),当年实现的利润总额为4500万元。适用的企业所得税税率为25%,按净利润的10%提取法定盈余公积,则2017年12月31日A公司的未分配利润为()万元。
将用3H标记的尿苷酸引入某类绿色植物细胞内,然后设法获得各种结构。其中最能表现有放射性的一组结构是()
结婚:离婚
AHealthProfileAhealthprofileisaportraitofallofthefactorsthatinfluenceyourhealth.Todrawyourhealthprofile,y
最新回复
(
0
)