首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim nAs Long,s As String n=InputBox("输入一个数") Do While n0 s=s&n Mod 10:s
编写如下程序: Private Sub Command1_Click() Dim nAs Long,s As String n=InputBox("输入一个数") Do While n0 s=s&n Mod 10:s
admin
2019-04-29
68
问题
编写如下程序:
Private Sub Command1_Click()
Dim nAs 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、642531
D、615243
答案
A
解析
本题在循环中先将n除以10的余数(即个位数字)连接到s上,然后将整除10后除以10的余数(即十位上数字)连接到s上,然后n整除100的值赋值给n(即去掉最后两位),然后继续进行循环,所以最终将会输出数字的逆序。
转载请注明原文地址:https://kaotiyun.com/show/ghUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将E-R图转换到关系模式时,实体与联系都可以表示成()。
在名称为Form1的窗体上画一个名称为L1的标签,标题为“口令”;画两个文本框,名称分别为Text1、Text2,都没有初始内容;再画三个命令按钮,名称分别为C1、C2、C3,标题分别为“显示口令”、“隐藏口令”、“复制口令”,在开始运行时,向Text1中
在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文件夹下,工程文
在窗体模块的声明部分声明变量时,不能使用的关键字是
在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程中只能写一条语
能够存放组合框的所有项目内容的属性是()。
下列选项中属于面向对象设计方法主要特征的是()。
对于命令按钮,下列说法中正确的是()。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是()。
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。
随机试题
AspectsthatMayFacilitateReadingI.Determiningyour【T1】______A.Readingfor【T2】______:likereadingthenovelHar
A.二氨基萘荧光法B.二硫腙分光光度法C.二苯碳酰二肼分光光度法D.4一氨基一3-联氨-5一巯基一1,2,4一三氮杂茂分光光度法E.N,N一二乙基对苯二胺分光光度法用于测定水中铬(六价)的方法是
母体抗体经胎盘进入胎儿循环称为
患者,女,64岁。因头痛、心悸和心前区不适感,门诊查血压:160/95mmHg。据此可以推断该患者高血压分级属于
根据能量释放理论观点,事故的本质是()。
甲公司应付乙公司货款一笔,到期时间为2012年12月1日。货款到期后,甲公司未按期支付,乙公司亦未催要。直至2014年12月2日,乙公司要求甲公司清偿,甲公司无力全额清偿;同时,乙公司掌握的确切证据表明甲公司股东王某本应于2012年1月1日缴纳的出资尚未缴
下列各项中,按照我国现行税法,免缴城镇土地使用税的土地是()。
20×5年年初,客户因质量问题退回了X公司于20×4年12月赊销的产品,但X公司直接抵减了退回当月的销售收入,没有调整上年财务报表。注册会计师在编制20×4年审计调整分录时,应当()。
InCanada,independencedidn’tcomewithabang.Itwasaslowjourneythatbeganmorethan150yearsagowiththecountry’sfor
Thousandsof______atthestadiumcametotheirfeettopaytributetoanoutstandingperformance.
最新回复
(
0
)