Scribd
Upload
16 views

Private Sub As Object As Handles Dim As Single Dim As Single

The document contains code for 4 button click event handlers that perform calculations with user input numbers and display the results in text boxes. Button1 calculates the area of a circle. Button2 calculates the area of another circle. Button3 performs multiple calculations to determine values for variables a, w, o, t using numbers from previous text boxes. Button4 displays the value of o from the previous calculations.

Uploaded by

cert
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
16 views

Private Sub As Object As Handles Dim As Single Dim As Single

The document contains code for 4 button click event handlers that perform calculations with user input numbers and display the results in text boxes. Button1 calculates the area of a circle. Button2 calculates the area of another circle. Button3 performs multiple calculations to determine values for variables a, w, o, t using numbers from previous text boxes. Button4 displays the value of o from the previous calculations.

Uploaded by

cert
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.

Click
Dim x As Single
Dim t, o, a, r, w As Single
r = TextBox3.Text
x = TextBox1.Text
TextBox2.Text = x * 3.1415 * 2

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
Dim x As Single
x = TextBox5.Text
TextBox7.Text = x * 3.1415 * 2
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click
Dim a, w, o, t As Single
Dim a1, w1, o1, t1 As Single
a = 0
w = TextBox2.Text
o = TextBox2.Text * t
a1 = TextBox4.Text
w1 = TextBox7.Text + a1 * t
o1 = 3.1415 / 2 + TextBox7.Text * t + 0.5 * TextBox4.Text * (t ^[2])
t = (-(TextBox7.Text - TextBox2.Text) + (((TextBox7.Text - TextBox2.Text)
^[2])-4 *(3.1415 / 2) *textbox4.text)^[0.5]))/2*textbox4.text
t1 = (-(TextBox7.Text - TextBox2.Text) - (((TextBox7.Text - TextBox2.Text) ^[2])-4
*( 3.1415 / 2)*textbox4.text)^[0.5]))/2*textbox4.text

TextBox8.Text = t1

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles


Button4.Click
TextBox8.Text = o
End Sub
End Class

You might also like