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