人品计算器 VB源代码

VB版人品计算器源码，给出核心计算过程，一目了然就能看出计算原理，毕竟人品计算的核心算法就很简单，十分适合新手练习操作，在搞笑中学习编程算法。

Private Sub Command1_Click()

Dim n As Integer

Dim x, y As Integer

Dim addd As String

If Text1.Text = "" Then

MsgBox "大哥不要玩我啊，名字都没有你想算什么！你SB啊！"

ElseIf Text1 = "XXXX" Or Text1 = "zyn" Then

Text2 = "你的人品已经过 100 人品计算器已经甘愿认输，3秒后人品计算器将自杀啊"

Else

y = 0

For x = 1 To Len(Text1.Text)

y = y + AscW(Mid(Text1.Text, x, 1)) Mod 100

Next x

n = y Mod 100

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'如果n的值小于-20那么取n的值的非，否则n的值不变！

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If n < -20 Then n = Not n

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If (n = 0) Then

addd = "你一定不是人吧？怎么一点人品都没有？！"

ElseIf ((n > 0) And (n <= 5)) Then

addd = "算了，跟你没什么人品好谈的..."

ElseIf ((n > 5) And (n <= 10)) Then

addd = "是我不好...不应该跟你谈人品问题的..."

ElseIf ((n > 10) And (n <= 15)) Then

addd = "杀过人没有?放过火没有?你应该无恶不做吧?"

ElseIf ((n > 15) And (n <= 20)) Then

addd = "你貌似应该三岁就偷看隔壁大妈洗澡的吧..."

ElseIf ((n > 20) And (n <= 25)) Then

addd = "你的人品之低下实在让人惊讶啊..."

ElseIf ((n > 25) And (n <= 30)) Then

addd = "你的人品太差了。你应该有干坏事的嗜好吧?"

ElseIf ((n > 30) And (n <= 35)) Then

addd = "你的人品真差!肯定经常做偷鸡摸狗的事..."

ElseIf ((n > 35) And (n <= 40)) Then

addd = "你拥有如此差的人品请经常祈求佛祖保佑你吧..."

ElseIf ((n > 40) And (n <= 45)) Then

addd = "老实交待..那些论坛上面经常出现的偷拍照是不是你的杰作?"

ElseIf ((n > 45) And (n <= 50)) Then

addd = "你随地大小便之类的事没少干吧?" & vbCrLf &

ElseIf ((n > 50) And (n <= 55)) Then

addd = "你的人品太差了..稍不小心就会去干坏事了吧?"

ElseIf ((n > 55) And (n <= 60)) Then

addd = "你的人品很差了..要时刻克制住做坏事的冲动哦.."

ElseIf ((n > 60) And (n <= 65)) Then

addd = "你的人品比较差了..要好好的约束自己啊.."

ElseIf ((n > 65) And (n <= 70)) Then

addd = "你的人品勉勉强强..要自己好自为之.."

ElseIf ((n > 70) And (n <= 75)) Then

addd = "有你这样的人品算是不错了.."

ElseIf ((n > 75) And (n <= 80)) Then

addd = "你有较好的人品..继续保持.."

ElseIf ((n > 80) And (n <= 85)) Then

addd = "你的人品不错..应该一表人才吧?"

ElseIf ((n > 85) And (n <= 90)) Then

addd = "你的人品真好..做好事应该是你的爱好吧.."

ElseIf ((n > 90) And (n <= 95)) Then

addd = "你的人品太好了..你就是当代活雷锋啊..."

ElseIf ((n > 95) And (n <= 99)) Then

addd = "你是世人的榜样！"

ElseIf (n > 100) And (a < 105) Then

addd = "天啦！你不是人！你是神！！！"

ElseIf (n > -∞) Then

addd = "你的人品竟然负溢出了...我对你无语.."

End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Text2.Text = "姓名：" & Text1.Text & vbCrLf & "人品得分：" & n & vbCrLf & "评价：" & addd & vbCrLf

End If

End Sub