重庆新牌坊附近酒店:vb大家帮帮我!
能不能把代码帮我写一下,谢谢大家了!
大家要注意,我说的是控件数组,而不仅仅是文本框.再帮我想想吧!谢谢了!
StrReverse函数
描述
返回一个字符串,其中一个指定子字符串的字符顺序是反向的。
语法
StrReverse(string1)
参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。
例子:
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub
字符串逆转函数strReverse
例子代码
sub sdemo2
dim BT,yourin,yourout
BT = "<BR>"
yourin = InputBox("请任意输入一个字符串,中文也可以")
yourout = strReverse(yourin)
MsgBox(yourout)
End sub
‘代码注释
strReverse函数返回按相反顺序排列的字符串,对中文也可以用
如果是想看算法,那用下面这个
dim temp as string
dim strlen as long
strlen = len(text1.text)
do until strlen = 0
temp = temp & mid(text1.text,strlen,1)
strlen = strlen -1
loop
text2.text = temp
如果只要结果
那就用strreverse
text2.text = strreverse(text1.text)
这是完全根据你的要求写的代码:
Private Sub Command1_Click()
Dim i As Integer
Dim s1, s2 As String
s1 = Me.Text1.Text
'-----------------------------
For i = 1 To Len(s1)
s2 = Mid(s1, i, 1) & s2
Next i
'----------------------------
'以上也可以用StrReverse函数来实现
's2=StrReverse(s1)
Me.Text2 = s2
End Sub