Curso programación macros VBA en CATIA v5

Select Case... Case... End Select

Esta sentencia permite ejecutar una de entre varias acciones en función del valor de una expresión.

Esta sentencia permite realizar varias comparaciones (casos) y ejecutar sentencias en aquellos que sean verdaderos.
Es una alternativa a If ... Then ... ElseIf cuando se compara la misma expresión con diferentes valores.

Sintaxis:

Select Case expresión
Case valor1 sentencias1
[Case valor2 sentencias2]
Case Else sentencias
End Select

Expresión es una expresión numérica o alfanumérica, y valor1, valor2,... los vaores que puede adoptar.

Ejemplo

Dim Nota as Integer
Dim Calificacion as Stri.........