Ejercicio: Calcula la suma y la media de cuatro número enteros

Public Class frmSumaMedia

    Dim i As Integer
    Dim Suma As Integer
    Dim media As Single
    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

        With nudNumero
            Suma += .Value
            .Value = 0
            .Focus()
        End With
        If i < 4 Then
            i += 1
            lblNumero.Text = "Numero " & i
        Else
            media = Suma / 4

            lblResultado.Text = "El resultado de la suma es " & Suma _
                & " la media es " & media
        End If
    End Sub

    Private Sub frmSumaMedia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = 1
        lblNumero.Text = "Numero " & i
        Suma = 0
    End Sub
End Class