.


:




:

































 

 

 

 





1

Visual Basic

1. .

2. Visual Basic .

3. Visual Basic.

1. .

2. Visual Basic.

3. : Form, Label, TextBox CommandButton.

4. .

5. :

6. () , (), .

7. Form1: Standart.exe .

8. : Name frmLab1.

9. : Caption " 1.

10. Label: / . , .

11. Label: Name lblZagolovok

12. Label: Caption 1 ... ..

13. Label: / . , - 1 .

14. Label: Name lblRezultat.

15. Label: Caption

16. TextBox: / . , , 1 .

17. TextBox: Name txtRezultat.

18. TextBox: Text.

19. CommandButton: / . 1 .

20. CommandButton: Name cmdStart.

21. : Caption .

22. CommandButton: / . 1 .

23. CommandButton: Name cmdEnd.

24. : Caption .

25. . .

26. .

27. .

28. .

29. , .

 

 

1. .

2. Visual Basic.

3. .

4. -

5. .

 


Y=F(x)
  ; ; x=1.52; c=5
  ; ; x=5.3; k=3
  ; ; x=2.5; b=7
  ; ; x=1.7;t=3
  ; ; ; x=2.1; p=2
  ; ; x=4; a=3.7
  ; ; x=11; b=12.5
  x=10.9; t=2
  t=4.1; p=3
  m=2; x=1.1
  k=7.2; x=5
  b=3; c=1.7
  t=2.2; b=3
  x=11;p=2.6
  N=9.1; b=3
  t=3.8; p=2
  b=3; x=5.2
  k=2; m=1.8
  x=5; t=1.8
  a=2; p=2.6
  b=7; x=2
  q=2; b=1.8
  x=2.9; a=-0.9
  b=7.1; t=2
  t=-3; a=8.8
  t=2; b=1.8
  a=7; b=2.3
  x=3; n=-1.9
  a=-4; p=3
  b=2; k=1.8

 


4. :

1 Visual Basic   1- 1111 .. 05.09.14 2014

2

; x = 3456.78× 10-6; d = - 0.81; i = 0.333 Option Explicit   Private Sub Command1_Click() On Error GoTo errorh   Me.CommonDialog1.Filter = "*(*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico)|*.bmp;*.jpg;*.gif;*.wmf;*.cur;*.ico" Me.CommonDialog1.FilterIndex = 0 Me.CommonDialog1.ShowOpen Command2.SetFocus Exit Sub errorh: If Err.Number = 32755 Then Exit Sub End Sub Private Sub Command3_Click() End End Sub

 

-

 

2

1. .

2. Visual Basic .

3. - , InputBox () MsgBox ().

4. Val () Str ().

5. - .

6. Visual Basic.

1. .

2. Visual Basic.

3. : Form, Label, TextBox CommandButton.

4. InputBox (...) MsgBox ().

5. .

6. , 1.

7. :

8. InputBox (...):

9. MsgBox () , :

 

 

 

1. .

2. Visual Basic.

3. , .

4. .

5. - .


           
           
         
           
           
           
           
           
           
           

 


3





:


: 2016-03-27; !; : 583 |


:

:

: , , , , .
==> ...

1728 - | 1565 -


© 2015-2024 lektsii.org - -

: 0.028 .