Genere aleatoriamente 8 números del 12 al 20 y encuentre su suma factorial. Escriba el código de programación VB.

Agregue dos botones y un texto (el último decimal del resultado calculado se redondea, el número calculado es realmente grande 0

Subcomando privado1_Click()

Atenuar a como doble

Atenuar b como entero

Para j = 1 a 8

a = 1

Aleatorio

b = Int((8 * Rnd) 12)

Imprimir "El número de" amp; j amp "es" b

Para i = 12 Para b

a = a * i

Si i = 12 Entonces

a = a / 1000

Finalizar si

Siguiente i

Texto1.Texto = Val(Texto1.Texto a)

Siguiente j

Texto1.Texto = Val(Texto1. Texto * 39916.8) amp; "x 10 a la sexta potencia""

End Sub

Private Sub Command2_Click()

Text1.Text = 0 'Borrar

Fin del subtítulo