Tutoriales de Visual Basic

Promedio random en visual
Introducción

Para comprender el funcionamiento del random, ve este programita que genera 50 números aleatorios y obtiene el promedio de ellos.

En el botón borrar agrega lo siguiente.



Private sub cmdBorrar_Click()
    txtNumeros.Text = ""
    txtPromedio.Text = ""
end sub


En el botón generar introduce esto.



Private sub cmdGenerar_Click()
    txtNumeros.Text = ""
        suma = 0
        For i = 1 To 50
            valor = Int((1000 * Rnd) + 1)
            suma = suma + valor
            txtNumeros.Text = txtNumeros.Text & i & ".-  " & valor & vbCrLf
        Next
        txtPromedio.Text = suma / (i - 1)
end sub


Y por último en el botón salir solo agrega esto y listo.



Private sub cmdSalir_Click()
    End
end sub


Autor: Gamaliel M. DescargarDescargar

Comentarios en "Promedio random en visual"

Table 'programa_programas.t_comentarios' doesn't exist