Создайте проект «Арифметический калькулятор» - VB

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

Создайте проект «Арифметический калькулятор». Два числа вводятся в текстовые поля. Реализовать в проекте выполнение четырёх арифметических операций и сброс всех чисел. Результат выводится в текстовое поле. Добавьте 2 кнопки для вычисления n-ой степени числа и его квадратного корня.

Решение задачи: «Создайте проект «Арифметический калькулятор»»

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

                            Private Sub Command1_Click () ‘Сложение 
Text3.Text=Val (Text1.Text) + Val (Text2.Text) 
End Sub 
 
Private Sub Command2_Click ()    ‘Вычитание 
Text3.Text=Val (Text1.Text) – Val (Text2.Text) 
End Sub 
 
Private Sub Command3_Click () ‘Умножение 
Text3.Text=Val (Text1.Text) * Val (Text2.Text) 
End Sub 
 
Private Sub Command4_Click () ‘Деление 
If Text2.Text =”” Then MsgBox “Деление на ноль” 
If Text2.Text = 0 Then MsgBox “Деление на ноль” 
If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text) 
If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text) 
End Sub 
 
Private Sub Command5_Click ()    ‘Выход 
End 
End Sub
                        