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

名前

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

本文 ん〜、この場合、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 でいいように思います。