首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
有如下程序: Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num\10 L
admin
2019-07-30
40
问题
有如下程序:
Function fun(ByVal num As Integer)As Integer
Dim k As Integer
k=1
hum=Abs(nnm)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer
Dim 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
解析
程序从对话框中获得n的初值并转换成数字进行计算。DoWhile…Loop循环对传过来的数值进行处理。Nod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/IpUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框只能显示信息,不能接收输入的信息,以下能实现该操作的语句是
以下叙述中正确的是
在窗体上画一命令按钮和一文本框,其名称分别为Commandl和Textl,然后编写如下程序:FunctionFun(xAsInteger,PrivateSubCommandl_Click()yAsInte
设有下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是
下面哪个属性肯定不是框架控件的属性
语句:PrintInt(Rnd*5+20)的输出不可能是
PrintRight("VBProgramming",2)语句的输出结果是
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ABCDCD”Functiondelchar(strAsString,chAsStr
随机试题
一个长方形,若将短边长度增加4厘米,长边长度增加一倍,则面积是原来的3倍,若将长边缩短8厘米,则变成正方形,问原长方形面积是多少平方厘米?()
保育员道德品行素质首先表现为完善健全的()
尿毒症最早出现的症状是()。
患者恶寒发热,无汗,头痛,身痛,喘咳。其证候是()
A.马钱子、天仙子B.枇杷叶、侧柏叶C.山豆根、制川乌D.吴茱萸、蛇床子E.车前子、地肤子根据《中国药典》对有毒中药的分类“小毒”中药有()。
新奥法施工各工序均很重要,但施工控制的核心是()。
反映企业用经营所得支付债务利息的能力,用来衡量盈利能力对债务偿付的保障程度的指标是( )。
甲企业在6年前以缴纳土地出让金的方式取得一宗国有土地的使用权,取得土地使用权支付地价款和相关税费合计500万元。2015年12月,甲企业改制重组为A有限责任公司,房屋权属转移时按规定未缴纳土地增值税。2016年3月,A有限责任公司将该宗土地转让,与此同时同
社区照顾模式由()共同分担责任。
buyninechildwellmeethappyeat—Wheredoyoulive?—Iliveinatallbuilding,onthe______floor.
最新回复
(
0
)