Instrucciones Repetitivas

1. Sumar y decir cuantos son los números positivos, cuantos los negativos que el usuario ha introducido hasta que teclee el número 0

Sub Main()

Dim num As Double
Dim suma AsDouble
Dim contador1 As Double
Dim contador2 As Double

MsgBox("Bienvenido a este programa que le permite visualizar la suma y la cantidad de numeros ingresados; hasta queel numero ingresado sea cero")

num = InputBox("ingrese un numero")

Do While num <> 0
If num > 0 Then
suma = suma + numcontador1 = contador1 + 1

ElseIf num < 0 Then
contador2 = contador2 + 1
End If

num = InputBox("porfavor ingrese el siguiente numero")Loop

MsgBox("El numero que usted ingreso es cero, el programa terminó")
MsgBox("la suma de los numero positivos que usted ingreso es " & suma & " y los numeroingresados positivos son " & contador)
MsgBox("la cantidad de numeros negativos que usted ingreso son " & contador1)

End Sub

7. Escribir un programa que permita calcular elvalor de la constante Pi por medio del siguiente método:

Pi= 4 * ( 1 – 1/3 + 1/5 – 1/7 + 1/9 – 1/11....)
Sub Main()
Dim numero As Integer
Dim exponente As IntegerDim serie As Double
Dim signo As Double
Dim operacion As Double
Dim sumatoria As Double

MsgBox(" Bienvenidos, este programa calculara el valor de la constante pipor medio de la siguiente serie: 1 – 1/3 + 1/5 – 1/7 + 1/9 – 1/11....")
numero = InputBox("Por favor introduzca el numero del termino que desea ver")
exponente = 2
For i = 1To numero

signo = (-1) ^ exponente
serie = (1 / (2 * i - 1)) * signo
operacion = operacion + serie
exponente = exponente + 1
Next...