编写如下程序： 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

admin2016-06-23 58

问题编写如下程序：
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全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体模块中用Public定义的变量的作用范围是
下面有一段程序代码，如果从键盘上输入“Computer”，则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger)　　IfKeyAscii＞=65AndKeyAscii＜=
单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()　　BT4EndSubPrivateSubBT(xAsInteger)　　x=x*2+1　　Ifx＜6
下列程序段的执行结果为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语句
下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。PrivateSubCommand1_Click()DimxAsSingle　x=InputBox("
在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到（）事件。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Te

随机试题

Peterhasbeenoutofworkforhalfayear,sohewantsto________ajobinthiscompany．
已知函数f(x)=，则定积分∫12f()dx的值等于_________．
生态系统中的能量流动遵循热力学中的______定律和能量衰变定律。
关于概率抽样方法的误差大小，下列排列正确的是()。
对滴鼻剂说法错误的是
支气管肺癌最常见的早期症状是（　　）。
箱涵顶进挖土应在()时间进行。
根据我国宪法和有关法律的规定，下列选项中有关法规“批准”生效的情形哪一个是错误的?()
非理性主要是指一切有别于理性思维的精神因素，如情感、直觉、幻觉、下意识、灵感；也指那些反对理性哲学的各种非理性思潮，如唯情论、意志论、生命哲学、无意识、直觉论、神秘主义、虚无主义、相对主义等。下列属于非理性的是()。
设a，b为正常系数，λ为非负常数，微分方程dy/dx+ay=be-λx．(Ⅰ)求该方程的通解；(Ⅱ)证明：当λ=0时，

最新回复(0)

编写如下程序： 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

二级VB

NCRE全国计算机二级

在窗体模块中用Public定义的变量的作用范围是

下面有一段程序代码，如果从键盘上输入“Computer”，则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii＞=65AndKeyAscii＜=

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx＜6

下列程序段的执行结果为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语句

下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。PrivateSubCommand1_Click()DimxAsSingle x=InputBox("

在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到（）事件。

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Te

Peterhasbeenoutofworkforhalfayear,sohewantsto________ajobinthiscompany．

已知函数f(x)=，则定积分∫12f()dx的值等于_________．

生态系统中的能量流动遵循热力学中的______定律和能量衰变定律。

关于概率抽样方法的误差大小，下列排列正确的是()。

对滴鼻剂说法错误的是

支气管肺癌最常见的早期症状是（ ）。

箱涵顶进挖土应在()时间进行。

根据我国宪法和有关法律的规定，下列选项中有关法规“批准”生效的情形哪一个是错误的?()

设a，b为正常系数，λ为非负常数，微分方程dy/dx+ay=be-λx．(Ⅰ)求该方程的通解；(Ⅱ)证明：当λ=0时，

编写如下程序： 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

下面有一段程序代码，如果从键盘上输入“Computer”，则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger)　　IfKeyAscii＞=65AndKeyAscii＜=

单击命令按钮时，下列程序的执行结果是PrivateSubCommand1_Click()　　BT4EndSubPrivateSubBT(xAsInteger)　　x=x*2+1　　Ifx＜6

下列程序段的执行结果为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语句

下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。PrivateSubCommand1_Click()DimxAsSingle　x=InputBox("

支气管肺癌最常见的早期症状是（　　）。