Практическая работа по информатике на тему"Выполнение вычислений с использованием элементов управления: Label, TextBox, CommandButton, OptionButton и Frame"

Практическая работа №2

Выполнение вычислений с использованием элементов управления:

Label, TextBox, CommandButton, OptionButton  и Frame

1. Создать форму следующего вида:

2. Записать программный код:

Private Sub Command1_Click()

'Присваиваем переменным значения из окон ввода

       a = Text1.Text

       b = Text2.Text     

'Если выбрана первая кнопка, вычисляем целое от деления

    If Option1.Value = True Then  Label1.Caption = a \ b

 'если выбрана вторая кнопка, вычисляем остаток от деления

    If Option2.Value = True Then Label1.Caption =a Mod b

 'если выбрана третья кнопка, возводим первую переменную в степень, равную второй

    If Option3.Value = True Then  Label1.Caption = a ^ b

  'если выбрана четвертая кнопка, производим конкатенацию (сцепление) переменных

    If Option4.Value = True Then  Label1.Caption = a & b

End Sub

3. Изменить форму и программный код для выполнения других вычислений.

Private Sub Command1_Click()

    Dim a, b As Integer     

'Объявляем переменные

'Присваиваем значения переменным и конвертируем их в числовой формат

 a = Val(Text1.Text)  

 b = Val(Text2.Text)

    'Если выбрана первая кнопка, складываем переменные

    If Option1.Value = True Then  Label1.Caption = a+ b

   'Если выбрана вторая кнопка, вычитаем переменные

    If Option2.Value = True Then  Label1.Caption = a - b

   'если выбрана третья кнопка, умножаем переменные

    If Option3.Value = True Then  Label1.Caption = a * b

   'если выбрана четвертая кнопка, делим переменные

    If Option4.Value = True Then  Label1.Caption = a / b

End Sub