Private Declare Function MessageBoxA Lib "user32" _
(ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
Dim tmp As Long, s As String

For i = 1 To Len(Text1)
tmp = tmp + Asc(Mid(Text1, i, 1))
Next i

tmp = Abs(tmp Mod 101)
Select Case tmp
Case 0 To 20
s = "你有RP吗?"
Case 21 To 60
s = "RP很差"
Case 61 To 80
s = "RP很正常"
Case 81 To 99
s = "RP很好"
Case 100
s = "你作弊了吧?"
Case Else
s = "RP是什么???"
'never be here
End Select
MessageBoxA 0, Text1 & "的RP是" & Str(tmp) & vbCrLf & s, "RP", 64
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call Command1_Click
End Sub

RPCalc.rar 3.73KB RAR 25次下载