Электронные таблицы. Салмин А.А. - 121 стр.

UptoLike

ВУЗ: 

ПГУТИ | Самара

Составители: 

Рубрика: 

121
Рис. 6.24. Создание формы для примера 1
Двойной щелчок по кнопке «Вычислить» переведет форму
в редактирование кода.
Private Sub Calc_Click()
Dim a As Single
Dim b As Single
Dim c As Single
1: a = TextBox_a.Value
2: b = TextBox_b.Value
3: c = Sqr(a ^ 2 + b ^ 2)
4: Label1.Caption = "c = " & Str(c)
End Sub 
          Рис. 6.24. Создание формы для примера 1

Двойной щелчок по кнопке «Вычислить» переведет форму
в редактирование кода.

Private Sub Calc_Click()
   Dim a As Single
   Dim b As Single
   Dim c As Single
1: a = TextBox_a.Value
2: b = TextBox_b.Value
3: c = Sqr(a ^ 2 + b ^ 2)
4: Label1.Caption = "c = " & Str(c)
End Sub

                                                    121

Страницы