Repasar Tabla de Multiplicar con textBox

[kaliman]

Estoy haciendo este problemita, el cual no puedo terminar la ultima
pregunta (8.-) haber si me dan una ayuda.
Gracias de antemano

Saludos
Cesar

1.- Al ejecutar el UserForm, escribimos en txtNum el número de
multiplicaciones que queremos hacer.

2.- En los cuadros txtUno y txtDos aparecen dos números aleatorios
entre 1 y 12

3.- En el cuadro txtResul escribimos el resultado de las
multiplicaciones que aparece en txtUno y txtDos.

4.- Si la respuesta es correcta, aparece en el cuadro txtCorrec la
frase “Muy Bien”.

5.- Si la respuesta es incorrecta, aparece en el cuadro txtCorrec la
contestación correcta

6.- Los cuadros txtBien y txtMal cuentan el número de respuesta
correcta e incorrecta respectivamente

7.- El botón Otra, sirve para una nueva multiplicación

8.- Al acabarse todas las multiplicaciones: en el cuadro txtNota
aparece la nota cualitativa (Excelente, Notable, Bien, etc.). El botón
Otra se ha invisible y aparece otro botón que nos permite salir del
programa

USERFORM

Private Sub cmdOtra_Click()
For i 1 To txtNum
If txtResul.Text = txtUno.Text * txtDos.Text Then
Aciertos = txtBien.Text
txtBien.Text = Aciertos + 1
txtCorrec = "Muy Bien"
Else
Erroneos = txtMal.Text
txtMal.Text = Erroneos + 1
txtCorrec.Text = txtUno & " * " & txtDos & " = " & (txtUno *
txtDos)
End If
Next
Randomize
txtUno.Text = Int(Rnd * 12) + 1
txtDos.Text = Int(Rnd * 9) + 1
txtResul = ""
txtNota = NotaCuali(txtBien.Text, txtNum.Text)
txtPen = Val(txtNum.Text) - (Val(txtBien.Text) + Val(txtMal.Text))
txtResul.SetFocus
'cmdOtra.Visible = False
'cmdSalir.Visible = True

End Sub

Private Sub cmdSalir_Click()
End
End Sub

Private Sub UserForm_Activate()
Randomize
txtUno.Text = Int((12 * 1 - 1) * Rnd * 1)
txtDos.Text = Int((12 * 1 - 1) * Rnd * 1)
End Sub

MODULO1

Function NotaCuali(a As String, b As String) As String
notanum = (10 * a) / b
Select Case notanum
Case 0 To 1
notacual = "Muy Deficiente"
Case 2 To 3
notacual = "Deficiente"
Case 4
notacual = "Insuficiente"
Case 5
notacual = "Suficiente"
Case 6
notacual = "Bien"
Case 7 To 8
notacual = "Notable"
Case 9 To 10
notacual = "Excelente"
End Select
NotaCuali = notacual
End Function

[Héctor Miguel]

hola, Cesar !

> Estoy haciendo este problemita, el cual no puedo terminar la ultima pregunta (8.-) haber si me dan una ayuda...

- le falta el signo '=' al bucle For...Next, y no se aprecia cual es el objetivo de este bucle, ya que...
- no es claro por que el bucle lo tienes en el evento '_click' del cmdOtra (se repite ANTES de realizar las n_operaciones) y...
- no transcribiste el mecanismo o procedimiento por medio del cual se realizan las n_operaciones del txtNum -???-

ve si puedes "precisar" con mayor objetividad cual es la falla, el momento en que ocurre, que es lo que esperabas, etc.

saludos,
hector.

__ consulta original __
1.- Al ejecutar el UserForm, escribimos en txtNum el numero de multiplicaciones que queremos hacer.
2.- En los cuadros txtUno y txtDos aparecen dos numeros aleatorios entre 1 y 12

3.- En el cuadro txtResul escribimos el resultado de las multiplicaciones que aparece en txtUno y txtDos.
4.- Si la respuesta es correcta, aparece en el cuadro txtCorrec la frase “Muy Bien”.

5.- Si la respuesta es incorrecta, aparece en el cuadro txtCorrec la contestacion correcta
6.- Los cuadros txtBien y txtMal cuentan el numero de respuesta correcta e incorrecta respectivamente
7.- El boton Otra, sirve para una nueva multiplicacion

8.- Al acabarse todas las multiplicaciones: en el cuadro txtNota aparece la nota cualitativa (Excelente, Notable, Bien, etc.).

El boton Otra se ha invisible y aparece otro boton que nos permite salir del programa

[kaliman]

Hola Hector,

Lo que me falta de este archivo es lo siguiente :
- Al acabarse todas las multiplicaciones: dependiendos del txtNum(el
cual te solicita cuantas multipicaciones quieres hacer)
- En el cuadro txtNota aparece la nota cualitativa (Excelente,
Notable, Bien, etc.).
- El boton Otra se ha invisible y aparece otro boton que nos permite
salir del programa
Osea que si en el txtNum coloco 10, cuando realizo la multiplicacion
No 10 el programa hace invisible a al Boton cmdOtra y aparece el boton
cmdSalir y en el txt este en cero. Tengo el archi en Excel VBA pero me
falta terminarlo.

Saludos,
Cesar