VB, hice un pequeño programa interesante con un error de suma.

Atenuar a como único, b como único, c como único

Private Sub c1_Click()

S1.Enabled = True

End Sub

Private Sub s1_Timer()

Aleatorizar

límite superior = 10

límite inferior = 1

T1 .Text = Val(Int((límite superior - límite inferior 1) * Rnd límite inferior))

a = Val(T1.Text)

Aleatorizar

límite superior = 10

límite inferior = 1

T2.Text = Val(Int((límite superior - límite inferior 1) * Rnd límite inferior))

b = Val(T2. Texto)

c = a b

L4.Caption = c

End Sub