ㄒ1:msgboxのmsgbox() ,IF   Then  else絤策


ㄒ2:msgboxのinputbox() 絤策

ㄒ3:Θ罿单材锣传

90 ~100ヒ单

80~89单

70~79单

60~69单

59コ单

Private Sub Command1_Click()
i = Val(InputBox("叫块Θ罿"))
Select Case i
Case 90 To 100
MsgBox "ヒ单"
Case 80 To 89
MsgBox "单"
Case 70 To 79
MsgBox "单"
Case 60 To 69
MsgBox "单"
Case Else
MsgBox "コ单"
End Select
End Sub

絤策 

    叫块る,耞讽る[琄(1-3),甃(4-6),(7-9),(10-12)]﹗.

秆氮:﹗竊耞