Utilice VB para crear "diez números (enteros entre 1 y 100) generados aleatoriamente para encontrar valores extremos (valores máximos y mínimos) y valores promedio"

Código:

Dim max, min como entero

Dim prom como doble

Subcomando privado1_Click()

Dim num(10) Como entero

Text1.Text = ""

Label4.Caption = ""

Label5.Caption = "" p>

Label6.Caption = ""

Dim i, j, temp, suma como entero

suma = 0

Para i = 1 a 10

núm(i) = Int(Rnd * (100 1))

suma = suma núm(i)

Texto1.Texto = Texto1 .Text amp; num(i) amp; Espacio(4)

Siguiente i

Para i = 1 a 10

Para j = 1 a 10 - i

Si num(j) lt; num(j 1) Entonces

temp = num(j)

num(j) = num(j 1 )

num(j 1) = temp

Fin si

Siguiente j

Siguiente i

max = num (1)

min = num(10)

promedio = suma * 1# / 10

Fin Sub

Privado Sub Command2_Click ()

Si Text1.Text = "" Entonces

MsgBox "¡Sin matriz, no se puede calcular!"

De lo contrario

Etiqueta4.Caption = max

Etiqueta5.Caption = min

Etiqueta6.Caption = avg

Fin si

Fin Sub

Formulario diseñado:

Formulario de ejecución del programa: