这段有错吗

cpg4 发布于 2009-09-15 15:45， 872 次点击

Select Case 数值

case 0 to 50

case 51 to 100

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

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

4 回复

cpg42009-09-17 17:55

顶下

fairy42009-09-25 16:52

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

subMain2009-09-26 17:15

以下是引用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中的内容必须是整形范围内的数值。

adrian02010-02-03 16:21

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