Red de conocimiento informático - Problemas con los teléfonos móviles - 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?

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