Hola a tod@s
estoy realizando un ejercicio basico del libro que me pide hacer este dibujo con la sentencia for y cout (la cual desconozco porque en el capitulo estudiado no la mencionan y en internet tampoco he encontrado nada de cout en vb.net)
$
$$
$$$
$$$$
$$$$$
$$$$$$
$$$$$$$
$$$$$$$$
$$$$$$$
$$$$$$
$$$$$
$$$$
$$$
$$
$
El caso es que me he vuelto loco probando resolver el ejercicio pero no me sale el resultado deseado, aver si alquien ve el fallo en el codigo por favor:
Dim fila As Integer
For fila = 1 To 10
While fila <= 10
Console.WriteLine("$")
fila += 1
End While
Next
Console.WriteLine("FIN")
Otra manera que he probado:
Dim fila As Integer
For fila = 1 To 10
If fila <= 10 Then
Console.WriteLine("$")
fila += 1
End If
Next
Console.WriteLine("FIN")
Esta parte del codigo es solo para hacer la mitad del dibujo, la otra mitad seria el mismo proceso pero con cuenta atras, por lo cual todavia no he escrito nada de ello.
Cita de: MicroHack en 21 Octubre 2010, 13:45 PM...y en internet tampoco he encontrado nada de cout en vb.net)
Cof, cof...
:http://msdn.microsoft.com/es-es/library/cc485138(VS.71).aspx
Cita de: Shell Root en 21 Octubre 2010, 14:31 PM
Cita de: MicroHack en 21 Octubre 2010, 13:45 PM...y en internet tampoco he encontrado nada de cout en vb.net)
Cof, cof...
:http://msdn.microsoft.com/es-es/library/cc485138(VS.71).aspx
Gracias Shell por contestar pero mi verdadero problema no es buscar la funcion de cout sino como resolver el ejercicio con la sentencia for.
.
Yo en
vB6 lo haría así:
'Vivan las ranas
Option Explicit
' <Procedimiento x>
Const sChar As String = "$"
Dim Q As Long
For Q = 1 To 15
If Q > 8 Then
Debug.Print String$(((15 - Q) + 1), sChar)
Else
Debug.Print String$(Q, sChar)
End If
Next Q
' </Procedimiento x>
Devuelve esto:
Citar$
$$
$$$
$$$$
$$$$$
$$$$$$
$$$$$$$
$$$$$$$$
$$$$$$$
$$$$$$
$$$$$
$$$$
$$$
$$
$
Cabe recordar que esta no es la sección adecuada.
Ir a
la sección de .NET (http://foro.elhacker.net/net-b62.0/)
DoEvents! :P