Forums Últimos mensajes - Powered by IBM
 

Problemas con estructura

07/08/2006 - 23:05 por jorge | Informe spam
If Promedio <= 0 Then
MsgBox "Verifique los datos ingresados" vbCritical "error"

End If
Select Case Promedio
Case 0 To 9
Categoria = "D"
Case 10 To 13
Categoria = "C"
Case 14 To 16
Categoria = "B"
Case 17 To 20
Categoria = "A"
End Select
TextBoxResultados = "La nota mas baja fue :" & Trim(Str(notaMenor))
& vbCrLf
TextBoxResultados = TextBoxResultados & "El promedio total es: " &
Trim(Str(Promedio)) & vbCrLf
TextBoxResultados = TextBoxResultados & "La categoria del alumno es:
" & Categoria
 

Leer las respuestas

#1 SoftJaén
08/08/2006 - 05:11 | Informe spam
Bueno, la verdad es que parece ser que nos tenemos que suponer el problema
que tienes con la "estructura", porque no nos has comentado dónde está el
problema. :-)

Si deseas que se verifique el valor 0 en el bloque «Select Case», elimina de
la condición «If» el igual a 0, de ésta forma se verificarán todas las notas
a excepción de las inferiores a cero:

If Promedio < 0 Then
MessageBox.Show("Verifique los datos ingresados", _
"Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
End If

Asimismo, si no deseas que se ejecute el código que hay posterior al código
«Select Case», después del mensaje de error puedes incluir una instrucción
para abandonar el procedimiento:

If Promedio < 0 Then
MessageBox.Show("Verifique los datos ingresados", _
"Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)

' Abandonamos el procedimiento
Exit Sub
End If

TextBoxResultados = "La nota mas baja fue :" & Trim(Str(notaMenor))



Y ya puestos a suponer problemas, si «TextBoxResultados» es el nombre de un
control TextBox, específica explícitamente la propiedad «Text», si tu
intención es que se escriba la nota más baja, porque de no hacerlo,
obtendrás una advertencia que te indicará que «un valor de tipo 'String' no
se puede convertir en 'System.Windows.Forms.TextBox'.»:

TextBoxResultados.Text = "La nota más baja fue: " & ...

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Preguntas similares