Whatever

Solo disponible en BuenasTareas
  • Páginas : 2 (286 palabras )
  • Descarga(s) : 0
  • Publicado : 9 de noviembre de 2010
Leer documento completo
Vista previa del texto
Área y perímetro de la circunferencia
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]
tracking img