VB小程序`帮找个错误``` = linux/unix开源世纪,打创最强开源社群

麻辣堂\|资源主站\|开发论坛\|在线手册

首页│注册│帮助

您现在的位置：Unix5开源世纪 > U5编程社群 > 详细内容

VB小程序`帮找个错误```

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

提问者：早睡早起 2008-04-19 22:31:00

答复

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

回答者：爬树的猪 - 2008-04-19 23:32:00

你真是名副其实

回答者：爬树的猪 - 2008-04-19 23:25:00

太感激了```

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

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

回答者：早睡早起 - 2008-04-19 23:20:00

好象还是错

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

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

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

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

回答者：早睡早起 - 2008-04-19 23:12:00

[color=#000080]Private Sub [/color]Command1_Click[color=#FF0000]()
[/color][color=#000080]Dim [/color]m_max [color=#000080]As Double
Dim [/color]m_map [color=#000080]As String

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

回答者：slore - 2008-04-19 23:08:00

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

回答者：爬树的猪 - 2008-04-19 23:07:00

问题

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

回答者：早睡早起 - 2008-04-19 23:05:00

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

回答者：刨子头 - 2008-04-19 23:01:00

•	如果防止刷新之后重发信息?
•	如何在文本框中输入立方数？？
•	简单的考试系统
•	[求助]LINUX下的GNU C++编译器的详细用法
•	[求助]打印不出的图片
•	请教关于Oracle归档日志文件的问题
•	急,關于SQL連接.
•	我是个新手来请教下