首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
76
问题
有如下程序:
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全国计算机二级
相关试题推荐
下面控件中,没有Caption属性的是
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivmeSubCommandl_Click()Dima(10)AsInteger,iAsIntegerRandomizeFori=1To10
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()a$=InputBox("请输入一个二进制数")n=Len(a$)Fori=1TonDec=Dec*2+___
下列叙述中正确的是
若要清除列表框控件中的所有列表项,应该使用的方法是
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ABCDCD”Functiondelchar(strAsString,chAsStr
如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是
以下说法中正确的是()。
以下说法中正确的是()。
随机试题
因为下大雪,足球比赛推迟到下周日举行。
患者男,14岁。既往体健。10天前受凉感冒,2天前现出现意识错乱、情感淡漠、反应迟钝、缄默不语、拒食等临床表现。对该患者的治疗,不正确的是
“望色十法”中,能预测生死的是
宫内妊娠8周时,妇科检查发现左侧附件区有一鹅卵大小的囊性肿物,无明显压痛,活动良好的肿物。此肿瘤可能是
商业银行贷款,应当遵守下列哪些资产负债比例管理的规定?( )
进口货物的原产地标记与依照《中华人民共和国进出口货物原产地条例》所确定的原产地不一致的,由()责令改正。
根据《担保法》的规定,保证的责任方式是指一般保证。()
税务机关行使代位权,可以免除欠缴税款的纳税人尚未履行的纳税义务和应承担的法律责任。()
线性方程组则()
在SQL中,基本表的撤消(从数据库中删除表)可以用()。
最新回复
(
0
)