2024年05月19日 首页 业界新闻 技术文档 黑客安全 源代码 应用下载 电子图书 电脑硬件 游戏世界 分类信息 编程论坛 博客日志  
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

人品计算器，算算你的人品？

本帖已经被作者加入个人空间
Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
1# 大 中 小 发表于 2006-7-14 20:50  显示全部帖子

人品计算器，算算你的人品？

人品计算器，算算你的人品？

附件



附件: 17renpin.swf (2006-7-17 15:58, 44.69 KB)
该附件被下载次数 532

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
2# 大 中 小 发表于 2006-7-14 20:53  显示全部帖子
姓名:Nothing
人品得分:27
评价:你的人品太差了。你应该有干坏事的嗜好吧?

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
3# 大 中 小 发表于 2006-7-14 21:11  显示全部帖子
姓名:nothiNG
人品得分:95
评价:你的人品太好了..你就是当代活雷锋啊...

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
4# 大 中 小 发表于 2006-7-15 22:15  显示全部帖子
姓名:李世民
人品得分:1
评价:算了，跟你没什么人品好谈的...

不会吧,不过李世民也曾经杀兄害弟，找个人品最好的

姓名:舜
人品得分:8
评价:是我不好...不应该跟你谈人品问题的...

不可能吧

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
5# 大 中 小 发表于 2006-10-1 21:43  显示全部帖子
公布原理

下面是VB代码
复制内容到剪贴板
代码:
    Dim a As Long
    For i = 1 To Len(Text1.Text)
        a = a + AscW(Mid(Text1.Text, i, 1))
    Next
    MsgBox a Mod 100
换个头像，看见广告就眼红，直接封ID。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题