Programa en Visual que calcula el promedio de 5 alumnos y muestra el
resultado
Public Class Form1
Private Sub Label1_Click(sender As [Link], e As [Link]) Handles
[Link]
End Sub
Private Sub Button1_Click(sender As [Link], e As [Link])
Handles [Link]
Dim vec = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
Dim vector(5), j, acum As Integer
For j = 0 To 4
vector(j) = vec(j).Text
Next
For j = 0 To 4
acum = acum + vector(j)
Next
[Link] = acum / 5
End Sub
Private Sub Form1_Load(sender As [Link], e As [Link]) Handles
[Link]
End Sub
End Class