首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
26
问题
有如下程序:
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全国计算机二级
相关试题推荐
下列事件的事件过程中,参数是输入字符ASCII码的是( )。
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
定时器的Interval属性的值是一个整数,它表示的是( )。
假定在标准模块中的声明部分有如下语句:PublicVarAAsInteger而在窗体模块的声明部分有如下语句:PublicVarBAsInteger则以下叙述中正确的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
以下叙述中错误的是
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
(1)在考生文件夹下有一个工程文件sit3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中:②单击“计算”按钮,则找出这100个整数巾所有水仙花数,并将它们的最大值与最小值分别显示
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
随机试题
肺癌的早期症状是
强迫体位见于( )
为了补充铁的储存量,补充铁剂在血红蛋白恢复正常后,仍需继续服用多长时间()。
甲企业借给乙企业20万元,期满未还。丙欠乙20万元货款也已到期,乙曾向丙发出催收通知书。乙、丙之间的供货合同约定,若因合同履行发生争议,由Y仲裁委员会仲裁。下列哪些选项是错误的?()(06年司考.卷三.多54)
安全检查的主要检查内容是( )。
商业银行在审核个人贷款、信用卡申请或审核是否接受个人作为担保人等个人信贷业务时,才可以不经当事人书面授权查询个人信用信息基础数据库。()
学校()聘用曾经因故意犯罪被依法剥夺政治权利的人担任工作人员。
信贷消费在一些经济发达的国家十分盛行,很多消费者通过预支他们尚未到手的收入满足对住房、汽车、家用电器等耐用消费品的需求。在消费信贷发达的国家中,人们的普遍观念是:不能负债说明你的信誉差。如果上述陈述为真,那么必须以下列哪项为前提?Ⅰ.在
计算机网络是计算机技术和()。
AudienceAudienceisaveryimportantconceptforwriting.Theaudienceinfluencesthecontent,structure,style,etcofyour
最新回复
(
0
)