End Sub. 8. Аналогично напишите обработчики события Click для остальных кнопок:
8. Аналогично напишите обработчики события Click для остальных кнопок:
Private Sub Command2_Click() 'щелчок по кнопке "-"
x = Val(Text1.Text)
y = Val(Text2.Text)
b = x - y
Label5.Caption = Str(b)
End Sub
Private Sub Command3_Click() 'щелчок по кнопке "*"
x = Val(Text1.Text)
y = Val(Text2.Text)
b = x * y
Label6.Caption = Str(b)
End Sub
Private Sub Command4_Click() 'щелчок по кнопке "/"
x = Val(Text1.Text)
y = Val(Text2.Text)
b = x / y
Label7.Caption = Str(b)
End Sub
Private Sub Command5_Click() 'щелчок по кнопке "\"
x = Val(Text1.Text)
y = Val(Text2.Text)
a = x \ y
Label8.Caption = Str(a)
End Sub
Private Sub Command6_Click() 'щелчок по кнопке "Mod"
x = Val(Text1.Text)
y = Val(Text2.Text)
a = x Mody
Label9.Caption = Str(a)
End Sub
Private Sub Command7_Click() 'щелчок по кнопке "^"
x = Val(Text1.Text)
y = Val(Text2.Text)
b = x ^ y
Label10.Caption = Str(b)
End Sub
Private Sub Command8_Click() 'щелчок по кнопке "Abs"
z = Val(Text3.Text)
b = Abs(z)
Label11.Caption = Str(b)
End Sub
Private Sub Command9_Click() 'щелчок по кнопке "Atn"
z = Val(Text3.Text)
b = Atn(z)
Label12.Caption = Str(b)
End Sub
Private Sub Command10_Click() 'щелчок по кнопке "Sin"
z = Val(Text3.Text) 'будем считать, что введено число в градусах
b = Sin((z * Atn(1) * 4) / 180) 'переводим исходное число Z в радианы и вычисляем синус данного угла
Label13.Caption = Str(b)
Дата добавления: 2015-06-12; просмотров: 779;