用vb编写程序，把输入的数据逆序显示，如输入4321，输出1234

Question

如题所述

Answer 1

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

Answer 2

'//倒叙取出即可
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

Answer 3

第一种：你可以将你输入的数字或者转换成一个数组，然后使用循环倒着循环出来即可！

第二种：转换为数字后，使用数据的对象调用Reverse(),可实现数据的反转

Answer 4

a=inputbox("")
for i = len(a) to 1 step -1
b=b & mid(a,i,1)
next
msgbox b