2013-04-16
展开全部
MsgBox StrReverse("ABCD")一句代码就搞定了。
2013-04-16
展开全部
private function F( byval Str as string ) as string for i = len(str) to 1 step -1f=f& mid(str,i,1)nextend function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim s As String
Dim ss As String
Dim i As Integer
s = "ABCD"
For i = Len(s) To 1 Step -1
ss = ss & Mid(s, i, 1)
Next i
Text1.Text = ss
Dim ss As String
Dim i As Integer
s = "ABCD"
For i = Len(s) To 1 Step -1
ss = ss & Mid(s, i, 1)
Next i
Text1.Text = ss
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim a
dim b
dim i
a=len(text1.text)
for i=a to 1
b=b&mid(text1.text,i,1)
next i
dim b
dim i
a=len(text1.text)
for i=a to 1
b=b&mid(text1.text,i,1)
next i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询