Написать программу, которая будет принимать числа от пользователя до тех пор пока не будет введен ноль. После того как пользователь ввел все числа она должна вывести сумму всех введенных чисел и произведение, возведенное в квадрат.
Dim a, b, C As Single
'c -это произведение
'b- это сумма
b = 0
C = 1
For i = 1 To 10000
Console.Write("введите a= ")
a = Console.ReadLine
If a > 0 And a < 0 Then
b = b + a
C = C * a
Else
b = b ^ 2
C = C ^ 2
End If
Next
Console.WriteLine("b=" & b & "с=" & C)
Console.ReadLine()
Что не так?Не могу понять.Помогите пожалуйста!