Whatever
A=pi*r2
P=2*pi*r
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
p.Text = 2 * 3.1415 * Val(r.Text)
a.Text =3.1415 * (Val(r.Text) * Val(r.Text))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
r.Text = Nothinga.Text = Nothing
p.Text = Nothing
r.Focus()
End Sub
End Class
[pic]
Velocidad = distancia / tiempo
Public Class Form1
Private Sub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click
v.Text = Val(d.Text) / Val(t.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
v.Text =Nothing
d.Text = Nothing
t.Text = Nothing
d.Focus()
End Sub
End Class
[pic]
3a2-4u+3b+c=0
Public Class Form1
Private Sub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click
u.Text = ((-3 * (Val(a.Text) * Val(a.Text)) * b.Text) - 3 * Val(b.Text) - Val(c.Text)) / -4
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
a.Text = Nothing
b.Text = Nothing
c.Text = Nothing
u.Text = Nothing
a.Focus()
End Sub
End Class
[pic]
Regístrate para leer el documento completo.