求vb程式码

来源：百度知道编辑：UC知道时间：2024/05/15 08:24:19

将所输入的数字反顺序排列并列印出来。
如输入1234会显示4321。
利用len，for next,mod等函数。
急需！多谢帮忙！
123456会变成654321

Dim m, i As Integer, s As String
m = 1234
For i = 1 To Len(m)
s = s & m Mod 10
m = m \ 10
Next
Print s

<%
Dim d, m as Integer
m=1234
Do
d=m Mod 10
m=m\10
Response.Write(d)
loop While m <>0
%>

asp.net代码。

如果你用VB请把Response.Write(d)改成显示处！！