자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

기타 [vb.net] Select Case

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 14,395회 작성일 19-10-25 12:12

본문

    Select Case aa


        Case 1 To 1.49


            MsgBox(1)


        Case 1.5 To 2


            MsgBox(2)


        Case Else


            MsgBox("was lower than 1 or higher than 2 or between 1.49 and 1.5")


    End Select

this(below) would go into case else

   Dim aa As Double = 1.499

this(below) will go into case 1 to 1.49

   Dim aa As Double = 1.4

this(below) will go into case 1.5 to 2

   Dim aa As Double = 1.78

other way of doing it: From here

    Select Case value


        Case Is <= 49.99


            Debug.WriteLine("first group")


        Case Is <= 99.99


            Debug.WriteLine("second group")


        Case Is <= 199.99


            Debug.WriteLine("third group")


        Case Else


            Debug.WriteLine("fourth group")


    End Select

and maybe this too:

    Select Case true


        Case (value >= 0 andalso value <= 49.99)


            Debug.WriteLine("first group")


        Case (value >= 50 andalso value <= 99.99)


            Debug.WriteLine("second group")


        Case (value >= 100 andalso value <= 199.99)


            Debug.WriteLine("third group")


        Case Else


            Debug.WriteLine("fourth group")


    End Select

댓글목록

등록된 댓글이 없습니다.