首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do While n< >0
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do While n< >0
admin
2019-06-20
105
问题
编写如下程序:
Private Sub Command1_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、654311
B、563412
C、642531
D、615243
答案
A
解析
&为字符串连接函数。循环体取n的个位数、十位数、百位数组成字符串8。循环执行后s字串和输入的字串倒序。选A。
转载请注明原文地址:https://kaotiyun.com/show/z0Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=100EndSubPrivateSubComman
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Labell的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上面一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、
请根据以下各小题的要求设计VisualBasic应刚程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生只录下的图片文件pi
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了表对象“tCourse”、“tGrade”和“tStudent”,请按以下要求完成设计。(1)创建一个查询,查找并显示“姓名”、“政治面貌”和“毕业学校”等3个字段的内容,
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asingle):p=In
以下关于局部变量的叙述中错误的是()。
设数据结构B=(D,R),其中D={a,b,c,d,e,f}R={(f,a),(d,b),(e,d),(c,e),(a,c)}该数据结构为()。
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为
随机试题
LM曲线向右上倾斜的条件是()。
A.胆总管结石B.乏特壶腹癌C.胰头癌D.慢性胰腺炎E.肝管癌患者,男,46岁。近1个半月来食欲不振,上腹闷胀不适,皮肤及巩膜黄染,一度增深后自行减轻,最近又有加深趋势。体检贫血貌,皮肤及巩膜黄染明显,肝大肋下一指余,胆囊肿大,粪便隐血试验(+
A、1/4B、1/3C、2/3D、1/5E、1/2可保留的牙齿其牙槽骨吸收不能超过根长的
石料单轴抗压强度试验用试件个数为()个。
规划环境影响评价报告书中对拟议规划的概述不应包括()。
资料1资料2资料3请根据以上材料,指出下列栏目的正确选项:“备案号”栏:()。
意外伤害保险中,被保险人遭受意外伤害的概率主要取决于( )。
依法成立的保险合同,自成立时生效。()
设两个相互独立的随机变量X和Y的方差分别为4和2,则随机变量3X一2Y的方差为()
Andrew______(已与家人言归于好)andletbygonesbebygones.
最新回复
(
0
)