corregir errores

06/01/2006 - 18:00 por jorge | Informe spam
Buenas, estoy desarrollaando un programa sobre una boleta de notas y al
comienzo se veia asi:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, pr As Integer
Dim ROUND(10, 10) As Integer
Dim CAD As Integer
n1 = Val(TextBox4.Text)
n2 = Val(TextBox5.Text)
n3 = Val(TextBox6.Text)
pr = Round((n1 + n2 + n3) / 3, 0)
TextBox7.Text() = Str(pr)
If pr >= 11 Then
TextBox9.Text = "APROBADO"
TextBox9.ForeColor = System.Drawing.Color.Blue
Else
TextBox9.Text = "desaprobado"
TextBox9.ForeColor = System.Drawing.Color.Red
End If
Select Case pr
Case 1
CAD = "UNO"
Case 2
Cad = "DOS"
Case 3
CAD = "TRES"
Case 4
CAD = "CUATRO"
Case 5
CAD = "CINCO"
Case 6
CAD = "SEIS"
Case 7
CAD = "SIETE"
Case 8
CAD = "OCHO"
Case 9
Cad = "NUEVE"
Case 10
CAD = "DIEZ"
Case 11
CAD = "ONCE"
Case 12
CAD = "DOCE"
Case 13
CAD = "TRECE"
Case 14
CAD = "CATORCE"
Case 15
CAD = "QUINCE"
Case 16
CAD = "DIESISEIS"
Case 17
CAD = "DIESISIETE"
Case 18
CAD = "DIESIOCHO"
Case 19
CAD = "DIESINUEVE"
Case 20
CAD = "VEINTE"
End Select
TextBox8.Text = CAD

Button2.Enabled = True
Button1.Enabled = False

ToolTip1.SetToolTip(Button1, "Hacer un clic para calcular")

End Sub


Despues de ingresar al grupo y pedir su asesoria la programacon quedo asi:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, pr As Integer
Dim CAD As String
Dim numLetras(19) As String = {"UNO", "DOS", "TRES", "CUATRO", _
"CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", _
"TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", _
"DIECIOCHO", "DIECINUEVE", "VEINTE"}

n1 = Val(TextBox4.Text)
n2 = Val(TextBox5.Text)
n3 = Val(TextBox6.Text)
pr = System.Math.Round((n1 + n2 + n3) / 3, 0)
TextBox7.Text() = Str(pr)
If pr > 11 Then
TextBox9.Text = "APROBADO"
TextBox9.ForeColor = System.Drawing.Color.Blue
Else
TextBox9.Text = "desaprobado"
TextBox9.ForeColor = System.Drawing.Color.Red
End If

Select Case pr
CAD = numLetras(pr - 1)
End Select
TextBox8.Text = numLetras(pr - 1)
Button2.Enabled = True
Button1.Enabled = False


End Sub

pero sigue votando errores por ejjm

sale subrayado numLetras(19) con este mensaje: No se permite la
inicialización
explícita para matrices declaradas con límites explícitos. y en

CAD = numLetras(pr - 1) sale subrayado CAD con el siguiente mensaje:

Las instrucciones y etiquetas no son válidas entre 'Select Case' y la
primera instrucción 'Case'

haber si me ayudan tengo que presentar este proyecto el lunes, sino voy
atener que comenzar de nuevo. gracias.

Preguntas similare

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
07/01/2006 - 15:21 | Informe spam
sale subrayado numLetras(19) con este mensaje: No se permite la
inicialización
explícita para matrices declaradas con límites explícitos. y en



Cuando inicializas una matriz en su declaracion no puedes colocar cuantos
elementos tiene la matriz:

Dim numLetras() As String = {"UNO", "DOS", "TRES", "CUATRO", _
"CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", _
"TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", _
"DIECIOCHO", "DIECINUEVE", "VEINTE"}

CAD = numLetras(pr - 1) sale subrayado CAD con el siguiente mensaje:

Las instrucciones y etiquetas no son válidas entre 'Select Case' y la
primera instrucción 'Case'



No puedes colocar instrucciones en un Select Case si no estan debajo de un
Case. Antes usabas el Select Case para obtener el texto, como ahora lo
tienes en una matriz ya no necesitas usarlo, quita el Select Case y el End
Case.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida