我想用vb窗口来显示当前单片机所读出来的温度，然后根据温度判断不同颜色的灯亮，我是这样写的，
Private Sub MSComm1_OnComm()
    Dim rec As String
    Select Case
    Case comEvReceive
        rec = MSComm1.Input
        Text2.Text = rec + ℃
        MSComm1.InBufferCount = 0
    If ("25" <= (Text2.Text) < "27") Then
        Shape1.BackStyle = 1
        Shape1.BackColor = vbGreen
    End If
    If ("27" <= Text2.Text < "29") Then
        Shape2.BackStyle = 1
        Shape2.BackColor = vbGreen
    End If
    If (Text2.Text >= "29") Then
        Shape3.BackStyle = 1
        Shape3.BackColor = vbGreen
    End If
    End Select
End Sub
可是怎么都不按要求来执行啊。
在温度低于29摄氏度的时候还是第三个灯亮，改变温度，都只是第三个灯在亮，我是新手，求高手们指导，感激不尽。

还是不行，还是和原来一样的效果。

谢谢版主，通过您给的程序改进，有了一些效果，当温度低于29摄氏度处于27-29摄氏度之间，第三个灯不亮了，而此时第一个灯还在亮，是怎么回事呢？效果图为 ，非常感谢版主，我是新手，忘版主多多指教。

很感谢您的帮助，可是弄了之后还是没啥变化，真心谢谢您的帮助。

谢谢版主，非常感谢，调通了