La programación Vb utiliza una función aleatoria para generar una matriz de números enteros con 6 filas y 6 columnas.
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
= p>
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