输入分数框 = textbox1
显示分数 = label1.caption
探测按钮 = Button1
Private Sub button1_click()
x=val(textbox1.text)
If 100>=x>=80 Then
label1.caption= "Your Rank Is -A-"
ElseIf 79>=x>=60 Then
Label1.caption = "Your Rank Is -B-"
ElseIf 59>=x>=40 Then
Label1.caption = "Your Rank Is -C-"
ElseIf 39>=x=20 Then
Label1.caption = "Your Rank Is -D-"
ElseIf 19>=x>=0 Then
Label1.caption = "Your Rank Is -E-"
End If
End Sub