首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
33
问题
有如下程序:
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全国计算机二级
相关试题推荐
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommandl—Click()DimSAsString,chAsStrings=""Fork=1
用LineInput语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到()分隔符,即认为一行的结束。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4 Print NextEndSub程序
在关系数据库中,用来表示实体间联系的是
VB中有3个键盘事件:KeyVress、KeyDown、KeyUP,若光标在Text1文本框中,则每输入一个字母()。
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
对下列二叉树进行前序遍历的结果为()。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
检查软件产品是否符合需求定义的过程称为
随机试题
求1~100中既不是5的倍数,又不是6的倍数的数有多少个?
男,45岁,腰腿疼痛,并向左下肢放射1月。咳嗽、弯腰时加剧。查体:腰部活动明显受限,直腿抬高试验及加强试验均阳性。病程中无低热、盗汗、消瘦等症状。若体检发现患者左足、趾跖屈无力及跟腱反射弱,则病变节段位于
前列腺增生引起下尿路梗阻后所导致的病理改变包括
阴部内动脉来自
面包陪烤时,由于发生美拉德反应,将使何种氨基酸失去效能
三叉神经痛疼痛的特点是()
除另有规定外,口服制剂标签上应注明“用前摇匀”的是()
世行、亚行贷款项目咨询服务采购过程中,只适用于30万美元以下的小合同的采购方式是()。
设f(u,v)具有连续偏导数,且满足f’u(u,v)+f’v(u,v)=uv求y(x)=e2x(x,x)所满足的一阶微分方程,并求其通解.
Basedonaccumulatedsocialresearch,therenowcanbelittledoubtthatsuccessfulandwell-adjustedchildreninmodernsocieti
最新回复
(
0
)