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