vb编写程序将一段文字逆序输出

'添加两个文本框Text1和Text2，一个按钮Command1

'Text1输入文字，单击按钮Command1时Text2输出文字

Private Sub Command1_Click()

    Dim str1 As String

    Dim str2 As String

    Dim i As Integer

    str1 = Text1

    For i = Len(str1) To 1 Step -1

        str2 = str2 & Mid(str1, i, 1)

    Next

    Text2 = str2

End Sub

ss = Chr(KeyAscii) + ss

这个的意思，是把新输入的字符放在ss的前面，然后再赋值给ss，这样的话，每次新添加的字符都是放在最前面的，那它的顺序不就会反过来了吗？如果是下面这样，那就是顺序不变：

ss = ss + Chr(KeyAscii)

现在理解了没？

如果要用函数可以直接使用StrReverse(Str)

如果要自己写代码实现，可以写成如下的语句：

for

i=1

to

len(str)

c=mid(str,i,1)

str2=c+str2

'这里的+也可以换成

&

next

i

print

str2

'str2中就是str字符串的

逆序

function myShuChu(str1 as string) as string

dim tempstr as string

dim i as long

for i=1 to len(str1)

tempstr = mid(str1,i,1) & tempstr

next

myshuchu = tempstr

end function

‘调用方法

sub test()

text2text = myShuChu(text1text)

end sub

将四位数用FORMAT转成字符，然后用StrReverse函数反向输出即可。

StrReverse函数 描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

示例(将数字1234反向输出)：

Print StrReverse(Format(1234, "0000")) '用FORMAT转成字符，然后用StrReverse函数反向输出