Select Case 数值

      case 0 to 50

      case 51 to 100

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

[ 本帖最后由 cpg4 于 2009-9-16 09:31 编辑 ]

顶下

   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
沒問題啊

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

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