VB中反向输出

[复制链接]
查看11 | 回复4 | 2013-4-16 17:49:53 | 显示全部楼层 |阅读模式
MsgBox StrReverse("ABCD")一句代码就搞定了。...
回复

使用道具 举报

千问 | 2013-4-16 17:49:53 | 显示全部楼层
private function F( byval Str as string ) as string for i = len(str)to 1 step -1f=f& mid(str,i,1)nextend function...
回复

使用道具 举报

千问 | 2013-4-16 17:49:53 | 显示全部楼层
Dim s As StringDim ss As StringDim i As Integer s = "ABCD"For i = Len(s) To 1 Step -1
ss = ss & Mid(s, i, 1)Next i Text1.Text = ss...
回复

使用道具 举报

千问 | 2013-4-16 17:49:53 | 显示全部楼层
dim adim bdim ia=len(text1.text)for i=a to 1b=b&mid(text1.text,i,1)next i...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行