首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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 1
编写如下程序: 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 1
admin
2019-01-17
58
问题
编写如下程序:
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、654321
B、563412
C、642531
D、615243
答案
A
解析
本题在循环中先将n除以10的余数(即个位数字)连接到s上,然后将整除10后除以10的余数(即十位上数字)连接到s上,然后n整除100的值赋值给n(即去掉最后两位),然后继续进行循环,所以最终将会输出数字的逆序。
转载请注明原文地址:https://kaotiyun.com/show/tcFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer() ch=Chr(
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm_Load() HScroll1.Min=0 HScroll1.Max=100EndSubPrivateSubCo
下列操作中不能向工程添加窗体的是( )。
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
编写如下程序:PrivateSubCommand1_Click()Dim13AsIntegerStaticsAsIntegerForn=1To3s=
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
以下叙述中错误的是( )。
下面关于直线控件的叙述中正确的是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返
随机试题
强心苷引起的传导阻滞可选用的治疗药物是
手背各指缝中的赤白肉际,左右共八穴足背各趾缝端凹陷中,左右共八穴
白前的功效是
A市药品监督管理部门在日常监督检查中,发现B药店存在违法经营行为,对其作出警告,限期整改,并处罚金3万元。B药店法人对此处罚不服,决定提出行政复议。下列不属于行政诉讼受案范围的是()
某油田开发建设工程中一新开发的区块位于西北干旱地区,区域面积30km2。新开发区块与已有区块相邻,依托已有联合站。开发建设工程设计年产油3.0×10tt,原油通过新建的70km管线输送至联合站,经脱水除气处理后外输,脱水除气过程产生的天然气不含硫,用作燃气
甲公司为工业企业,对投资性房地产采用成本模式进行后续计量。2×21年1月甲公司以出让的方式取得一宗土地使用权,支付价款为4000万元,预计使用年限为50年,准备建造写字楼,董事会作出了正式书面决议,明确表明建成后将其用于经营出租且持有意图短期内不再发生变化
以下不属于公司法人人格否认制度的适用情形为()。
某地大面积停水,影响居民正常用水,而此时有人传谣,说停水是因为化工厂有害物质泄漏,你怎么处理?
甲公司欠缴税款20万元,税务局工作人员小刘和小孙来甲公司查账时,甲公司总经理王某和其朋友李某组织一伙社会人员挡在公司门口不让税务人员进门,并将税务人员小刘打成重伤。王某的行为构成()
设u=u(x,y),v=v(x,y)有连续的一阶偏导数且满足条件:F(u,v)=0,其中F有连续的偏导数且
最新回复
(
0
)