首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do While n< >0 Print n\10 Mod 10: Print n Mod
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do While n< >0 Print n\10 Mod 10: Print n Mod
admin
2016-06-23
40
问题
编写如下程序:
Private Sub Command1_Click()
Dim n As Long,s As String
n=InputBox("输入一个数")
Do While n< >0
Print n\10 Mod 10:
Print n Mod 10:
n=n\100
Loop
Print s
End Sub
程序运行后,单击命令按钮Command1,并输入数值123456,则输出结果为
选项
A、6 5 4 3 2 1
B、5 6 3 4 1 2
C、6 4 2 5 3 1
D、6 1 5 2 4 3
答案
B
解析
Print语句对输入的数值n=123456进行处理并打印。第一条语句打印n的十位数,第二条语句打印n的个位数。然后n被求余。
转载请注明原文地址:https://jikaoti.com/ti/jCJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click() Open"c:\Temp.txt",OutputAs#1 For
下面有一段程序代码,如果从键盘上输入“Computer”,则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii>=65AndKeyAscii<=
有如下程序:PrivateSubForm_Click() E=1:F=1 Forj=1To3 E=E+F:F=F+E Next PrintE:FEndSub该程序的
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5) Fori=1To3 Forj=1To4
有如下程序:PrivateSubcommand1_Click() a=1:b=1 Print"a=";a;",b=";b Callmult((a),b) Print"a=";a;";b=";b语句
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到()事件。
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
随机试题
A.β受体阻滞剂B.钙拮抗剂C.硝酸酯类D.多巴胺急性心肌梗死发生室速时使用
A.3批样品B.含量最高的样品C.含量居中的样品D.含量最低的样品E.随机任意一批样品进行消毒产品的鉴定试验时,急性经口毒性试验使用的样品批次要求是
代谢产物为活性代谢物,并已作为药品使用的是口服给药有首过效应,生物利用度仅为50%的是
肖某由于工作地点变化,欲将其自住商品住房出售,于2010年9月委托甲房地产评估机构对该住房进行价值评估。估价师经现场查勘,发现室内使用大镜面作装饰,并大量运用花环、花束、弓箭、贝壳图案及纹样,属于洛可可装修风格;所在小区占地面积50000m2,其中有20
某税务机关决定撤销某项税务行政许可,对当事人的权利、义务可能产生不利影响。按照《行政复议法实施条例》第17条规定的要求,该税务机关应当在《撤销税务行政许可决定书》中告知当事人申请复议的权利、行政复议机关和行政复议申请期限。税务机关这一做法所体现的行政程序法
(2003年考试真题)北方股份有限公司(以下简称北方公司)及A股份有限公司(以下简称A公司)2001年至2002年投资业务的有关资料如下:(1)2001年11月1日,北方公司与A公司签订股权转让协议。该股权转让协议规定:①北方公司收购A公司持有的B股份
下列所得中,应缴纳个人所得税的是()。
皮亚杰将儿童和青少年的认知阶段划分为()。
教师承担着哪些职业角色?
JazzJazzbeganintheearly20thcenturyasamusicof【1】______Americans.Thefirst【1】______jazzr
最新回复
(
0
)