首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
有如下程序: Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num
admin
2020-02-27
57
问题
有如下程序:
Function fun(ByVal num As Integer) As Integer
Dim k As Integer
k = 1
num = Abs(num)
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的初值并转换成数字进行计算。Do While…Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://kaotiyun.com/show/qTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个名称为Shape1的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文
一个工作人员可以使用多台计算机,而一台计算机可被多个人使用,则实体工作人员与实体计算机之间的联系是( )。
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dac文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并利用
在数据库管理系统提供的数据语言中,负责数据的查询、增加、删除和修改等操作的是
开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称做()。
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称做()。
随机试题
________是属于国际货币基金组织创设的特有国际储备资产。
女性,59岁,被汽车碾压骨盆后3小时而送至医院。查体:病人谵妄,皮肤发紫,四肢厥冷,血压60/40mmHg,脉搏细速。目前需首先处理的是
以下哪一项不属于男性尖锐湿疣的临床表现()
患者,女,40岁。妊娠30周,胎儿畸形,入院行引产术,婚育史:G4P1。查体:T37.5℃,BP135/80mmHg。实验室检查:Hb73g/L,WBC8.2×109/L,Plt200×109/L,ABO血型为A型,Rh血型的D抗原缺乏。术前为
会计资料的()是会计资料最基本的质量要求,是会计工作的生命。
下列不属于金融期货的有()。
俄亥俄大学研究得出领导行为的维度包括()。
Ithinkthereareonlyafewsportsthatareboth_________and___________.
上前牙切缘至下前牙唇面的水平距离超过多少才称为前牙深覆盖()。
Amanescapedfromtheprisonlastnight.Itwasalongtime____theguardsdiscoveredwhathadhappened.
最新回复
(
0
)