Problemas De Visual Basic

ANEXOS

1.-Escribir un programa que lea un número entero desde teclado y realiza la suma de los 100 número siguientes, mostrando el resultado en pantalla
Module Module1
Sub Main()
Dim s, d As Integer
Dim suma As String
suma = 0
Console.WriteLine("Dame un numero")
s = Console.ReadLine
For d = 1 To 100
suma = suma + (s + d)Next d
Console.WriteLine("La sumatoria de 1-100 es de {0}", suma)
Console.ReadLine()
End Sub
End Module

2.-Realizar un programa para determinar qué número es mayor y menor de los tres números que le son enviados utilizando una función
Module Module1

Sub Main()
Dim a, b, c As Integer
Console.WriteLine("dato1")
a =Console.ReadLine
Console.WriteLine("dato2")
b = Console.ReadLine
Console.WriteLine("dato3")
c = Console.ReadLine
mayor(a, b, c)
menor(a, b, c)
Console.ReadLine()
End Sub
Public Function mayor(ByVal x, ByVal y, ByVal z) As Integer
If x > y And x > z Then
Console.WriteLine("El numero {0} es mayor", x)Else
If y > z And y > x Then
Console.WriteLine("El numero {0} es mayor", y)
Else
Console.WriteLine("El numero {0} es mayor", z)
End If
End If
End Function
Public Function menor(ByVal x, ByVal y, ByVal z) As Integer
If x < y And x < z Then
Console.WriteLine("El numero {0} esmenor", x)
Else
If y < z And y < x Then
Console.WriteLine("El numero {0} es menor", y)
Else
Console.WriteLine("El numero {0} es menor", z)
End If
End If
End Function
End Module
4.-Realizar un programa utilizando una función para verificar si una fecha que se halla ingresado es correcta oincorrecta
Module Module1
Sub Main()
Dim mes, dia, año As Integer
Console.WriteLine("Escribe la fecha en numeros")
Console.WriteLine("escribe el dia ")
dia = Console.ReadLine
If dia <> 0 And dia <= 31 Then
Console.WriteLine("el dia es correcto")
Else
Console.WriteLine("el dia no existe")

End IfConsole.WriteLine("escribe el mes ")
mes = Console.ReadLine
If mes > 0 And mes <= 12 Then
Console.WriteLine("el mes de es correcto")
Else
Console.WriteLine("el mes de no existe")

End If
Console.WriteLine("escribe el año ")
año = Console.ReadLine
If año > 0 And año <= 2013 ThenConsole.WriteLine("el año si es correcto")
Else
Console.WriteLine("Ese año todavia no llega")
End If
Console.ReadLine()
End Sub
End Module

4.-Realizar un programa que solicite dos números, si los dos son mayores que cero halla su producto, en caso contrario halla su suma ’y hace una pregunta sobre si desea continuar con el programa
Module Module1Sub Main()
Dim dato1, dato2 As Long
Dim y As String
Do
Console.WriteLine("Dame 2 numeros")
dato1 = Console.ReadLine
dato2 = Console.ReadLine
If dato1 > 0 And dato2 > 0 Then
Console.WriteLine("el producto es={0}", dato1 * dato2)
Else
Console.WriteLine("la sumaes={0}", dato1 + dato2)
End If
Console.WriteLine("desea seguir el programa. si/no?")
y = Console.ReadLine
Loop While (y = "si")
End Sub
End Module
5.-Diseñar un programa que pida fecha de nacimiento y escriba a que signo zodiacal pertenece
Module Module1
Sub Main()
Dim z As Integer
Dim x As String
Dim...