首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
2015-08-28
39
问题
有如下程序:
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/sELp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在使用打印直接输出信息时,下列哪个属性或方法实现了使文件结束打印()。
下列______语句可以为动态数组分配实际元素个数。
执行以下语句后,输出结果为______。s$="ABCDEFG"PrintInStr(s$,"efg")PrintLCase$(s$)
定义变量如下:DimStr_xStr_x="祝你成功!"若在立即窗口中显示Str_x的值,下面正确的是______。
在数据的存储结构中,不仅需要存储各数据元素的信息,还要存放各元素之间______的信息。
以下声明语句中错误的是______。
在下列几种排序方法中,要求内存量最大的是______。
如果要改变窗体的标题,需要设置窗体对象的______属性。
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第
在考生文件夹中有一个工程文件execise32.vbp,相应的窗体文件为execise32.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“小于500的整数之和”的命令按钮。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这
随机试题
患者经期小腹胀痛拒按,胸胁乳房胀痛,经行不畅,月经色紫暗、有块,舌质紫暗,脉弦。治疗应选用
不合格玩具产品经整改后可重新报检,检验合格后放行。( )
对已发行的证券进行买卖、转让的市场称为()。
甲公司2013年度发生的有关交易或事项如下:(1)年初出售无形资产收到现金净额100万元。该无形资产的成本为150万元,累计摊销为25万元,计提减值准备35万元。(2)以银行存款200万元购入一项固定资产,本年度计提折旧30万元,其中2
班集体形成的标志是()。
变态心理学与精神病学共同的研究对象是()。
设A是三阶可逆矩阵.如果A-1的特征值为1,2,3,则|A|的代数余子式A11+A22+A33=_____________.
关于白盒测试,以下叙述正确的是(23)。
SSL协议是对称密码技术和公钥密码技术相结合的协议,该协议不能提供的安全服务是(40)________________。
一台Catalyst6500的VTP域名是pku,在该交换机上建立ID号为222,名为lib222的VLAN,并删除ID号为133,名为phyl33的VLAN,正确的配置命令是()。
最新回复
(
0
)