首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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-07-22
53
问题
有如下程序:
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/I5Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubFor
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下面关于命令按钮的叙述中错误的是
结构化程序的三种基本结构是()。
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
有三个关系表R、S和T如下,其中三个关系对应的关键字分别为A,B和复合关键字(A,B)。表T的记录项(b,q,4)违反了
假定在标准模块中的声明部分有如下语句:PublicVarAAsInteger而在窗体模块的声明部分有如下语句:PublicVarBAsInteger则以下叙述中正确的是
在考生目录下有一个工程文件sit5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,显示“*”),无初始内容;Text
与数学式子对应的VisualBasic表达式是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
随机试题
A.鞭毛B.普通菌毛C.性菌毛D.荚膜E.芽孢细菌结构中可作为物品消毒灭菌效果判断的指标是
外科内治法的具体治法哪项不正确
板桩建筑物沉桩时,沿板桩墙纵轴线方向的垂直度偏差超过规定时,对于钢筋混凝土板桩,可采用()的方法进行调整。
传统的交易所债券市场通常只采用()的交易方式,即按照时间优先、价格优先的原则,由交易系统对投资者买卖指令进行匹配,最后达成交易。
个人信用贷款需要客户提供银行认可的抵押物或第三方保证作为担保。()
(2009年)2007年7月1日,甲钢铁公司(以下简称“甲公司”)向乙建筑公司(以下简称“乙公司”)发函,其中有甲公司生产的各种型号钢材的数量、价格表和一份订货单,订货单表明:各型号钢材符合行业质量标准,若乙公司在8月15日前按价格表购货,甲公司
根据企业会计制度规定,下列说法正确的有()。
W市农村居民消费若能保持2008年的增长势头,2009年将增加消费()。2008年W市农村居民购买居住消费支出占农村居住消费人均支出的比重比2007年()。
某小区召开业主大会,会上物业管理处马主任现场解答业主的提问,其中符合法律规定的是()。
无边落木:不尽长江
最新回复
(
0
)