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
Private Sub Label1_Click()
Shell "explorer.exe "