人品计算器的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

Private Sub Label1_Click()

Shell "explorer.exe "