z = Log(9) / Log(b)
f = 4 * (a + b) ^ (1 / 3) / Abs(c - a)
w = 2 * (Tan(c - 1) ^ 2 + 1) / (a - b)
Private Sub CommandButton1_Click()
Dim a, b, c, z, f, w, y As Double '
Rem
Rem a, b, c ,
Rem Double
Rem
a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
c = CDbl(TextBox3.Text)
Rem
Rem
Rem
z = Log(9) / Log(b)
f = 4 * (a + b) ^ (1 / 3) / Abs(c - a)
w = 2 * (Tan(c - 1) ^ 2 + 1) / (a - b)
y = z + f + w
Rem
Rem z, f, w, y ,
Rem :
Rem
TextBox4.Text = CStr(z)
TextBox5.Text = CStr(f)
TextBox6.Text = CStr(w)
TextBox7.Text = CStr(y)
End Sub
Private Sub CommandButton2_Click()
End
End Sub
, , .
堠
1. ?
2. ?
3. , , ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. ?
10. ?
11. Sqr(x)?
12. Fix(x)?
13. ?
14. , ?
15. ?
16. TextBox1.Text = ?
17. ?
18. ?
19. ?
20. ?
21. ?
22. , ?
23. ?
24. ?
25. ?
26. ?
27. ?
28. ?
29. ?
30. ?
31. ?
|
|
|
32. , ?
|
| ||||
| a | b | c | ||
| 1 | 
| 3 | 5 | π |
| 2 | 
| 2 | π | 6 |
| 3 | 
| 7 | 3 | π |
| 4 | 
| π | 4 | 11 |
| 5 | 
| 10 | π | 5 |
| 6 | 
| 2 | 6 | Π |
| 7 | 
| 0 | -1 | 4 |
| 8 | 
| 5 | 9 | -3 |
| 9 | 
| 8 | 2 | 1 |
| 10 | 
| 5 | 6 | 9 |
| 11 | 
| -3 | 4 | 2 |
| 12 | 
| 1 | 3 | 2 |
| 13 | 
| 2 | π | -1 |
| 14 | 
| 3 | π | 2 |
| 15 | 
| 2 | π | 0 |
| 16 | 
| π | 7 | 3 |
| 17 | 
| -6 | 11 | 2 |
| 18 | 
| 9 | 4 | π |
| 19 | 
| 2 | 4 | π |
| 20 | 
| π | 2 | 3 |
| 21 | 
| π | 2 | 1 |
| 22 | 
| 1 | 5 | π |
| 23 | 
| 2 | π | 8 |
| 24 | 
| 5 | 7 | 2 |
| 25 |  
| 3 | 2 | 0 |
2
, .
