Hola enviame al mail mas información y veo como te puedo ayudar.

Luis

Ayuda por favor


cuando uno seleccione la opcion correcta en el primer intento se debe acumular 10 p
si falla emite un mensaje de aue dice tienes otra oportunidad.
si en el segundo intento es la respuesta correcta ya no vale 10p sino que vale 5 y si falla por segundavez emite un mensaje que dice pierde.,
bueno yo lo tengo de la siguiente manera pero me repite una opcion seleccionada dos veces
Private Sub Combo1_Click()

If Combo1 = "Francisco Tovar" Then

a = MsgBox("10 PUNTOS A TU FAVOR", vbInformation + vbOKOnly, "YES")
p = p + 10

Else
a = MsgBox("tienes otra oportunidad", vbInformation + vbOKOnly, "NO GANAS PUNTOS")
End If


If Combo1 = "Francisco Tovar" Then

b = MsgBox("ganas 5", vbInformation + vbOKOnly, "YES")
p = p + 5

Else
b = MsgBox("pierdes", vbInformation + vbOKOnly, "NO GANAS PUNTOS")
End If

Text1.Text = p
End Sub

Estimado:
Te pido disculpas es que no logro entender porque cuatro formularios?
En uno solo podrías tranquilamente poner los botones con las funciones de suma(+), resta(-), producto(*) y cociente(/).
Ejemplo;
Supongamos que tenes un text1 donde permitis al operador ingresar los números a calcular?
Si hay algo dentro del text1, bien podes limpiarlo autorizando al boton limpiar con la siguiente directiva: text1=""
Luego el operador presiona el boton (suma) y tomas en variable global a nivel del formulario el valor del text1, algo así --total o calcular= val(text1.text)-- donde sumar es una variable de tipo long declarada en la cabecera del formulario.
Si queres sumar con decimales tenes que declararla como "double" que te permite utilizar numeros de coma flotante de 64 bits

----------------------------------------------------------------------------------------------------
Aquí te dejo un código que hice hace un ratito para vos, espero que te sea de alguna utilidad.

tenes que colocar en el formulario un textbox y cinco commandbutton, las explicaciones te las dejé en el código.
----------------------------------------------------------------------------------------------------

'variables del tipo global a nivel del formulario
'para tener siempre a mano el último numero agregado
Dim ultimonumeroagregado As Double
Dim calcular As Double
'total que pasa por todos los tipos de calculos
Dim total As Double

Private Sub Command1_Click()
'para el caso de la suma se asigna a -calcular- el valor de total mas el ultimo numero agregado
calcular = total + ultimonumeroagregado
'se actualiza el valor de total
total = calcular
'se muestra al usuario el valor calculado
Text1 = calcular
End Sub

Private Sub Command2_Click()
calcular = total - ultimonumeroagregado
total = calcular
Text1 = calcular
End Sub

Private Sub Command3_Click()
'el controlador de errores es por el desbordamiento si se quiere dividir por 0
On Error GoTo msg
calcular = total / ultimonumeroagregado
total = calcular
Text1 = calcular
msg:
Text1 = total
End Sub

Private Sub Command4_Click()
calcular = total * ultimonumeroagregado
total = calcular
Text1 = calcular
End Sub

Private Sub Command5_Click()
'al hacer clic se vacía el text1 y la variable total se pone a 0
Text1.Text = ""
total = 0
End Sub

Private Sub Form_Load()
'necesitas un text1 y 5 commandbutton en un formulario
Text1.Text = "Ingrese aquí los números a calcular"
Command1.Caption = "+"
Command2.Caption = "-"
Command3.Caption = "/"
Command4.Caption = "*"
Command5.Caption = "Limpiar"
Text1.Alignment = 1 '(dígitos a la derecha)
End Sub

Private Sub Text1_Click()
'cada vez que haces foco en el text1 se vacía para permitir ingresar datos
Text1.Text = ""
End Sub

Private Sub Text1_LostFocus()
'cuando dejas de hacer foco en el text1 se actualiza la variable -ultimonumeroagregado-
ultimonumeroagregado = Val(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'esta opción es para que el text acepte numeros solamente, punto, coma y retroceso para borrado
Select Case KeyAscii
Case 13
KeyAscii = 0 ' Para que no beepee
Case 44, 46, 8, 48 To 57
'Case 44 (",") o case 46 (".") o case 48 to 57 (todos los números)
Case Else
' No es una tecla numérica, no admitirla
KeyAscii = 0
Beep
End Select
End Sub
-----------------------------------------------------------------------------------------

Ojala que te sea de utilidad.

Un fuerte abrazo y cualquier cosa a tu disposición.

Desde Bragado, Buenos Aires, Argentina.

Luis Pedro Méndez.

Private Sub Command2_Click()
COMPRAR = ""
MONEDERO = ""
End Sub

Private Sub Command3_Click()
End
End Sub

ElseIf PROMEDIO >= 6 And PROMEDIO < 7 Then
LEYEN = "INDEFICIENTE"
ElseIf PROMEDIO < 5 Then
LEYEN = "REPROBADO"
End If
End Sub

Private Sub Command2_Click()
LEYEN = ""
PROMEDIO = ""
ELABORAR = ""
DISEÑAR = ""
APLICAR = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Command1_Click()
RESULTADO = ""
End Sub

Private Sub Command2_Click()
End
End Sub