Wayne

TRIANGULO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = (TextBox1.Text *TextBox2.Text) / 2
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""TextBox3.Text = ""

End Sub
End Class

CIRCULO

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox2.Text = 3.1416 * TextBox1.Text * TextBox1.Text
End Sub

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

EndSub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""

NOTA DE VENTAPublic Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Int(TextBox1.Text) > (Int(TextBox2.Text)) And(Int(TextBox2.Text) > Int(TextBox3.Text))) Then
TextBox4.Text = TextBox1.Text
TextBox5.Text = TextBox2.Text
TextBox6.Text = TextBox3.Text
End If
If(Int(TextBox1.Text) < (Int(TextBox2.Text)) And Int((TextBox2.Text) < Int(TextBox3.Text))) Then
TextBox4.Text = TextBox3.Text
TextBox5.Text = TextBox2.TextTextBox6.Text = TextBox1.Text
End If
If (Int(TextBox2.Text) > (Int(TextBox1.Text)) And (Int(TextBox1.Text) > Int(TextBox3.Text))) Then
TextBox4.Text =TextBox2.Text
TextBox5.Text = TextBox1.Text
TextBox6.Text = TextBox3.Text
End If
If (Int(TextBox2.Text) > (Int(TextBox3.Text)) And (Int(TextBox3.Text) >...