4个回答
展开全部
代码如下,你在Text1中输入原字符串后按Command1按钮Text2中就出现与原字符串逆序的字符串:
Dim Str as String
Private Sub Form_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command1_Click()
Str = Text1
Text2 = StrReverse(Str)
End Sub
Dim Str as String
Private Sub Form_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command1_Click()
Str = Text1
Text2 = StrReverse(Str)
End Sub
展开全部
Function FanZhuan(str)
Dim str1
For i = 1 to Len(str)
str1=Mid(str,i,1) & str1
Next
FanZhuan=str1
End Function
FanZhuan("abc")就返回"cba"
Dim str1
For i = 1 to Len(str)
str1=Mid(str,i,1) & str1
Next
FanZhuan=str1
End Function
FanZhuan("abc")就返回"cba"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接用InStrRev("abc")不就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2007-01-23
展开全部
自己来!
dim a
a="12345"
a="54321"
嘿嘿
dim a
a="12345"
a="54321"
嘿嘿
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |