Red de conocimiento informático - Problemas con los teléfonos móviles - Pregunta de programación de VB: utilice una matriz bidimensional para generar 6 filas y 6 columnas de números, las columnas impares son 0 y los números restantes son aleatorios (1-100). . ¿Cómo maquillarlo?

Pregunta de programación de VB: utilice una matriz bidimensional para generar 6 filas y 6 columnas de números, las columnas impares son 0 y los números restantes son aleatorios (1-100). . ¿Cómo maquillarlo?

Código muy simple

Dim a(6, 6) As Integer

For s = 0 To 5 'Debido a que se generan 6 grupos, 0 a 5 es bien para s1 = 0 a 5

Si s1 = 0 o s1 = 2 o s1 = 4 entonces

a(s, s1) = 0

De lo contrario

a(s, s1) = Rnd * 100

Finalizar si

Imprimir a(s, s1)

Siguiente

Siguiente

Método 2: Escribe el mismo significado de una manera más sencilla

Atenuar a(6, 6)

Para s = 0 A 5

Para s1 = 0 a 5

Seleccione el caso s1

Caso 0, 2, 4

a(s, s1) = 0

Caso Else

a(s, s1) = Rnd * 100

Fin de Selección

Imprimir a(s, s1) )

Siguiente

print Chr(13)'Para facilitar la lectura, cuando se completa una línea, el carácter de nueva línea se genera en una nueva línea

Siguiente