Programaci n Visual C digos

Module Module1
Sub Main()
Dim valor As String
Console.WriteLine("Hola mudo")
Console.WriteLine("Escribe algo: ")
valor = Console.ReadLine()
Console.WriteLine("Escribiste: " & valor)
Console.ReadLine()
End Sub
End Module

Module Module1
Sub Main()
Dim radio As Double
Const pi As Double = 3.1416
Dim area AsDouble
Console.WriteLine("Este programa calculara el area de un circulo")
Console.WriteLine("Intoduce el radio: ")
radio = Convert.ToDouble(Console.ReadLine())
area = pi * radio * radio
Console.WriteLine("El area es:" & area)
Console.ReadLine()
End Sub
End Module

Option Strict On
Module Module1
Sub Main()
Dim Vaca = 0, Peña = 0, Canino =0, Chespi = 0, vn = -1, n As Integer
Dim f As Char
Console.WriteLine("Este programa calcula el número de votos para cada candidato, " & vbNewLine & "los muestra y declara al ganador")
Console.ReadLine()
Console.WriteLine(" Vota por uno de los siguientes candidatos:" & vbNewLine)
Console.WriteLine("A)Vaca" & vbNewLine & "B)Peña" & vbNewLine & "C)Canino"& vbNewLine & "D)Chespi" & vbNewLine & "Z)Salir" & vbNewLine)
Console.WriteLine("Introduce tu voto:")
For n = 0 To 1000
f = Convert.ToChar(Console.ReadLine())
Select Case (f)
Case CChar("A"), CChar("a")
Vaca = Vaca + 1
Case CChar("B"), CChar("b")
Peña = Peña + 1
CaseCChar("C"), CChar("c")
Canino = Canino + 1
Case CChar("D"), CChar("d")
Chespi = Chespi + 1
Case CChar("Z"), CChar("z")
n = 1001
Case Else
vn = vn + 1
End Select
Next
Console.WriteLine(" Resultados: ")Console.WriteLine("Recuerda que el voto es secreto")
Console.ReadLine()
Console.WriteLine("Vaca: " & Vaca)
Console.WriteLine("Peña: " & Peña)
Console.WriteLine("Canino: " & Canino)
Console.WriteLine("Chespi: " & Chespi)
Console.WriteLine("Votos nulos: " & vn)
Console.ReadLine()
If Vaca > Peña And Vaca > Canino And Vaca > Chespi ThenConsole.WriteLine("El ganador es Vaca")
ElseIf Peña > Vaca And Peña > Chespi And Peña > Canino Then
Console.WriteLine("El ganador es Peña")
ElseIf Canino > Vaca And Canino > Peña And Canino > Chespi Then
Console.WriteLine("El ganador es Canino")
ElseIf Chespi > Vaca And Chespi > Peña And Chespi > Canino Then
Console.WriteLine("El ganador esChespi")
ElseIf vn > Vaca And vn > Peña And vn > Canino And vn > Chespi Then
Console.WriteLine(" El ganador es: México")
Else
Console.WriteLine(" Empate")
Console.WriteLine(" El ganador es: México")
End If
Console.ReadLine()
End Sub
End Module
­­­­­­­­­­­­­­­­­­­­­­­­­
Module Module1
Sub Main()Dim Vaca = 0, Peña = 0, Canino = 0, Chespi = 0, vn = -1, n As Integer
Dim f As Char
Console.WriteLine("Este programa calcula el número de votos para cada candidato, " & vbNewLine & "los muestra y declara al ganador")
Console.ReadLine()
Console.WriteLine(" Vota por uno de los siguientes candidatos:" & vbNewLine)
Console.WriteLine("A)Vaca" & vbNewLine& "B)Peña" & vbNewLine & "C)Canino" & vbNewLine & "D)Chespi" & vbNewLine & "Z)Salir" & vbNewLine)
Console.WriteLine("Introduce tu voto:")
Do
f = Convert.ToChar(Console.ReadLine())
Select Case (f)
Case CChar("A"), CChar("a")
Vaca = Vaca + 1
Case CChar("B"), CChar("b")
Peña = Peña + 1...