Usa la programación vb para encontrar el valor máximo de cinco números

Sub? prueba()

¿Atenuado? arrNum(4,4)?como? ¿Entero? Definir una matriz de 5*5

¿Dim? Máx. ¿Definir máximo

Dim? suma1,? "Sum2" define la suma de los ángulos de inclinación positivos y negativos.

Generar una matriz bidimensional de 5*5

¿Para qué? ¿I? =?0?¿Adónde ir? Cuatro

¿Para qué? j? =?0?¿Adónde ir? Cuatro

arrNum(i, j)? =?Rnd()? *?' 100 'Generar un número aleatorio entre 1 y 100.

¿Siguiente? j

¿Siguiente? I

Encuentra el valor máximo de la matriz

Max. =?arrNum(0,0)

¿Para qué? ¿I? =?0?¿Adónde ir? Cuatro

¿Para qué? j? =?0?¿Adónde ir? Cuatro

¿Y si? númeroarr(i, j)? ¿gt? Máx. ¿Entonces qué? Máx. =?arrNum(i,j)? Siempre que el elemento actual sea mayor que max, se guarda en max.

¿Siguiente? j

¿Siguiente?

Encuentro la suma de las diagonales

¿con qué propósito? ¿I? =?0?¿Adónde ir? ¿Cuatro

suma1? =?suma1? ?arrNum(i,i)

suma2? =?suma2? ?arrNum(i,4?-?i)

¿Siguiente? ¿Mis

resultados de salida

están oscuros? arStr? maxStr,? suma1Str,? suma2Str? ¿Como? Línea

arrStr? =?¿Los elementos de la matriz son los siguientes? ¿amperio? Chr(10)? ¿amperio? Centro de Derechos Humanos (13)

¿Para qué? ¿I? =?0?¿Adónde ir? Cuatro

¿Para qué? j? =?0?¿Adónde ir? Cuatro

arrStr? =?arrStr? ¿amperio? númeroarr(i,j)? ¿amperio? "?"

¿Siguiente? j

arrStr? =?arrStr? ¿amperio? Chr(10)? ¿amperio? Centro de Derechos Humanos (13)

¿Siguiente? Yo

maxStr? =?"El valor máximo de la matriz es:?"? ¿amperio? Máx. ¿amperio? Chr(10)? ¿amperio? Centro de Derechos Humanos (13)

sum1Str? =?"La suma de los elementos de la diagonal es:?"? ¿amperio? suma1? ¿amperio? Chr(10)? ¿amperio? Centro de Derechos Humanos (13)

sum2Str? =?"La suma de los elementos de la barra invertida es:?"? ¿amperio? suma2? ¿amperio? Chr(10)? ¿amperio? Centro de Derechos Humanos(13)

MsgBox? arrStr? ¿amperio? maxStr? ¿amperio? suma1Str? ¿amperio? sum2Str

¿Fin? Submarino