Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Alguien sabe cómo programar esta pregunta de VB? Gracias por su ayuda. ¡La adoptaré si es buena! ¡Le agradecería que pudiera responderme! ! ¿No hay nadie?

¿Alguien sabe cómo programar esta pregunta de VB? Gracias por su ayuda. ¡La adoptaré si es buena! ¡Le agradecería que pudiera responderme! ! ¿No hay nadie?

Vea la imagen para ver el efecto de ejecución:

El código es el siguiente: ¿Opción?Explícito

Privado?Sub?Command1_Click()

¿Dim?G?Como?Integer

Dim?S?As?Integer

Dim?g1?As?Integer,?g2?As?Integer

Dim?s1?As?Integer,?s2?As?Integer

Dim?b1?As?Integer,?b2?As?Integer

Dim?pfs1?As?Integer ,?pfs2?As? Entero Me.Cls

For?S?=?1?To?9

For?G?=?0?To?9 If?S?

Siguiente?G

Siguiente?S

Fin ?Sub