任意输入数值 比如5623输出3265 怎么写 用VB？

任意输入数值 比如5623输出3265 怎么写 用VB？

Private Sub Command1_Click()
Dim a As Long
a = 3265
MsgBox StrReverse(a)
End Sub

Option Explicit Private Sub Command1_Click() Dim a As Long a = 1234567890 MsgBox StrReverse(a) End Sub Function StrReverse(a) As String Dim i As Long, temp As String For i = Len(Str(a)) To 1 Step -1 temp = temp & Mid(Str(a), i, 1) Next StrReverse = temp End Function

你的意思就是说把输入的数据返过来吧。。

回文判断 Private Sub Command1_Click() If Text1 = "" Then Label1.Caption = "您没有输入任何内容！" else s1 = Text1 '此处Text1不加任何函数就可以判断字母，汉字等字符串 a = Len(s1) For i = 1 To a s2 = s2 + Mid(s1, a - i + 1, 1) '将字符串s1倒过来组成新的字符串s2 Next i text2=s2 end if end sub 在text1中输入字符串（因为text1的内容我没限制，所以任何字符都适用，包括汉字）在text2中反过来显示

Private Sub Command1_Click() Dim int1 As Integer int1 = "5623" Print StrReverse(int1) End Sub

使用了StrReverse函数

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息