谁会字母的逆序排序呀,急急急(在线等待)

er130 2003-05-15 08:54:27
text1中有asdf,点按纽后,text2中显示fdsa怎么写程序呀!!~~
...全文
22 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
qingming81 2003-05-16
这只是倒转字符串,不是逆序排序。用chenlishu413(超级学生)的。
回复
loulun 2003-05-16
Private Sub command1_click()

Dim tempstr As String
Dim str As String
If Text1.Text = "" Then
MsgBox ("pleale input a string in the text")
End If
str = Text1.Text
tempstr = StrReverse(str)
Text2.Text = tempstr
End Sub
回复
chenlishu413 2003-05-15
Dim tempstr As String
Dim str As String
str = InputBox("please input a string")
tempstr = StrReverse(str)
Print tempstr
回复
chenlishu413 2003-05-15
Dim tempstr As String
Dim str As String
Dim max As Long
Dim i As Long

str = InputBox("please input a string")
max = Len(Trim(str))

For i = max To 1 Step -1
tempstr = tempstr + Mid$(str, i, 1)
Next

Print tempstr
回复
Reker熊 2003-05-15
a=Len(text1.text)
For I=0 to a-1
tempStr=tempStr+Mid(text1.text,a-I,1)
Next
text2.text=tempStr
回复
99998888ccddcc 2003-05-15
Private Sub Form_DblClick()
Dim x As Integer, a(1 To 4) As String
a(1) = "r": a(2) = "o": a(3) = "s": a(4) = "e"
For x = 1 To 4
Label1.Caption = Label1.Caption + a(x)
Next x
For x = 4 To 1 Step -1
Label2.Caption = Label2.Caption + a(x)
Next x



End Sub

回复
ROBOT 2003-05-15
dim i as integer
dim strtemp as string
for i=1 to len(text1.text)
strTEmp=strtemp & mid(text1.text,len(text1.text)-i+1,1)
next

text1.text=strTemp

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-15 08:54
社区公告
暂无公告