首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do IWhile n< >0 s=s&n Mod 10 s=s&n\10 M0d 10
编写如下程序: Private Sub Command1_Click() Dim n As Long,s As String n=InputBox("输入一个数") Do IWhile n< >0 s=s&n Mod 10 s=s&n\10 M0d 10
admin
2016-06-23
54
问题
编写如下程序:
Private Sub Command1_Click()
Dim n As Long,s As String
n=InputBox("输入一个数")
Do IWhile n< >0
s=s&n Mod 10
s=s&n\10 M0d 10
n=n\100
Loop
Print s
End Sub
程序运行后,单击命令按钮Command1,并输入数值123456,则输出结果为
选项
A、654321
B、563412
C、642531
D、615243
答案
A
解析
&为字符串连接函数。循环体取n的个位数,十位数,百位数组成字符串s。循环执行后s字符串和输入的字符串倒序。选A。
转载请注明原文地址:https://kaotiyun.com/show/aSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列选项中不符合良好程序设计风格的是
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click() Open"c:\Temp.txt",OutputAs#1 For
有如下的程序:PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimPAsInteger k=4:m=1 P=Fun(k,m):Print
下列程序段的执行结果为DimA(3,3)ForM=1To3 ForN=1To3 IfN=MOrN=3-M+1Then A(M,N)=1 Else A(M,N)=
建立控件时系统自动给控件一个名称,第一个建立的命令按钮名称是______。
有如下程序:PrivateSubcommand1_Click() a=1:b=1 Print"a=";a;",b=";b Callmult((a),b) Print"a=";a;";b=";b语句
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Te
随机试题
我国最早充当交换媒介的物品是贝壳,因此贝壳也被看作是我国最早的货币。世界上最早的货币是______。
该病人心电图诊断为病人心尖区不规则地出现响亮的第一心音,其原因是
女,30岁。5年前右颈部触及花生米大小的肿块,随吞咽活动,无不适,近半年来增大明显且有声嘶。检查:甲状腺右叶有一直径2cm的肿块,无压痛,质硬,左叶不大。B超示右甲状腺单结节、边界欠清、血流丰富、内有强光点,右颈淋巴结肿大。测血T3、T4、TSH值正常,T
阿托品引起便秘的原因是()。
如果场地使用权未作为中国合营者出资的一部分,合营企业应向中国政府缴纳使用费。()
程能力指数CpL为()。
数学方法是西方科学中极其重要和不可或缺的方法,严谨和精确是科学精神的重要组成部分,而严谨和精确在很大程度上是由数学方法带来的。科学要求各种概念尽可能被定量且能以一定的精确性加以检验。定律和定理的精确性体现在它的数学表达上。实验测定值与定律和定理的数学推定值
大气层中的对流层是指自地面到8~18公里的大气空间,水汽多,具有剧烈的空气对流,气象要素水平分布不均匀;自对流层顶向上至50~55公里高度为平流层。空气垂直运动较弱,气流以水平运动为主,大气稳定,水汽尘埃含量少;自平流层向上80~85公里高度为中间层,气流
在《关于正确处理人民内部矛盾的问题》一文中,毛泽东全面阐述社会主义社会基本矛盾的性质和特点是()
Healways【C1】______earlytoenjoyatleasttwohoursofsolitudeinthehouseandgardenbeforethe【C2】______ofthefamilycame
最新回复
(
0
)