Indetectables

Código: Seleccionar todo

Public Class Form1
    Dim nota(100) As Double
    Dim a As String
    Dim z As String
    Dim cont As Integer = 1
    Dim reg As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = InputBox("Estas seguro de comenzar si / no")

        If a = "si" Then
            z = "si"
            While z = "si"

                nota(cont) = InputBox("Ingrese la nota del estudiante nº" & cont)
                RichTextBox1.Text = RichTextBox1.Text + CStr(nota(cont)) & vbCrLf
                cont = cont + 1
                z = InputBox("Desea continuar")

            End While

            MsgBox(calcular())
        Else

            MsgBox("no se pudo iniciar el registro")

        End If
    End Sub



    Private Function calcular()
        For i As Integer = 1 To cont
            reg = reg + nota(i)

        Next
        reg = reg / cont

        Return reg

    End Function
End Class