: a=1, b=2.5: 
(), , 
: a=2, b=-3: 
(), , 
-
Private Sub CommandButton1_Click()
Rem
Rem
Rem
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
Rem
Rem IF
Rem
If a ^ 2 < b Then y = 7 * a + 2 * b Else y = Sqr(2 * a) / (Abs(b) + 1)
TextBox3.Text = CStr(y)
Rem
Rem IF
Rem
If a ^ 2 < b Then
y = 7 * a + 2 * b
Else
y = Sqr(2 * a) / (Abs(b) + 1)
End If
TextBox4.Text = CStr(y)
End Sub
Private Sub CommandButton2_Click()
End
End Sub
2.2.6 . , , .
2
Y:
-
Private Sub CommandButton1_Click()
Rem
Rem
Rem
a = Val(TextBox1.Text)
Rem
Rem IF
Rem
If a >= 50 And a <= 75 Or a >= 81 And a <= 83 Then
y = a + 5
ElseIf a >= -5 And a <= 0 Or a = 20 Then
y = a ^ 2
ElseIf a >= 30 And a <= 33 Or a = 2 Then
y = 7 + Log(a) / Log(2)
Else
y = (a - 1) / 2
End If
TextBox2.Text = CStr(y)
Rem
Rem Select Case
Rem
Select Case a
Case 50 To 75, 81 To 83
y = a + 5
Case -5 To 0, 20
y = a ^ 2
Case 30 To 33, 2
y = 7 + Log(a) / Log(2)
Case Else
y = (a - 1) / 2
End Select
TextBox3.Text = CStr(y)
End Sub
Private Sub CommandButton2_Click()
End
End Sub
, , .
堠
1. ?
2. ?
3. ?
|
|
|
4. VBA?
5. VBA?
6. ?
7. ?
8. ?
9. ?
10. IF IF?
11. Select Case?
12. IF?
13. Select Case?
14. ?
15. ?
16. ?
1. .
2. .
3. .
4. .
5. - .
6. .
7. .
8. .
9. .
. 1
|
|
| ||||
|
|
| ||||
| a | b | a | B | ||
| 1 | 
| 5 | 0 | 9 | 3 |
| 2 | 
| 4 | 4 | 1 | 10 |
| 3 | 
| 5 | 3 | 1 | 7 |
| 4 | 
| 0 | 5 | 2 | 2 |
| 5 | 
| 2 | 4 | 20 | 7 |
| 6 | 
| 3 | 4 | 15 | 16 |
| 7 | 
| 3 | 1 | -4 | 5 |
| 8 | 
| -3,5 | 0,5 | 10 | -4 |
| 9 | 
| 15 | 8 | 6 | 2 |
| 10 | 
| 6 | 9 | 2 | 20 |
| 11 | 
| 2 | -5 | 0,25 | 12 |
| 12 | 
| 5 | 1 | -12 | 3 |
| 13 | 
| 2 | 1 | -5 | -1,5 |
| 14 | 
| 2 | 6 | 1 | 1 |
| 15 | 
| 2 | 3 | 6 | 6 |
| 16 | 
| 2 | 3 | 1 | -4 |
| 17 | 
| 1 | 20 | 2 | 4 |
| 18 | 
| 12 | 2 | -2 | 3 |
| 19 | 
| 2 | 0 | 4 | 5 |
| 20 | 
| 10 | 4 | 3 | 10 |
| 21 | 
| -2 | -2 | 15 | 85 |
| 22 | 
| 1 | 10 | 3 | 2 |
| 23 | 
| 10 | 3 | 2 | 4 |
| 24 | 
| 3 | 7 | 1 | 2 |
| 25 | 
| 1 | 1 | 5 | 4 |
. 2
| 1 | 
|
| 2 | 
|
| 3 | 
|
| 4 | 
|
| 5 | 
|
| 6 | 
|
| 7 | 
|
| 8 | 
|
| 9 | 
|
| 10 | 
|
| 11 | 
|
| 12 | 
|
| 13 | 
|
| 14 | 
|
| 15 | 
|
| 16 | 
|
| 17 | 
|
| 18 | 
|
| 19 | 
|
| 20 | 
|
| 21 | 
|
| 22 | 
|
| 23 | 
|
| 24 | 
|
| 25 | 
|
1. .. Visual Basic. .: , 2007.
2. . Visial Basic 2008. .: -, 2009.
3. .. Visual Basic.NET. .-.: -, 2005.
4. . . .: -, 2008.
5. .. : - . .: , 2008.
6. . Microsoft Visual Basic 2005. .- .: , 2008.
7. . Microsoft Visual Basic 2005. . - .: , 2007.
....3
1 ...5
...12
1 .13
2 15
充.24
2( 1)25
2( 2)27
31
|
|
|
