Como actuan los Algoritmos logicos
Enviado por megamaniaco • 3 de Agosto de 2017 • Prácticas o problemas • 1.121 Palabras (5 Páginas) • 245 Visitas
Module prueba
Sub pintar_escenario(ByVal g As String, ByVal oc As Integer)
Dim posx As String = 0
Dim pos, oas, ros As Integer
pos1 = 0
pos2 = tablero(1) - 1
Select Case ejemplo_Case
Case "d"
ejemplo_Case = 10
Console.WriteLine(ejemplo_Case)
If 5+3 = 3 Then
For n As Integer = 0 To 5 Step -2
Console.WriteLine("Prueba de Case con if y for")
Next
End If
Case "B"
ejemplo_Case = "Rola"
jfjf = id
Console.WriteLine(id)
Console.ReadLine()
Case 2
Console.WriteLine(":")
Console.WriteLine(":")
Console.WriteLine(":")
Console.WriteLine(":")
Console.WriteLine(":")
Case Else
Console.WriteLine("FUNCIONE")
Console.WriteLine("FUNCIONE")
Console.WriteLine("FUNCIONE")
Console.WriteLine("FUNCIONE")
Console.WriteLine("FUNCIONE")
End Select
For q As Integer = 0 To
...