感动...用VB实现老陈哥儿时的梦想...

Peace · 发表于 2010-5-14 16:41

本帖最后由 Peace 于 2011-1-25 21:27 编辑

今天和老陈哥聊天时候，老陈哥说到

“上下有两个TEXT框，上面的有内容，
下面的打上面框里的字内容，打完后根据错误多少给个框统计”

“这是我当兵的时候没完成的一个VB小程序”

很感动，也感觉很有意思，便尝试写一个码，很简单，大牛飘过
以下是VB6源码，XP SP3+VB6精简版测试通过

Dim AK As Integer
Private Sub Command1_Click()
K = Len(Text2.Text)
For n = 1 To K
If Mid(Text1.Text, n, 1) <> Mid(Text2.Text, n, 1) Then AK = AK + 1
Next
MsgBox AK, vbOKOnly, "您输入的错误字数是"
End Sub

Hmily · 发表于 2010-5-14 16:45

牛逼啊,大P股还当过兵啊,女兵吧...

k92002 · 发表于 2010-5-14 16:54

[s:50]he OR she

jixietui · 发表于 2010-5-14 17:00

错了3个，蛮有意思的。

326248485 · 发表于 2010-5-14 17:18

闷骚哈=哈哈

ak2500 · 发表于 2010-5-14 17:28

scorpiolxd · 发表于 2010-5-14 17:58

- -汗，，这也行..太猥琐了

liushicheng1 · 发表于 2010-5-14 18:20

啥意思啊 ……

77413036 · 发表于 2010-5-14 19:47

本帖最后由 77413036 于 2010-5-14 19:51 编辑

我晕了，我也有很多梦想，以我目前的能力就是不大现实罢了。
例如说.......验证码识别啊。。。。
这么伟大的工程，我的目的就是论坛挂机自动回帖。。。。。
要不楼主也顺便帮我实现下？[s:55]

xzyr19880801 · 发表于 2010-5-14 19:53

确实错了三个

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] 感动...用VB实现老陈哥儿时的梦想...

免费评分