首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1 Click() Dim n As Long,s As String n=InputBox(“输入一个数”) Do While n0 S=S&n Mod 10:s=S&n\10 Mod 10 n=n
编写如下程序: Private Sub Command 1 Click() Dim n As Long,s As String n=InputBox(“输入一个数”) Do While n0 S=S&n Mod 10:s=S&n\10 Mod 10 n=n
admin
2015-11-24
26
问题
编写如下程序:
Private Sub Command 1 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/OxLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有下列程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsIntegera
有下列程序段,单击命令按钮执行程序后,输出结果是()。OptionBase1PrivateSubCommand1Click()Dimxx=Array(23,-5,17,38,-31,46,11,8,5,-4)31=0s2=0
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段。PrivateSubFormClick()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1To
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1T
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。PrivateSubCo
设有命令按钮Command1的单击事件过程,代码如下,请填空。PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=iNextForEacharrItem__
下列关于图像框控件和图片框控件的说法错误的是()。
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填上合适的代码,将程序补充完整。PrivateTypeAngKA3IntegerSinxAsSing
滚动条的最小值属性是______,最大值属性是Max。
随机试题
凯恩斯认为,债券的市场价格与市场利率()。
成人蛋白尿是指24小时尿蛋白定量
连续X线在物质中的衰减特点是
感染伤口的最佳处理方法是
下列关于信托终止的法律效果的说法正确的是()。
紫霞股份有限公司是一家从事游戏开发的非上市公司,注册资本5000万元,已发行股份总额为1000万股。公司成立后经营状况一直不佳,至2015年底公司账面亏损3000万元。2016年初,公司开发出一款游戏,备受玩家追捧,市场异常火爆,年底即扭亏为盈,税后利润达
输送同样风量且风管内风速相同的情况下,以下不同横截面形式风管的风阻力由小至大的排列顺序是:
投标方安全防护、文明施工措施的报价,不得低于依据工程所在地工程造价管理机构测定费率计算所需费用总额的()
关于挖掘城市道路的说法,正确的是()。
在实际市场条件之下,通过适时改变长期配置的资产权重,可以增加基金投资组合的获利机会。()
最新回复
(
0
)