sentencia case y and

[Heimish2000]

Si lo quieres hacer obligatoriamente con case hay una forma que es con una variable auxiliar que le asignes un valor u otro dependiendo de las condiciones que dices.

Por ejemplo, supongamos que has declarado una variable selector de tipo entero

Código vb:

If a>b Then
selector = 1
Else
selector = 0
End If
 
If c<d Then
selector = selector + 10
End If
 
switch (selector)
case (0) 'Sabemos que c>d y b>a
case (1) 'Sabemos que c>d y b<a
case(10) 'Sabemos que c<d y b>a
case(11) 'Sabemos que c<d y b<a