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.
Leer las respuestas