Tutoriales de Visual Basic

Promedio por sex en visual
Introducción

Programita que genera aleatoriamente calificaciones de estudiantes y su sexo, obtiene el promedio de los alumnos por sexo (promedio de hombres y de mujeres).

Primero al creamos un formulario, en el agregamos dos botones, dos etiquetas y tres cajas de texto, una de ellas la aremos multilínea y con ScrollBars vertical.
En el botón borrar agregamos el siguiente código.



Private sub cmdborrar_Click()
    Text2.Text = ""
    Text1.Text = ""
    Text3.Text = ""
end sub


Y en el botón generar agregamos lo siguiente para generar los números.



Private sub cmdgenerar_Click()
    Text2.Text = ""
    con1 = 0
    con2 = 0
    i = 1
    While (i < 30)
        rsex = Int((2 * Rnd) + 1)
        rcal = Int((10 * Rnd) + 1)
        if rsex = 1 Then
            con1 = con1 + 1
            sum1 = sum1 + rcal
        else
            if rsex = 2 Then
                con2 = con2 + 1
                sum2 = sum2 + rcal
            end If
        end If
        i = i + 1
        Text2.Text = Text2.Text & i & ".-   " & rcal & " -- " & rsex & vbCrLf
    Wend
    Text1.Text = sum1 / con1
    Text3.Text = sum2 / con2
end sub


Autor: Gamaliel M. DescargarDescargar

Comentarios en "Promedio por sex en visual"

Table 'programa_programas.t_comentarios' doesn't exist