Private Sub Command1_Click()
Dim m_max As Double
Dim m_map As String


m_max = Text1.Text

Select Case m_max
Case Is < 0
m_map = "您输入的数据不准确"
Case Is < 50
 m_map = "建筑应高度小于25M"
Case Is >= 50 < 250
 m_map = "建筑应高度小于40M"
Case Is >= 250 < 450
 m_map = "建筑应高度小于50M"
Case Else
 m_map = "建筑应高度小于60M"

End Select

Text2.Text = m_map




End Sub
 请问``我那写错了呢```
为什么建筑高度总是无法运行40M以后呢````

Case Is >= 50 < 250－－－－语法？
自己调试就知道问题在哪里。

但是VB程序运行中并没有报错```我不知道该怎么调试``能不能指点我下呢

IS没有定义，而且IS有意义吗？
还有，如果你是想判断是否在50-250之间的话
应该这样写：is>50 and is <250或是用库函数。

Private Sub Command1_Click()
    Dim m_max As Double
    Dim m_map As String


    m_max = Text1.Text
    Select Case m_max
        Case Is < 0
            m_map = "您输入的数据不准确"
        Case Is < 50
            m_map = "25M"
        Case Is  < 250
            m_map = "40M"
        Case Is  < 450
            m_map = "50M"
        Case Else
            m_map = "60M"
    End Select
    Text2.Text = "建筑应高度小于" & m_map
End Sub

应该这样写：is>50 and is <250或是用库函数。

我现在照你这样的写反到是报错呢`

select case 语句好象就是我这样写呢`
我是照书上例题写的`不过这本书很远古```
很多地方都写错了``因为是自学``所以``我比较白痴``

select case 对象名
case is > ""
  执行语句

   感谢两位大哥的教导``感动完了``````


以后还望多多提点``小弟睡觉了```早睡早起精神好``

你真是名副其实

不好意思　，我上次写的是错的。。
slore写的很好哦。不过如果是小于0的话，我想结果是：建筑应高度小于您输入的数据不准确。。。