用VB编制程序实现字符串的逆转功能。

Question

谁能帮我分析一下这个
Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
Dim str As String
str = Right(Text1.Text, 1)
If (str >= "a" And str <= "z") Then
str = UCase(str)
ElseIf (str >= "A" And str <= "Z") Then
str = LCase(str)
Else
str = str
End If
Text2.Text = Text2.Text + str
Text2.Text = StrReverse(Text1.Text)
End Sub

Answer 1

Private Sub Text1_Change()
Dim str As String
str = Right(Text1.Text, 1) 取出最右边的一个字符
If (str >= "a" And str <= "z") Then 如果这个字符是小写字母
str = UCase(str) 把它变成大写
ElseIf (str >= "A" And str <= "Z") Then 如果是大写字母
str = LCase(str) 把它变成小写
Else 如果不是字母
str = str 保持不变
End If
Text2.Text = Text2.Text + str 把这个字符加在text2内容的最右边
Text2.Text = StrReverse(Text1.Text) 把text1的字符反向填入text2
End Sub

这段代码好像有点问题，大小写转换没用处，换了也白换，不知道目的是什么，如果要实现大小写转换的话，最后一句应该改成
Text2.Text = StrReverse(Text2.Text)

Answer 2

StrReverse实现字符顺序是反向的
text1.text=StrReverse("abcd")返回：“dcba”

你的STR是做什么的呢，TEXT2被赋值，之前的运算没什么用啊

Answer 3

不知道我对你的提问理解正确没有
strreverse
返回一个字符串，其中一个指定子字符串的字符顺序是反向的。
看是不是你要的.
################################
看一下我根据你的要求写出程序
private
sub
text1_change()
text2.text
=
strreverse(text1.text)
end
sub
我运行了。效果符合你的要求,希望对你有所帮助