Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

End Sub

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

TextBox6.Text = ((Val(3.14) * Val(TextBox4.Text) ^ 2) / (Val(4))) * Val(TextBox5.Text)

End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox7.Text = (Val(TextBox3.Text) * Val(TextBox6.Text)) / (Val(TextBox1.Text) * Val(TextBox2.Text))

End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged

End Sub
Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

End Sub

Private Sub Button3_Click

TextBox8.Text = Val(TextBox9.Text) - Val(TextBox10.Text)

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox11.Text = ((Val(TextBox1.Text) * 100 * Val(TextBox2.Text) * Val(TextBox7.Text) * (Val(TextBox8.Text) - (Val(TextBox7.Text) * 0.5))) / 1000)

End Sub

Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged

End Sub

Private Sub Button5_Click() Handles Button5.Click

Me.Hide()
Form2.ShowDialog()

End Sub

End Class

Antonariy, спасибо) Я вот думаю может создать заново проект? Потому что по началу этого "хаотичного" порядка не было

Shocker.Pro, спасибо за совет насчет картинки. Это нужный файл? Или надо другой?

Shocker.Pro,не смотря на то что удалила все лишнее и формы и картинки, общая папка с проектом весит около 6 мб,сейчас пришлю все файл Form1 которые есть в этой папке

Winnipuh, к Вашему удивлению Я умею пользоваться архиваторами))) Просто здесь ограниченный размер файлов не более 150кб, Вы только скажите как мне его сюда скинуть...или может не сюда? Может на яндекс диск записать, а Вы туда зайдете и скачаете)?

Вот ссылка на архив с проектом https://yadi.sk/d/5JcAtnRWmRqhm

Ну прости не грамотного человека)) Для меня визуал бейсик темный лес, мы его проходили 1 семестр 3 года назад и то очень поверхностно)) Поэтому надеюсь я Вас всех не сильно вывела из себя, своим не знанием и не пониманием)) Спасибо за терпение))