条件の判定するには？ (ID:111009)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めて投稿します。ショシンシャです。 よろしくお願いします。 受験番号(Text1)と点数(Text2)を入力すると、 点数が８０点以上、１００点以下の場合は、結果(Label4)に"合格"と表示して、 ８０点未満の場合は、"不合格"と表示して、 １００点を超える場合は、"エラー"と表示するプログラムを作りましたが、 どんな値を入力しても、"不合格"と表示されてしまいます。 下にあるのが記述したコードです。 Option Explicit Private Sub Command1_Click() Dim TENSUU As Integer Dim KEKKA Dim ERA Select Case TENSUU Case Is < 80 KEKKA = "不合格" Case Is <= 100 KEKKA = "合格" Case Is > 100 KEKKA = "エラー" End Select Text2.Text = TENSUU Label4.Caption = KEKKA End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub いろいろと試してみましたが、条件道理にいきません。 返信お待ちしております。