Lec 14

Visual Basic 2015 Lección 14: Tratar con opciones múltiples de utilizar Select Case

En esta lección, usted deberá aprender a utilizar la estructura Selección de casos y controles en Visual Basic 2015. Seleccione la estructura de control de la caja también implica toma de decisiones pero es ligeramente diferente del Si ... .ElseIf estructura de control. 

El Si ... Entonces ... estructura de control sentencia elseif se evalúa sólo una expresión, pero cada una sentencia elseif calcula los valores diferentes para la expresión. Por otra parte, la estructura de control Select Case evalúa una expresión para varios valores. Select Case se prefiere cuando existen múltiples condiciones como el uso ... Si Then..ElseIf declaraciones resultarán demasiado sucio.

14.1 El Select Case ... End Select Estructura

La estructura de la estructura de control de selección de caso en Visual Basic 2015 es el siguiente:

Seleccione la caja expressionCase valor1
Bloque de uno o más estados básicos Visuales 2015
valor2 caso
Bloque de una o más de Visual Basic 2015 Declaraciones
valor3 caso
.
.
Case Else
Bloque de uno o más de Visual Basic 2015 StatementsEnd Select
14.2 El uso de Select Case se muestra en los siguientes ejemplos

Ejemplo 14.1: Grados de examen

En este ejemplo, el programa mostrará un mensaje relacionado con el grado introducida por el usuario.

El Sub CodePrivate BtnShow_Click (remitente como objeto, e como EventArgs) Maneja BtnShow.Click
Dim como secuencia de grado
grado = TxtGrade.Text
Seleccione la calidad de Caso
Caso "A"
MsgBox ( "Alta Distinción")
Caso "A-"
MsgBox ( "Distinción")
Caso "B"
MsgBox ( "crédito")
Caso "C"
MsgBox ( "Pass")
Case Else
MsgBox ( "Fail") End Select
End Sub

La salida

vb2015_fig14.1
 La figura 14.1





vb2015_fig14.2

Figura 14.2

ejemplo 14.2

En este ejemplo, se puede utilizar la palabra clave es, junto con los operadores de comparación para evaluar una expresión.

Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click'Examination Marcas

Como marca Dim individual
= marca mrk.Text
Seleccionar marca Caso
Caso es> = 85
MsgBox ( "excelencia")
Caso es> = 70
MsgBox ( "bueno")
Caso es> = 60
MsgBox ( "Por encima de la media")
Caso es> = 50
MsgBox ( "Normal")
Case Else
MsgBox ( "necesidad de trabajar más duro")
End Select

End Sub

ejemplo 14.3

Ejemplo 14.2 se puede reescribir como sigue:

Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click

«Examen de Marcas

Como marca Dim individual
marca = TextBox1.Text
Seleccionar marca Caso

Caso 0-49
MsgBox ( "necesidad de trabajar más duro")

Caso 50 a 59
MsgBox ( "Normal")

Caso 60-69
MsgBox ( "Por encima de la media")

Caso 70-84
MsgBox ( "bueno")

Caso 85-100
MsgBox ( "excelencia")

Case Else
MsgBox ( "Entrada incorrecta, por favor, vuelva a introducir la marca")

End Select

End Sub

ejemplo 14.4

Las calificaciones en la escuela secundaria por lo general se presentan con una sola letra mayúscula, tales como A, B, C, D o E. Los grados se pueden calcular de la siguiente manera:

Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click

«Examen de Marcas

Como marca Dim individual

marca = TextBox1.Text

Seleccionar marca Caso

Caso de 0 a 49
LblGrade.Text = "E"

Caso 50 a 59

LblGrade.Text = "D"
Caso 60 a 69

LblGrade.Text = "C"
Caso 70 a 79

LblGrade.Text = "B"

Caso 80 a 100
LblGrade.Text = "A"

Case Else
LblGrade.Text = "error, por favor, vuelva a introducir la marca"

End Select

End Sub

La salida:



Figura 14.3