首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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 1
编写如下程序: 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 1
admin
2015-05-29
43
问题
编写如下程序:
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、64253l
D、615243
答案
A
解析
小题在循环中先将n除以10的余数(即个位数字)连接到s上,然后将整除10后除以10的余数(即十位上数字)连接到s上,然后n整除100的值赋值给n(即去掉最厉两位),然后继续进行循环,所以最终将会输出数字的逆序。
转载请注明原文地址:https://kaotiyun.com/show/YDQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowTextl.Text=""Text2.Te
单击命名按钮时,下列程序代码的执行结果为PublicSubprocl(nAsInteger,ByvalmAsInteger)n=nMod10m=mMod10EndSub
在软件设计中,不属于过程设计:工具的是
设有程序:OptionBase1PrivateSubCommand1Click()Dimarrl,MaxasIntegerarrl=Array(12,435,76,24,78,54,866,43)
在窗体上绘制一个名称为Labell的标签,然后编写如下事件过程:PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsInteger
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是
程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为text1的文本框,用来显示文本。程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除;重复上述过程5次。OptionExplicitPriva
在面向对象方法中,信息隐蔽是通过对象的【】性来实现的。
定义有5个整数型元素的数组,正确的语句是
为了在列表框中使用<Ctrl>和<Shift>键进行多个列表项的选择,应将列表框的MultiSelect属性设置为()。
随机试题
A.≥140°B.<140°C.>110°D.≤110°髋外翻的颈干角范围是
卵巢癌一线化疗方案为
有关血胸下列哪些描述是正确的
在一栏待宰的100头牲猪中,发现有一头患有口蹄疫,其正确的处理方法是
环境空气质量现状调查资料来源分()途径。
根据《合同法》,关于要约与承诺的说法,错误的有()。
在社会经济运行中,当通货膨胀率上升时,一般会导致()。
设函数f(x)(x≥0)连续可导,且f(0)=1.又已知曲线y=f(x)、x轴、y轴及过点(x,0)且垂直于x轴的直线所围成的图形的面积值与曲线y=f(x)在[0,x]上的一段弧长值相等,求f(x).
MigrantworkersInthepasttwentyyears,therehasbeenanincreasingtendencyforworkerstomovefromonecountrytoan
Ifyouhaveatinyroomthatyou’rethinkingaboutasabedroomforyourchildoraguest,gettingthemostoutofasmallspace
最新回复
(
0
)