:
. Select Case.
:
:
o ;
o Select Case;
o VB;
o ListBox .
I. Select Case.
() , , . .
, V.
Select Case.
:
Select Case <>
Case <_1>
, _1
Case <_2>
, _2
Case <_N>
, _N
Else <>
End Select
Select Case
Select Case Ch
Case +
Z = X + Y
Case -
Z = X - Y
Case *
Z = X * Y
Case/
Z = X / Y
Else
Stop = True
End Select
Ch . +, -, *, /.
Else .
Select Case . Is To.
:
Case 8 To 10 , 8 10.
Case Is < 4 , 4.
II.
(ListBox) . AddItem, RemoveItem Clear , . Text, ListIndex . 0.
1.
. : X Y. ListBox . Label1.
, ListBox, AddItem . Initialize . .
|
|
|
Private Sub UserForm_Initialize()
ListBox1.AddItem "+"
ListBox1.AddItem "-"
ListBox1.AddItem "*"
ListBox1.AddItem "/"
End Sub
Click ListBox1. ListIndex ListBox1.
Private Sub ListBox1_Click()
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
Select Case ListBox1.ListIndex
Case 0
z = x + y
Case 1
z = x - y
Case 2
z = x * y
Case 3
z = x / y
End Select
Label1.Caption = Str(z)
End Sub
III.
:
, .
| : , , , , , , , , , , , . , . : , 12. 0 . | |
| , , , . | |
| 3 : 3 1%, 6 2% 3%. , . : , : 4 * * 1/100, 2 * * 2/100, * 3/100 . | |
| 3 , 20 40 . , (, , ?), ( ) . | |
| , : , (, ) , . | |
| , , (, ) . : . | |
| , : , . | |
| , . | |
| , , , . | |
| , (, , , ) , . | |
| . . 13 , , 10 12 , 8 9 8 . , . | |
| , . , : . | |
| . . | |
| 5 9. . | |
| . . |
|
|
|
