条件の判定するには？

解決

---

初めて投稿します。ショシンシャです。
  よろしくお願いします。
  受験番号(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

  いろいろと試してみましたが、条件道理にいきません。
  返信お待ちしております。

編集 削除

---

ん〜、この場合、TENSUUに値を入れていないうちからSELECTで判断してるね。
だから

 Private Sub Command1_Click()
     Dim TENSUU As Integer
     Dim KEKKA
     Dim ERA
 TENSUU = Text2.Text 'このコードを追加
     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

でいいように思います。

編集 削除

---

いなさんありがとうございます。
  条件道理できました

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。