CODIGOS DE VISUAL BASIC PARA CREAR UNA SUMA SENCILLA

Dim a, b, c, d, e, f As Variant

Private Sub CommandButton1_Click()
c = Val(a) + Val(b)
If Val(a) + Val(b) = TextBox3 Then
Load UserForm2
UserForm2.Show
d = Val(d) + 1
Label1 = d
f = 100 * Val(d) / (2 * (Val(d) + Val(e)))
Label3 = f
a = Int(10 * Rnd)
TextBox1 = a
b = Int(10 * Rnd)
TextBox2 = b
TextBox3 = ""
Else
Load UserForm3
UserForm3.Show
e = Val(e) + 1
Label2 = e
f = 100 * Val(d) / (2 * (Val(d) + Val(e)))
Label3 = f
End If
End Sub

Private Sub CommandButton2_Click()
a = Int(10 * Rnd)
TextBox1 = a
b = Int(10 * Rnd)
TextBox2 = b
TextBox3 = ""
End Sub

Private Sub Label1_Click()
d = Label1
End Sub

Private Sub Label2_Click()
e = Label2
End Sub

Private Sub Label3_Click()
f = Label3
End Sub

Private Sub TextBox1_Change()
a = TextBox1
End Sub

Private Sub TextBox2_Change()
b = TextBox2
End Sub

Private Sub TextBox3_Change()
c = TextBox3
End Sub

TUTOR PARA CREAR PRUEBAS EN POWERPOINT UTILIZANDO LAS TIC