Visual Basic

DANIEL CHE JIMENEZ 4 “C”
Elaborar sistemas de información mediante un lenguaje de programación visualPublic Class Form1

Private Property CalificacionAlumnos As Object

Private Property cantidad As Object

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
ListBox2.Items.Add(TextBox2.Text)
TextBox2.Text =""
ListBox3.Items.Add(TextBox3.Text)
TextBox3.Text = ""
ListBox4.Items.Add(TextBox4.Text)
TextBox4.Text = ""


End Sub

Private SubButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()ListBox4.Items.Clear()
ListBox5.Items.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Promedio AsDouble
Dim Matematicas As Double
Dim Programacion As Double
Dim Lectura As Double

Programacion = Val(TextBox7.Text)
Lectura = Val(TextBox8.Text)Matematicas = Val(TextBox6.Text)
Promedio = (Matematicas + Programacion + Lectura) / 3

ListBox6.Items.Add(TextBox5.Text)
TextBox5.Text = ""ListBox7.Items.Add(TextBox6.Text)
TextBox6.Text = ""
ListBox8.Items.Add(TextBox7.Text)
TextBox7.Text = ""
ListBox9.Items.Add(TextBox8.Text)
TextBox8.Text = ""ListBox10.Items.Add(Promedio)

CalificacionAlumnos = (Promedio + CalificacionAlumnos())
Label22.Text = CalificacionAlumnos

End Sub

Private Function CaificacionAlumnos() As...