private sub form_click()
cls
dim i as integer,m as integer,n as integer,k as integer
m=int(inpurbox(“输入一个整数”;“m=”;1234)
print “原数=”;m
n=0
do while(m>0)
k=m mod 10
m=m\10
n=n*10+k
loop
print “逆序数=”;n
end sub
'//倒叙取出即可
Private Sub Form_Click()
Dim a As String, i As Integer, s As String
a = InputBox("输入一个整数:", "Input", "1234")
For i = Len(a) To 1 Step -1
s = s & Mid(a, i, 1)
Next
Print s
End Sub
第一种:你可以将你输入的数字或者转换成一个数组,然后使用循环倒着循环出来即可!
第二种:转换为数字后,使用数据的对象调用Reverse(),可实现数据的反转
a=inputbox("")
for i = len(a) to 1 step -1
b=b & mid(a,i,1)
next
msgbox b