Implementación de programación VB: durante la ejecución, haga clic en el primer botón para generar un número entero aleatorio entre 50?
Atenuar a(1 a 50) como entero
Subcomando privado1_Click() Aleatorizar para i = 1 a 50
a(i) = Int(Rnd * 50) + 1
Texto1 = Texto1 & a(i) & " "
Si i Mod 10 = 0 Entonces Texto1 = Texto1 & vbCrLf Siguiente i Texto2 = Max
End Sub
Private Sub Command2_Click() Para i = 1 a 50
Si i = 1 Entonces Max = a(1)
Si a(i) > Max Entonces Max = a(i) Siguiente i Texto2 = Max
Fin Sub
Sub privado Form_Load() Texto1 = "" Texto2 = ""
Fin del subtítulo