visual basic 12 de septiembre

Public Class Form1
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n1, n2, n3, ef, t, nf As Double
n1 = TextBox2.Text
n2 = TextBox3.Text
n3 = TextBox4.Text
ef = TextBox5.Text
t = TextBox6.Text
nf = ((n1 + n2 + n3) / 3 * 0.55 + ef * 0.3 + t * 0.15)
TextBox7.Text = nf
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class