Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda de programación VB

Ayuda de programación VB

Subcomando privado1_Click()

Para a = 1 a 14

Para b = 1 a 14

c = 16 - a - b

Si a * 8 + b * 6 + c * 6 = 110 y b * 2 + c = 14 Entonces

MsgBox "Spider:" & a & "only" & vbCrLf & "Dragonfly:" & b & "only" & vbCrLf & "Cicada:" & c & "only"

Finalizar si

Siguiente

Siguiente

Fin Sub