【原创】吃饱了饭，最好的事情就是晾肚皮！

softice616

今天吃的好饱啊，大脑无力，受深博眼睛散光影响，来弄了个把字符串翻转过来的东西……因为古人的阅读习惯就是从左往右的：

按一下颠倒按钮：这样了：

源代码：

Option Explicit

Dim I As Long
Dim Tmp As String

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Command1_Click()
If Len(Text1.Text) = 0 Then Exit Sub
Tmp = ""
For I = Len(Text1.Text) To 1 Step -1
      Tmp = Tmp & Mid(Text1.Text, I, 1)
Next
Text1.Text = Tmp

If Check1 Then
      Clipboard.Clear
      Clipboard.SetText Text1.Text
End If

Text1.SetFocus
End Sub

来来来，翻译一段新闻：

。报上级逐在正，犯缉通级B国全为定汉庭衡将请申，告报交提局AG市汾临向方警洞洪，日31月6。逃在仍手打名两余其和汉庭衡。捕被扬名衡手打，日13月5，下助协力大的方警堰十在。捕抓施实等汉庭衡头工包对，县郧市堰十省北湖往前，索线的供提员人获抓已据根方警洞洪，日92月5
。疗治院住院医厂化焦西山的近附到送接直被者重伤名6。料资何任下留有没，开离行自，备不警民趁人8中其，恐惊度极于由，衣换、澡洗、饭吃排安方警被人数多大
。出抬架担以方警由须，走行力无至伤更些有，伤烧的积面大有均上身、脚手人分部大绝。臭熏阵阵、秽污子胡、肩披发长个个时来出救解被，发理和澡洗、牙刷能不年常们人工。说旭林长队队大警刑县洞洪”。了去回想不也再说都，来出救被易容不好。来出跑地似疯，动激很都们人工时当“。鞋破的式款同不只几好着落散近附墟废棚工
。子长的己东王书支村村生曹是斌斌王。逃出手打名3与汉庭衡头工，手打名两和斌斌王主窑窑砖了制控即，天当工民救解警民
。人工名13出救解，窑砖黑围包力警名多03动出，动行取采便局AG县洞洪，午下天当。为行工民待虐有窑该疑怀警民！人工的窑砖黑一地当是竟人这，解了经。袄棉着穿还天夏大，子男的垢污身浑、发散头披名一现发然突，品物爆民法非查排，村生曹到警民的所出派镇寺胜广县洞洪省西山，日72月5
由自获重人工名13
救解AG

ybyan

不去好好学习和工作

ybyan

这个帖子，5分钟后删除

罚楼主面壁去。

softice616

QUOTE:

原帖由 ybyan 于 2007-6-15 21:14 发表

不去好好学习和工作

呵呵，干活干累了，消遣下……

今天晚上老婆生日，要陪老婆了……

严版啊，我被UMPC给毒了，真想弄一台回来玩玩

深圳

LZ很会创新，表扬一个。

softice616

QUOTE:

原帖由 ybyan 于 2007-6-15 21:15 发表

这个帖子，5分钟后删除

罚楼主面壁去。

呃……支持……希望面的壁墙上能嵌台umpc

djingle

病态还是bt？

softice616

哇啊，严版不是吧……

这个测试应该倒过来做！！先加再减！！不然万一失败了咋办……

hshilol4

我说那两个小手是做什么的，原来是罚分的哦

ybyan

hoho ，瞬间测试完成，也不错

深圳

用户名时间奖励理由
ybyan 2007-6-15 21:16 积分 -2 分测试一下
ybyan 2007-6-15 21:18 积分 +2 分测试一下

softice616

QUOTE:

原帖由 hshilol4 于 2007-6-15 21:19 发表

我说那两个小手是做什么的，原来是罚分的哦

发表时间: 2007-6-15 21:11
所在论坛: 华南区
所在主题: 【原创】吃饱了饭，最好的事情就是晾肚皮！

奖励: 积分 -2 分

softice616

我这个汗啊。。哗哗的

ybyan

你去把那个SONY U18C拿下。
我给你推荐

QUOTE:

原帖由 softice616 于 2007-6-15 21:15 发表

呵呵，干活干累了，消遣下……

今天晚上老婆生日，要陪老婆了……

严版啊，我被UMPC给毒了，真想弄一台回来玩玩

softice616

5分钟到了，LZ去面壁了，各位晚安……

ybyan

11楼、12楼，明显是自己PS的

djingle

原来积分还可以减啊

ybyan

djingle要不要也测试一下？

halfpast7

严版帮我加点积分吧，我一分都没有~

ybyan

看看清楚哦，楼上几位都是申请要减积分的同志

招财猫

忽悠谁啊
刚刚明明说在玩飞行棋

djingle

QUOTE:

原帖由 ybyan 于 2007-6-15 21:26 发表

djingle要不要也测试一下？

我要负的10e+100

下弦月

QUOTE:

原帖由 ybyan 于 2007-6-15 21:47 发表

看看清楚哦，楼上几位都是申请要减积分的同志

那你扣我的吧

不能流芳百世，遗臭万年得了

BTW：要扣就多扣的，要不不醒目

dslove

我要试试,帮我减减积分吧

swear

小样还有积分呢

为了积分变包身工了啊

evernever

减下来的都给我吧，积分：nb＝1：100兑换

swear

检举老头子~~~~~~~8HD哇~~~~~~~~~~

evernever

QUOTE:

原帖由 下弦月 于 2007-6-15 22:01 发表

那你扣我的吧

不能流芳百世，遗臭万年得了

BTW：要扣就多扣的，要不不醒目

真是光脚的不怕穿鞋的，好，菜刀男，我陪你

福田

我想负点积分，我想转点积分到我的另一个马甲上

cxcx

QUOTE:

原帖由 softice616 于 2007-6-15 21:11 发表

源代码：

Option Explicit

Dim I As Long
Dim Tmp As String

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Command1_Click()
If Len(Text1.Text) = 0 Then Exit Sub
Tmp = ""
For I = Len(Text1.Text) To 1 Step -1
      Tmp = Tmp & Mid(Text1.Text, I, 1)
Next
Text1.Text = Tmp

If Check1 Then
      Clipboard.Clear
      Clipboard.SetText Text1.Text
End If

Text1.SetFocus
End Sub

这是啥语言？难学不？

:?

		自动登录	找回密码
密码			注册

【原创】吃饱了饭，最好的事情就是晾肚皮！

本帖子中包含更多资源

评分

我揭发ybyan，在玩楼主。

回复 #19 halfpast7 的帖子

回复 #15 softice616 的帖子

回复 #20 ybyan 的帖子

浏览过的版块

银牌荣誉勋章(注册10年以上会员)

铜牌荣誉勋章(注册8年以上会员)

月全勤勋章