HOLA!!!
Este es el primer Reto que creo, no es muy dificil, pero para pasar el rato va.
Bueno, el Reto consiste en:
Crear una funcion con esta estructura
Private Function Cuenta_Circular7913(N&, M() As Integer, TIPO As Boolean)
En la variable N no aceptara numeros que no sean pares o mayores a 180 o menores a 2.
La funcion devuelva estas matrices:
Cuenta_Circular7913(2, Matriz, Verdadero) :
7 1 9
4 0 2
1 3 3
Cuenta_Circular7913(4, Matriz, Verdadero) :
7 1 2 3 9
12 7 13 9 4
11 16 0 14 5
10 1 15 3 6
1 9 8 7 3
Cuenta_Circular7913(6, Matriz, Verdadero) :
7 1 2 3 4 5 9
20 7 21 22 23 9 6
19 32 7 33 9 24 7
18 31 36 0 34 25 8
17 30 1 35 3 26 9
16 1 29 28 27 3 10
1 15 14 13 12 11 3
Cuenta_Circular7913(8, Matriz, Verdadero) :
7 1 2 3 4 5 6 7 9
28 7 29 30 31 32 33 9 8
27 48 7 49 50 51 9 34 9
26 47 60 7 61 9 52 35 10
25 46 59 64 0 62 53 36 11
24 45 58 1 63 3 54 37 12
23 44 1 57 56 55 3 38 13
22 1 43 42 41 40 39 3 14
1 21 20 19 18 17 16 15 3
Cuenta_Circular7913(2, Matriz, Falso) :
7 1 9
4 0 2
1 3 3
Cuenta_Circular7913(4, Matriz, Falso) :
7 1 2 3 9
15 7 4 9 5
14 16 0 8 6
13 1 12 3 7
1 11 10 9 3
Cuenta_Circular7913(6, Matriz, Falso) :
7 1 2 3 4 5 9
32 7 6 7 8 9 10
31 35 7 9 9 15 11
30 34 36 0 18 16 12
29 33 1 27 3 17 13
28 1 26 25 24 3 14
1 23 22 21 20 19 3
Cuenta_Circular7913(8, Matriz, Falso) :
7 1 2 3 4 5 6 7 9
55 7 8 9 10 11 12 9 17
54 60 7 13 14 15 9 24 18
53 59 63 7 16 9 29 25 19
52 58 62 64 0 32 30 26 20
51 57 61 1 48 3 31 27 21
50 56 1 47 46 45 3 28 22
49 1 44 43 42 41 40 3 23
1 39 38 37 36 35 34 33 3
GRACIAS POR LEER:
Mostrar Mensajes
.
Muy gracioso Mr. Frog... Igual ya funciona con decimales, medio rustico pero funciona 
.