Macros De Visual Studio

DESARROLLO

1)- Elabore un programa que lea dos números, si los dos números son positivos calcule su producto, en caso contrario calcule su suma.


Module Module1

Sub Main()Dim A, B, P As Integer
Console.Write("INGRESE NUMERO 1:")
A = Console.ReadLine
Console.Write("INGRESE NUMERO 2:")
B = Console.ReadLine
If A > -1 And B> -1 Then
P = A * B
Else
P = A + B
End If
Console.WriteLine("EL RESULTADO ES :{0}", P)
Console.ReadLine()
End Sub

End Module2)- Elabore un programa que resuelva una ecuación de primer grado, teniendo en cuenta que debe de ingresar un coeficiente (a) y un término independiente (b). x=-b/a.

Module Module1Sub Main()
Dim A, B As Integer
Dim X As Double
Console.Write("INGRESE NUMERO A:")
A = Console.ReadLine
Console.Write("INGRESE NUMERO B:")
B =Console.ReadLine
X = -B / A
Console.WriteLine("X ES IGUAL A:{0}", X)
Console.ReadLine()
End Sub

End Module

3)-Elaborar un programa, que lea un valor “x” yencuentre el valor numérico de la siguiente expresión: Y=(X-3)(X2-25).

Module Module1

Sub Main()
Dim X As Integer
Dim Y As Double
Console.Write("INGRESE UN NUMERO:")X = Console.ReadLine
Y = (X - 3) / (Math.Pow(X, 2) - 25)
Console.WriteLine("Y ES IGUAL A:{0}", Y)
Console.ReadLine()
End Sub

End Module

4)-Elaborar unprograma, que lea 3 números e indique cual es el mayor.

Module Module1

Sub Main()
Dim A, B, C As Integer
Dim M As String
Console.Write("INGRESE NUMERO 1:")
A =Console.ReadLine
Console.Write("INGRESE NUMERO 2:")
B = Console.ReadLine
Console.Write("INGRESE NUMERO 3:")
C = Console.ReadLine
If A > B And A >...