标题:这段有错吗
只看楼主
cpg4
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-5-3
结帖率:100%
 问题点数:0 回复次数:4 
这段有错吗
Select Case 数值

      case 0 to 50

      case 51 to 100

End Select
得出的结果只要数据里大于6以上的全部归到51 to 100,能不能设置数值里如6为06

[ 本帖最后由 cpg4 于 2009-9-16 09:31 编辑 ]
2009-09-15 15:45
cpg4
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-5-3
得分:0 
顶下
2009-09-17 17:55
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
得分:0 
   Dim intx As Integer = CInt(Me.TextBox1.Text)
        Select Case intx

            Case 0 To 50
                MsgBox("0-50")

            Case 51 To 100
                MsgBox("51-100")

        End Select
沒問題啊


一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2009-09-25 16:52
subMain
Rank: 5Rank: 5
等 级:职业侠客
帖 子:50
专家分:357
注 册:2009-8-17
得分:0 
以下是引用fairy4在2009-9-25 16:52:32的发言:

   Dim intx As Integer = CInt(Me.TextBox1.Text)
        Select Case intx

            Case 0 To 50
                MsgBox("0-50")

            Case 51 To 100
                MsgBox("51-100")

         ...
这段貌似没错,但是TextBox1中的内容必须是整形范围内的数值。

学习VB好多天
2009-09-26 17:15
adrian0
Rank: 2
等 级:论坛游民
帖 子:78
专家分:70
注 册:2010-1-28
得分:0 
Dim intx As Integer = CInt(Me.TextBox1.Text)
        Select Case intx

            Case 0 To 50
                MsgBox("0-50")

            Case 51 To 100
                MsgBox("51-100")

        End Select
2010-02-03 16:21



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-285816-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.173711 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved