Como actuan los Algoritmos logicos
megamaniacoPráctica o problema3 de Agosto de 2017
1.121 Palabras (5 Páginas)309 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 10
Console.WriteLine("Hola mundo**")
pos1 = pos1 + 1
For r As Integer = 0 To cont
Console.ReadLine()
Console.ReadLine()
Console.ReadLine()
Console.ReadLine()
Console.ReadLine()
Next
Next
While true
Private h As Boolean
Static y As Long = 6
Console.WriteLine(y)
Exit While
End While
For i As Integer = 0 To 5
FillRectangle(Brushes, posx , posy , 8, 8)
posx = posx + 1
If posx = tablero(0) Then
posx = 0
posy = posy
ElseIf f < 4 Then
hola = 4
ElseIf i > 4 Then
loco = "String"
Chavo = 4 + "String" + HULUSMundus
End If
Next
End Sub
Sub g()
End Sub
Function hola2() As String
Return ""
End Function
End Module
...