Advertisement
Guest User

Untitled

a guest
Nov 4th, 2011
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4. Dim a As Integer
  5. Dim b As Integer
  6. Dim c As Integer
  7. Dim x As Integer
  8.  
  9. a = TextBox1.Text
  10. b = TextBox2.Text
  11. c = TextBox3.Text
  12. x = Label1.Text
  13.  
  14. x = (-b + (^1 / 2(b ^ 2 - 4 * a * c)/ 2 * a))
  15. End Sub
  16. End Class
  17.  
  18.  
  19.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement