Subcomando privado1_Click() A = Val(Texto1.Texto): B = Val(Texto2.Texto) Para M = A a B M = M + 1 Siguiente
Lo siguiente se modifica según su programa. La modificación es para eliminar las 40 comillas dobles en la función Form_load
Opción Explícita
Opción Base 1
. p>
Núm constante = 10
Atenuar a(núm) como único, b(núm) como único, c(núm) como único
Dim x como único, m Como único
Dim sum Como único, i Como entero
Subcomando privado1_Click()
suma = 0
Para i = 1 A num
c(i) = ((a(i) - 60) / 10 + 1) * b(i)
suma = suma + c(i)
Siguiente i
x = suma / m
Imprimir "Text00.Text" x
End Sub
Private Sub Form_Load()
a(1) = Val(Text1.Text) 'Logros en cada materia
a(2) = Val(Text2.Text)
a(3) = Val(Texto3.Texto)
a(4) = Val(Texto4.Texto)
a(5) = Val(Texto5.Texto )
a(6) = Val(Texto6.Texto)
a(7) = Val(Texto7.Texto)
a(8) = Val ( Texto8.Texto)
a(9) = Val(Texto9.Texto)
a(10) = Val(Texto10.Texto)
b( 1 ) = Val(Text11.Text) 'Puntos por cada materia
b(2) = Val(Text12.Text)
b(3) = Val(Text13.Text)
b(4) = Val(Texto14.Texto)
b(5) = Val(Texto15.Texto)
b(6) = Val(Texto16 .Texto)
b(7) = Val(Texto17.Texto)
b(8) = Val(Texto18.Texto)
b(9) = Val(Text19.Text)
b(10) = Val(Text20.Text)
m = Val(Text0.Text) 'Créditos totales
Fin Sub
========================================== === ===
El siguiente es el programa que escribí para ti. Puedes compararlo con tu programa para ver cuál es mejor.
Coloca un cuadro de texto en la parte superior. La esquina izquierda del formulario y un TextBox a la derecha son suficientes, no hay necesidad de poner 21 TextBoxes como lo hizo
Opción Explícita
Opción Base 1
.Const. hasta
tal = 10
Subcomando privado1_Click()
Dim Sum como único, puntuación (total) como único, crédito (total) como único
Dim i como Entero, SumCredit como entero
Para i = 1 al total
Puntuación(i) = (Val(Text1(i - 1).Text) - 60) / 10 + 1
Crédito(i) = Val(Texto1(i + Total - 1).Texto)
Suma = Suma + Puntuación(i) * Crédito(i)
SumCredit = SumCredit + Crédito(i)
Siguiente i
MsgBox "Créditos promedio:" & Formato(Sum / SumCredit, "0.00")
Fin Sub
Sub privada Form_Load()
Atenuar i como entero
Texto1(0).Texto = 90
Para i = 0 Al total: 1
Si i <> 0 entonces
Cargar Texto1(i)
Texto1(i).Left = Texto1(0).Left
Texto1(i).Arriba = Texto1(i - 1).Arriba + Texto1(0).Altura + 100
Texto1(i).Visible = Verdadero
Texto1(i).Texto = Int(Rnd * 60) + 35
Fin Si
Cargar Texto1(i + Total)
Texto1(i + Total).Izquierda = Texto1(0).Izquierda + Texto1(0).Ancho + 400
Texto1(i + Total).Arriba = Texto1(i).Arriba
Texto1(i + Total).Visible = Verdadero
Texto1(i + Total).Texto = Int(Rnd * 5) + 1
Siguiente
Fin Sub
===========================================
Creo que uno de los puntos brillantes de tu programa es
c(i) = ((a(i) - 60) / 10 + 1) * b(i)< / p>
Esta frase si la escribiste tú mismo, demuestra que todavía tienes grandes ideas