VB编写程序,输入一个n为的正整数,求其反序数并输出.例如，输入的正整数为1234，输出则为4321

Question

Private Sub Command1_Click()
Dim n As Long
n = Text1
If Right(n, 1) = "0" Then
Text2 = "尾数为0，无反序数！"
Else
Text2 = fx(n)
End If
End Sub
Private Function fx(n As Long) As Long
Dim k As Integer, st As Integer
Do
k=————
st = st & k
n = n \ 10
loop until————
fx = Val(st)
End Function

Answer 1

dim i as integer, m as integer
dim tem as string ,Str_tem as string
i = text1.text
tem =Cstr(i)
tem = StrReverse(tem)

i = val(tem)
print i追问

题目已经补充完整，可以麻烦你在帮我看一下吗？拜托了

追答

k=n mod 10
loop until n < 10

最讨厌考试题什么的了，明明很短的代码就能完成，非得写那么长。得分的标准还就那一个。就算是同样的作用，还不给分。最讨厌了！！！！除了考试，基本上都用不到！

追问

是滴是滴，烦死了

本回答被提问者采纳