首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
27
问题
有如下程序:
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全国计算机二级
相关试题推荐
下面关于命令按钮的叙述中错误的是
下面不属于软件设计阶段任务的是
窗体上有一个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() Dimarr_x(5,5)AsInteger Fori=1To3 Forj=2To4 ar
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
下面关于菜单的叙述中正确的是
有三个关系表R、S和T如下,其中三个关系对应的关键字分别为A,B和复合关键字(A,B)。表T的记录项(b,q,4)违反了
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
随机试题
学校社会工作者大潘了解到,一部分学生虽然有学习意愿,但对老师布黄的学习任务,要么马虎对付,要么拖拖拉拉,影响了学习效果。为提升这些学生的行动力,大潘计划开展一系列有针对性的服务,适宜的做法有()。
患儿,男,4个月。全身反复红斑、起水疱1个月。水疱初发于双足底,后逐渐发展至全身。病程中无发热。其父母无类似情况。体格检查:发育与营养正常,躯干、四肢、臀部等处正常皮肤及水肿性红斑基础上见较多散在及群集的水疱、大疱,部分疱壁紧张,尼氏征阴性,伴散在糜烂、结
A.玉女煎B.龙胆泻肝汤C.泻白散合黛蛤散D.泻心汤合十灰散E.加味清胃散合泻心汤治疗鼻衄胃热炽盛证,应首选
患儿,女,3岁。持续身热,烦躁口渴,小便黄赤,大便秘结,手足、口腔、四肢、臀部可见疱疹,色泽紫暗,分布稠密,跟盘红晕显著,皮疹处痛痒剧烈,舌质红绛,苔黄厚腻,脉滑数。其治法为
关于导管的敷设要求,下列说法正确的是()。
死亡率模型是根据贷款或债券的历史违约数据,计算在未来一定持有期内不同信用等级的客户或债项的违约概率,即死亡率,通常分为边际死亡率和累计死亡率。根据死亡率模型,假设某3年期辛迪加贷款。从第1年至第3年每年的边际死亡率依次为0.17%、0.60%、0.60%,
国家不仅具有阶级的属性,而且还具有民族的属性,是民族利益的代表。()
网络书店的页面为了适应人眼的视野范围,又窄又长,容易让人疲倦,而且图书多按销量或排行榜来呈现。随着人工智能的发展,现在还可以利用大数据算法,根据读者浏览和购买历史来确定其读书品味,推荐的书目符合读者口味,这就不可避免地形成“蚕茧效应”,读者只能看到喜欢看的
判断下列句子是否符合普通话语法规范。每件衣服都应该洗洗。(北京大学2015)
Thispassagetellsusthat______.Politiciansandbusinessmenaresupposedtobeskilledattellingthekindoflies______.
最新回复
(
0
)