首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
69
问题
编写如下程序:
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全国计算机二级
相关试题推荐
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shape1.Top=0:Timer1.Interval=100End
窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是
以下关于图片框控件的说法中,错误的是
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色"CD1.Color=Form1.BackColorCD1.Act
(1)在考生文件夹中有工程文件sit3.vbp,其中的窗体如图2.127所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个命令按钮,其名称分别为Commandl和Command2,标题分别为“扩大”和“移动”。如图2.236所示,编写适当的事件过程。程
(1)在考生目录下有一个工程文件sit3.vbp,窗体上由一个单选按钮数组,含三个单选按钮,均没有标题,请利用属性窗口,为单选按钮依次添加标题为“北京”、“上海”、“广州”;再添加一个标题为“显示”的命令按钮,如图2—18所示。程序的功能是在运行时,如
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为
随机试题
已知某K进制数为42.5,下列数值中K不能取()。
金黄色葡萄球菌肺炎特征性X线征象是
甘遂和大戟均具有的功效是
城镇中发现甲类传染病和乙类传染病中的艾滋病、肺炭疽病的病人、病原携带者和疑似病人时,国家规定的报告时间是
青年李某,右下腹疼痛难忍,到医院就诊。经医师检查,检验,当即诊断为急性阑尾炎,遂对其施行阑尾切除术。手术情况正常,但拆线时发现伤口愈合欠佳,有淡黄色液体渗出。手术医师告知,此系缝合切口的羊肠线不为李某人体组织吸收所致,在临床中少见。经过近1个月的继续治疗,
某项目预计建设投资为3100万元,建设期第一年投入建设资金的60%,第二年投入40%,其中每年投资的50%为自有资金,50%由银行贷款,贷款年利率为7%,建设期内只计息不还款。生产期第一年投入流动资金300万元,全部为自有资金。流动资金在计算期末全部回收
关于反射弧完成反射的过程正确的是()。
在Access中数据类型主要包括:自动编号、文本、备注、数字、货币、日期/时间、是/否、OLE对象、【】和查阅向导等。
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为【】。
TherearemorethanfortyuniversitiesinBritain--nearlytwiceasmanyasin1960.Duringthe1960seightcompletelynewones
最新回复
(
0
)