Задания по Visual Basic 6.0 - VB

Формулировка задачи:

Привет, помогите пожалуйста!!! Мне нужно решить задачку по VB, всего одну. Тема: "Условные переходы. Одномерные массивы". Вот задача: Даны целые числа a, b, c. Если a<b<c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

Решение задачи: «Задания по Visual Basic 6.0»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Комманда1_Click()
 
Dim a As Integer
Dim b As Integer
Dim c As Integer
 
a = Текст1.Text
b = Текст2.Text
c = Текст3.Text
 
Метка1.Caption = -a
Метка2.Caption = -b
Метка3.Caption = -c
 
If a < b And b < c Then
Метка1.Caption = a ^ 2
Метка2.Caption = b ^ 2
Метка3.Caption = c ^ 2
End If
 
If a > b And b > c Then
Метка1.Caption = a
Метка2.Caption = a
Метка3.Caption = a
End If
 
End Sub
                        