Red de conocimiento informático - Problemas con los teléfonos móviles - La programación Vb utiliza una función aleatoria para generar una matriz de números enteros con 6 filas y 6 columnas.

La programación Vb utiliza una función aleatoria para generar una matriz de números enteros con 6 filas y 6 columnas.

privado

submarino

Form_Load()

dim

x,

y,

p>

n,

l

como

entero

tenue

max( 1

a

6),

númmáx(1

a

6)

Como

Entero

Dim

ranum(1

a

6,

p>

1

a

6)

como

entero

i. Retiro automático

=

Real

Imprimir

"=============== == ================"

Hacer irregular

a

x

=

1

a

seis

es

y

=

1

a

seis

ranum(x,

y)

=

Int((100

-

1

1)

*

Rnd

1)

Imprimir

ranum(x,

p>

y);

si

max(x)

lt

ranum(x,

y)

Entonces

max(x)

=

ranum(x,

y)

Cantidad máxima (x)

=

y

Fin

Si

p>

Entonces

y

Imprimir

vbCrLf;

Entonces

x

Vuelva a ingresar:

n

=

Val(InputBox("Ingrese qué línea"))

Si

n

lt

o

n

gt

p>

Luego

Diálogo

("El valor debe ser mayor que 0 y menor que 7"):

Ir a

Reingresar

En

Error

Ir a

Reingresar

Imprimir

"================================"

Imprimir

"El número de líneas que seleccionó es:"

amp

n

Imprimir

Este comportamiento: "

durante

y

=

1

a

seis

Imprimir

ranum(n,

y);

Entonces

y

Imprimir

vbCrLf

amp

"La columna con el valor más grande en esta fila es:"

amp

Número máximo

p>

Fin

Submarino