HOLA

CODIGOS
1-Realizar un programa, donde se identifique si un número es positivo o negativo.
Imports System.Console
Module Module1
Sub Main()
Dim cantidad AsDouble = 0
WriteLine("Ingrese un numero")
cantidad = ReadLine()
If cantidad = 0 Then
WriteLine("Tu numero es neutro")
End If
If cantidad > 0Then
WriteLine("Tu numero es positivo")
End If
If cantidad < 0 Then
WriteLine("Tu numero es negativo")
End If
ReadLine()
End Sub
EndModule





2-Realizar un programa que a partir de una edad, ingresada desde teclado por el usuario, indique sí el usuario es apto para votar o no es apto.

Imports System.Console
ModuleModule1
Sub Main()
Dim edad As Integer = 0
WriteLine("Cual es tu edad")
edad = ReadLine()
If edad >= 18 Then
WriteLine("Eres apto para votar")End If
If edad < 18 Then
WriteLine("No eres apto para votar")
End If
ReadLine()
End Sub
End Module








3.-Aprobo o no aprobo lamateria
Imports System.Console
Module Module1
Sub Main()
Do
Clear()
Dim operacion As String
Dim calificacion As DoubleWriteLine("***************************************************************")
WriteLine("* Descubra si usted aprobo una materia o no *")WriteLine("***************************************************************")
WriteLine("Introdusca la calificacion por favor")
calificacion = ReadLine()
If calificacion >= 70 ThenWriteLine("Usted aprobo la materia")
ReadLine()
Else
WriteLine("Usted no aprobo la materia")
ReadLine()
End If...