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以后呢````

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

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

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

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

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

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


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