Change select case to if\else

Question

User1529716912 posted

hello,

can anyone help me in changing the following code from select case to if/else:

Select Case J

  Case Is >=5

            Select Case false

                        Case x=1

                                                            s = "Test 1"

                        case else

                                                            s = "Test 2"

            End select

            Case Is > 2, Is < 10, 13, 14

                s = "Test 3"

            Case Else

                s = "Test 4"

        End Select

Answer 1

User-758443495 posted

if (j>=5)
{
	if (x==1)
	{
		s = "Test 1";
	}
	else
	{
		s = "Test 2";
	}
}
else if (j > 2)

{
	s = "Test 3";
}
else
{
 	s = "Test 4";
}

Answer 2

User281315223 posted

Your current case statement seems a bit strange, but it might look something like this :

' Define your return value (s) '
Dim s = ""

' Run through your logic '
If J >= 5 Then
    If x = 1 Then
       s = "Test 1"
    Else
       s = "Test 2"
    End If 
Else If (J > 2) OrElse (J < 10) OrElse (J = 13) OrElse (J = 14) Then
    s = "Test 3"
Else 
    s = "Test 4"
End If

Answer 3

User1529716912 posted

thank you very much Rion

A+

Answer 4

User-758443495 posted

 OrElse (J < 10) OrElse (J = 13) OrElse (J = 14) never happens as the first if statement is J >= 5 so it is redundant, isn't it?