首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
31
问题
编写如下程序:
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全国计算机二级
相关试题推荐
有以下程序段,单击Command1按钮后,屏幕上的输出结果是()。PrivateSubCommand1_Click()Fori=6To9PrintTab(i*i),INextIEndSu
对关系S和关系R进行集合运算,结果中既包含关系S中的所有元组也包含关系R中的所有元组,这样的集合运算称为()。
数据结构中,与所使用的计算机无关的是数据的()。
设置定时器控件的Interva1属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1_Timer()BeepEndSub
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ACDACD”Functiondelchar(strAsString,c
下列叙述中,不属于软件需求规格说明书的作用的是()。
在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Co
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为()。
随机试题
天山库车大峡谷岩层主体为泥质砂岩,华山山体主要由花岗岩组成。下面左图分别为天山库车大峡谷景观图、华山景观图,右图为岩石圈物质循环示意图。读图完成下列问题。天山库车大峡谷和华山的主要岩石类型分别是()。
为什么说艺术创造的核心是意象的生成?
在FOXPRO的字段类型中,可以自定义宽度的类型有()。
我国民法有溯及既往的效力。()
腭乳头位于
某省属重点水利工程项目计划于2004年12月28日开工,由于坝肩施工标段工程复杂,技术难度高,一般施工队伍难以胜任,业主自行决定采取邀请招标方式。于2004年9月8日向通过资格预审的A、B、C、D、E五家施工承包企业发出了投标邀请书。该五家企业均接受了邀请
“收入一费用一利润”反映的足资金运动的动态方面,反映的足某一会计期间的经营成果,反映一个过程,是编制利润表的依据。()
保税和暂准进口货物,在其加工、储存、使用期间需转运至另一设关地点,海关的监管责任将随之延伸(或转移)并需办理“转关”手续。()
义利之辩是我国古代伦理学上争论激烈的一个问题,争论的实质是把什么作为判断事物价值的标准.下列主张以“利”作为判断事物价值标准的是()。
ThescientificnameistheHoloceneAge,butclimatologistsliketocallourcurrentclimaticphasetheLongSummer.Thehistory
最新回复
(
0
)