Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de programación VB: 20 ​​enteros positivos aleatorios forman un círculo, encuentra la suma máxima de cada cuatro números adyacentes e indica cuáles son los cuatro números adyacentes.

Problema de programación VB: 20 ​​enteros positivos aleatorios forman un círculo, encuentra la suma máxima de cada cuatro números adyacentes e indica cuáles son los cuatro números adyacentes.

'Esto significa 20 números unidos de un extremo a otro para formar un "círculo". A partir del primer número, suma 4 números a la vez. Encuentra los 4 números con la suma más grande.

' 1 2 3 4 5 6

' 20 7

' 19 8

' 18 9

' 17 10

' 16 15 14 13 12 11

Subformulario privado_click()

Dim i%, n%, a%(19), max%, st$, temp$., max%, st$, temp%

Me.Cls

Para i = 0 a 19

a( i) = Int(90 * Rnd + 10) '20 enteros positivos aleatorios de dos dígitos

Imprimir a(i 'Imprimir en el formulario

Siguiente i

Imprimir

Para i = 0 a 19

'mod 20 hace que el subíndice de la matriz cicle entre [0-19]. Realice conexiones de extremo a extremo.

temp = a(i) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20) 'Encuentra cuatro Suma de números adyacentes

Print Str(a(i)); " + "; Str(a((i + 1) Mod 20); " + "; Str(a((i + 2 ) Mod 20); _

" + "; Str(a((i + 3) Mod 20); " = "; temp 'Imprimir en la tabla

Si max < temp Entonces max = temp: n = i 'Compara el tamaño, asigna el máximo, n

siguiente i

Imprimir "El máximo es."; /p>

Imprimir " El número es :"; a(n + 1) Mod 20); a((n + 2) Mod 20);

End Sub

Sub privado Form_Load( )

Me.AutoRedraw = True

Me.WindowState = 2

Aleatorizar

Llamar a form_click

Finalizar sub

上篇: Ejemplos de precios de fabricante del termómetro VC230, instrucciones de uso 下篇: ¿Cuáles son las características de la máquina de curado con luz UV?

Artículos populares