1.编写程序:实现输入一个任意位的整数,输出该数的位数及倒序数。如:输入1234567,则输出“该数的位数为7,其倒序数为7654321”。
2. 代码如下:
Private Sub Command1_Click()
Dim shu As Long, dshu As Long, i%, wei%, n%
dshu = 0 : n = 0
shu = InputBox("请输入一个任意位的整数:")
Do While 【1】
wei = 【2】 '取出数字串的最后一位
dshu = dshu * 10 【3】 '用数学的方式计算倒数
shu = shu \ 10
n = 【4】 '位数计数
Loop
Print "该数的位数为"; n; ",其倒序数为"; dshu
End Sub