编写如下程序： Private Sub Command1_Click() Dim nAs Long，s As String n=InputBox("输入一个数") Do While n0 s=s＆n Mod 10：s

admin2019-04-29 55

问题编写如下程序：
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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,——ShiftAsInteger,XAsSingle，YAsSingle)Print“VBP
在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是()。
已知数组Dima(1To10)AsInteger，则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=lTo10
在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮(名称为Command1，标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2)，如图3-8所示。程序运行后，单击命令按钮，即可计算出数组
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为：Form1的窗体上画一个文本框，名称为txtlnput，无初始内容；再画一个图片框，名称为picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一
在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框，通过属性窗口输入4个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为1100，高不限。注意：存盘时必须存放在考生文件夹下，工程文
下列数据结构中，能够按照“先进后出”原则存取数据的是()。
如果要把通用对话框作为颜色对话框使用，在程序运行过程中应该进行的操作是()。
下列说法中错误的是()。
程序流程图中带有箭头的线段表示的是()。

随机试题

下列词语中，没有错别字的一组是()
下列不是骨纤维异常增殖症四肢躯干骨病变的X线表现的是
补阳时适当配以补阴的药物称之为
(2005年)要用冲床在厚度为t的钢板上冲出一圆孔，则冲力大小()。
机械设备及大中型部件的局部清洗,宜采用()。
某工程合同价为2000万元，工程价款采用按月结算方式。工程从2017年5月至9月，开工前业主向承包商支付合同价的20％作为预付款，主要材料占施工产值的62．5％。业主自开工第1个月起，从承包商的工程价款中按5％的比例扣留保留金，工程完成情况如下：
甲煤矿为增值税一般纳税人，主要从事煤矿开采和销售业务，2016年10月的有关经营情况如下：(1)购进并下用原木一批，取得增值税专用发票注明税额26000元。(2)购进并下挖煤机一台，取得增值税专用发票注明税额93500元。(3)接受洗煤设备维修劳务，
Themassmediaisabigpartofourculture，yetitcanalsobeahelper，adviserandteachertoouryounggeneration．Themassme
Moststaffinthisofficedidnotlikethemanageress,forshewasknowntobesly,selfishand______.
HowtoGettheMostfromYourCollegeProfessorI.Dailyroutineincollege—Getupinthemorning—Gotoattend(1)_____—Goan

最新回复(0)

编写如下程序： Private Sub Command1_Click() Dim nAs Long，s As String n=InputBox("输入一个数") Do While n0 s=s＆n Mod 10：s

二级VB

NCRE全国计算机二级

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,——ShiftAsInteger,XAsSingle，YAsSingle)Print“VBP

在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是()。

已知数组Dima(1To10)AsInteger，则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=lTo10

下列数据结构中，能够按照“先进后出”原则存取数据的是()。

如果要把通用对话框作为颜色对话框使用，在程序运行过程中应该进行的操作是()。

下列说法中错误的是()。

程序流程图中带有箭头的线段表示的是()。

下列词语中，没有错别字的一组是()

下列不是骨纤维异常增殖症四肢躯干骨病变的X线表现的是

补阳时适当配以补阴的药物称之为

(2005年)要用冲床在厚度为t的钢板上冲出一圆孔，则冲力大小()。

机械设备及大中型部件的局部清洗,宜采用()。

Themassmediaisabigpartofourculture，yetitcanalsobeahelper，adviserandteachertoouryounggeneration．Themassme

Moststaffinthisofficedidnotlikethemanageress,forshewasknowntobesly,selfishand______.

HowtoGettheMostfromYourCollegeProfessorI.Dailyroutineincollege—Getupinthemorning—Gotoattend(1)_____—Goan