amation + vbOKOnly, ERROR )=Log (h) If n! =1=hi2=1 To no2 =W * i2 exp =Exp (h) sqrt =Sqr (h) ctg =Cos (h)/Sin (h) Select.Caption=WSubSub exit_Click () MeSubSub copy_Click (). Clear. SetText text1.CaptionSubSub cut_Click (). Clear.SetText text1.Caption.Caption= SubSub eexit_Click () MeSubSub paste_Click (). Caption= .Caption=Clipboard.GetText () SubSub eselectall_Click (). Clear.SetText text1.CaptionSubSub Form_KeyPress (KeyAscii As Integer) KeyAscii=Asc (. ) Then=10_Click (i) KeyAscii=Asc ( 0 ) Then=0_Click (i) KeyAscii=Asc ( 1 ) Then=1_Click (i) KeyAscii=Asc ( 2 ) Then=2_Click (i) KeyAscii=Asc ( 3 ) Then=3_Click (i) KeyAscii=Asc ( 4 ) Then=4_Click ( i) KeyAscii=Asc ( 5 ) Then=5_Click (i) KeyAscii=Asc ( 6 ) Then=6_Click (i) KeyAscii=Asc ( 7 ) Then=7_Click (i) KeyAscii=Asc ( 8 ) Then=8_Click (i) KeyAscii=Asc ( 9 ) Then=9_Click (i) KeyAscii=Asc ( 0 ) Then=0_Click (i) KeyAscii=Asc ( + raquo ;) Then=0_Click (i) KeyAscii=Asc ( + ) Then=0_Click (i) KeyAscii=Asc ( - ) Then=1_Click (i) KeyAscii=Asc (/) Then=2_Click (i) KeyAscii=Asc ( * ) Then=3_Click (i) KeyAscii=Asc (=) Then=4_Click (i) KeyAscii=Asc ( c ) Or KeyAscii= Asc ( C ) Then=0=0=0=0=0.Caption= 0 KeyAscii=Asc ( d ) Or KeyAscii=Asc ( D ) Then.Caption= 0 IfSubSub Form_Load ()=0=0=0=0=0.Clear
інженерний.Hide.Enabled=FalseSubSub tstandart_Click ()
інженерний.Hide
стандартний.ShowSubSub znak_Click (). Caption=-Val (text1.Caption)
End Sub
