Hola a todo bueno para que agamos algo y sea mas divertido propongo lo siguiente solo con iteraciones....
dado dicha secuencia de numeros 1 15 10 5 0 2 15 10 5 0 3 devemos realizar una iteracion que nos de esa
secuencia...simple pero al que se le valla ocurriendo mas lo vamos haciendo,, espero que tenga futuro el pos ::)
dejo mi primera solucion
'1 15 10 5 0 2 15 10 5 0 3
Dim i As Integer
Dim j As Integer
For i = 1 To 3
Debug.Print i
If i = 3 Then Exit For
For j = 15 To 0 Step -5
Debug.Print j
Next j
Next i
Una forma más matemática y complicada, tarde 30 minutos :laugh:
'1 15 10 5 0 2 15 10 5 0 3
Dim Zero As Byte = 0
Dim _Return As String = ""
Dim _Mod As Byte = 0
For x As Byte = 0 To 15
_Mod = x Mod 5
If _Mod = 0 Then
If Zero > 0 Then
_Return += Zero.ToString & " "
End If
Zero += 1
Else
If Zero > 1 Then
_Return += (20 - (_Mod * 5)) & " "
End If
End If
Next
Console.WriteLine(_Return)
Console.ReadKey()
bn man gracias por hacerlo....esperemos mas user para que hagan su iteracion tmb...