首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
92
问题
编写如下程序:
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://www.kaotiyun.com/show/z0Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
假定在窗体上添加了一个通用对话框控件,其名称为CD1,并有如下程序段:CD1.ShowOpen:CD1.DefaultExt="doc"在打开文件的对话框中选择了"c:\file1.txt"文件,则FileTitle属性的值是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml,标题为“考试”的窗体上画一个名称为Combol、初始内容为空的下拉式组合框。下拉列表中有“隶书”、“宋体”和“楷体”三个项目。运行后的窗体如图
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上添加一个计时器控件,名称为Timerl。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer。事件过程一次。另外
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在设计好的表对象“tStud”和查询对象“qStud”,同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照以下要求补充报表设计。(1)在报表的报表页眉节区
考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的3个关联表对象“tStud”、“tCourse”和“tScore”及表对象“tTemp”。请按以下要求完成设计。(1)创建一个查询,查找并显示学生的“姓名”、“课程名”和
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计。(1)在窗体的“窗体页眉”中距左边0.4cm、距上边1.2cm
表达式Str(Len("123"))+Str(77.7)的值是()。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
下列关于二叉树的叙述中,正确的是()。
随机试题
全结构式教育观察
内部中断是由程序引起的,外部中断是由外设引起的。()
检验记录必须做到()。
在机内总分类账和明细分类账的直接登记依据完全相同的情况下,总分类账可以用总分类账户本期发生额对照表替代。()
单项选择题要编好题干,也要编好选项,必须注意()。
某地对干部作风建设有一形象的比喻,说是当前干部要有“三盆水”:一盆水洗头,更新观念,与时俱进;一盆水洗手,干净干事,勤政廉洁;一盆水洗脚,深人群众,调查研究。当干部要“洗头”,是因为()。
下列情形中,物的占有人享有使用权的是()。
下列叙述中正确的是()。
Humanmigration:thetermisvague.Whatpeopleusuallythinkofisthepermanentmovementofpeoplefromonehometoanother.M
Unlessmeasuresaretakenatonce,thereisapossibilitythatalltheoceansoftheworldwillbedeadbythenextcentury.How
最新回复
(
0
)