首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1_Click() Dim n As Long,S As String n=InputBox("输入一个数") Do While n0 S=S&n Mod 10:S=S&n\10 Mod 1
编写如下程序: Private Sub Command 1_Click() Dim n As Long,S As String n=InputBox("输入一个数") Do While n0 S=S&n Mod 10:S=S&n\10 Mod 1
admin
2015-05-29
46
问题
编写如下程序:
Private Sub Command 1_Click()
Dim n As Long,S As String
n=InputBox("输入一个数")
Do While n<>0
S=S&n Mod 10:S=S&n\10 Mod 10
n=n \ 100
Loop
Print s
End Sub
程序运行后,单击命令按钮Command1,并输入数值123456,则输出结果为
选项
A、654321
B、563412
C、64253l
D、615243
答案
A
解析
小题在循环中先将n除以10的余数(即个位数字)连接到s上,然后将整除10后除以10的余数(即十位上数字)连接到s上,然后n整除100的值赋值给n(即去掉最厉两位),然后继续进行循环,所以最终将会输出数字的逆序。
转载请注明原文地址:https://kaotiyun.com/show/YDQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowTextl.Text=""Text2.Te
函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是
执行以下语句后,输出的结果是a$="Good"b$="Afternoom"Printa$+b$Printa$&b$
在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。Forml.______pmenu
在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftSubCommand1_Click()然后编写如下事件过程:PrivateSubCommand1_Cli
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是
一个工程中含有窗体Form1、Form2和标准模块Modell,如果在Form1中有语句PublicXAsInteger,在Modell中有语句PublicYAsInteger。则以下叙述中正确的是
在长度为n的顺序表的第i(1≤i≤n+1)个位置上插入一个元素,元素的移动次数为【】。
随机试题
阅读材料,按要求作答。刘老师上小学五年级《形的魅力》一课时,首先在导入教学环节以课件展示用7块形状拼出的几个新图形,请学生以抢答的方式说出每个新图形像什么;其次在探究学习剪法、拼法环节时,刘老师一边示范,一边向学生提示:看一看老师剪出的6块形状拼出了哪些
新生儿体温调节功能差,体温的维持主要依靠
A.紧张腭帆,开大咽鼓管B.使软腭上提,咽侧壁向内运动C.下降腭帆,紧缩咽门D.上提咽喉,向前牵引咽腭弓,使两侧咽腭弓接近E.提腭垂腭帆张肌的作用是
甲某和乙某签订了一份买卖合同,后因乙未履行合同义务,两人发生口角;进而升级直至发生斗殴,甲失手将乙打成重伤。公安机关侦查终结后,检察院对甲某提起公诉,乙也向人民法院提起刑事附带民事诉讼,要求赔偿医疗费用,法院审理后判处甲某有期徒刑3年,并赔偿乙某的所有治疗
招股说明书中关于无形资产的说明不必披露资产评估机构名称及主要评估方法。()
下列有关建造合同会计处理的表述中,正确的有()。
某民营上市企业的资产负债率高达80%,因面临市场占有率持续下降、融资困难等经营问题,2019年该企业主动引入战略投资者并出让35%的股权。该企业此举的目的是()。①通过股权让渡,逐步退出市场②引入外部股东,激发企业活力③调整资本结构,
画家:作家
Tenyearsago,whenenvironmentallawyerKassieSiegelwentinsearchofananimaltosavetheworld,thepolarbearwasn’tata
在数据库技术中,只描述信息特性和语义的数据模型称为
最新回复
(
0
)