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

问题 编写如下程序:
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://jikaoti.com/ti/UCJ0FFFM
0

最新回复(0)