Задачи на VB

[PATEK]

Не могу разобраться с решением задач:

1) Увеличить заданное число "а" на 4, если оно неотрицательное, и уменьшить его на 4 в противном случае.
2) Вычислмть сумму двух заданных чисел, если они оба положительные, и произведение этих чисел, если это не так.
3)Даны числа "а,б,с". Заменить на 0 максимальное из них. Вывести на экран се 3 числа.

Помогите пожайлуста. Горят сроки сдачи в институте

[Maxs]

Сообщение от PATEK

Не могу разобраться с решением задач:

1) Увеличить заданное число "а" на 4, если оно неотрицательное, и уменьшить его на 4 в противном случае.
2) Вычислмть сумму двух заданных чисел, если они оба положительные, и произведение этих чисел, если это не так.
3)Даны числа "а,б,с". Заменить на 0 максимальное из них. Вывести на экран се 3 числа.

Помогите пожайлуста. Горят сроки сдачи в институте

Sub Çàäà÷а1()
Dim a as integer, mes as string
A = InputBox("Ââåäèòå ÷èñëî")
If A > 0 Then
A = A + 4
mes = A
Else
If A < 0 Then
A = A - 4
mes = A
Else
mes = "×èñëî=0"
End If
End If
MsgBox (mes)
End Sub

Sub Çàäà÷а 2()
Dim a, b, c As Integer
a = InputBox("Ââåäèòå ÷èñëî 1")
b = InputBox("Ââåäèòå ÷èñëî 2")
If (a > 0) Or (b > 0) Then
c = a + b
Else
c = a * b
End If
MsgBox (c)
End Sub

Sub Çàäà÷а3()
Dim a(1 To 3), i, max As Integer
For i = 1 To 3
a(i) = InputBox("Ââåäèòå ÷èñëî " + Str(i))
Next i
max = 1
For i = 1 To 3
If a(i) > max Then max = i
Next i
a(max) = 0
For i = 1 To 3
MsgBox (a(i))
Next i
End Sub

PS: Если помог - нажми на весы слева <-