Respuesta al Ejercicio BH 59

thunder [yuniet02015@hab.jovenclub.cu]

Ejercicio:
==========
Los números 46 y 96 tienen una curiosa propiedad, su producto no se altera aunque las cifras que lo integran cambien de lugar.
46 * 96 = 4416
64 * 69 = 4416
Confeccione un programa para imprimir todos los números de dos cifras que cumplen esta propiedad.

'=========================================
'= Respuesta en Visual Basic =
'= al pequeño ejercicio =
'= de la edicion #59 =
'= de la revista =
'= BlackHat =
'=========================================

Private Sub Command1_Click()
  On Error Resume Next
  For a = 9 To 98
    num1 = a + 1
    rev1 = StrReverse(num1)
    For i = 9 To 98
      num2 = i + 1
      result1 = num1 * num2
      rev2 = StrReverse(num2)
      result2 = rev1 * rev2
      If result1 = result2 Then
        Text1.Text = Text1.Text + Str(num1) + " -" + Str(num2) + vbCrLf
        c = c + 1
        Label2.Caption = c
      End If
    Next
  Next
End Sub

Private Sub Command2_Click()
  Text1.Text = ""
  Label2.Caption = ""
  Command1.SetFocus
End Sub

Archivos relacionados

Respuesta.zip

Continuar leyendo