ЛР VBA Excel
.pdf
img1.Left = img1.Left – 10 |
‘ 10 |
img1.Top = img1.Top – 10 |
‘ 10 |
End Sub |
|
Private Sub cmd2_Click() |
|
img1.Height = img1.Height - 20 |
|
img1.Width = img1.Width - 20 |
|
img1.Left = img1.Left + 10 |
|
img1.Top = img1.Top + 10 |
|
End Sub |
|
2
« ».
: 3 ,
( 0 9) « » « ».
lblP |
lblWins |
cmdV |
cmdEnd |
7, . |
|
. ( .14). |
|
. 14. |
|
Dim wins As Integer, k As Integer
Private Sub cmdV_Click() k = k + 1
lblP.Caption = k img1.Visible = False Randomize
lbl1.Caption = Int(Rnd * 9) lbl2.Caption = Int(Rnd * 9)
131
lbl3.Caption = Int(Rnd * 9)
If lbl1.Caption = 7 Or lbl2.Caption = 7 Or lbl3.Caption = 7 Then Img1.Visible = True
wins = wins + 1 lblWins.Caption = wins End If
End Sub
Private Sub cmdEnd_Click()
End ‘
End Sub
3
« ».
:
, :
. 2% .
. 15).
txtS |
txtM |
optM |
|
|
Frame1 |
|
|
|
|
|
|
optO |
|
|
|
|
|
|
|
|
|
|
lbltext |
|
lblrez |
|
|
|
|
|
|
cmdV
. 15.
Private Sub cmdV_Click()
Dim s As Double, m As Integer, rez As Double s = Val(txtS.Text)
m = Val(txtM.Text)
If optM.Value = True Then rez = s * 0.02 + s / m
lblText.Caption = " " End If
132
If optO.Value = True Then rez = m * s * 0.02 + s
lblText.Caption = " " End If
lblRez.Caption = rez End Sub
« » 2.
4
« ».
:
. ( . 16).
lstStr
lblText
. 16.
Private Sub UserForm_Activate() lstStr.AddItem " " lstStr.AddItem " " lstStr.AddItem " " lstStr.AddItem " " lstStr.AddItem " "
End Sub
Private Sub lstStr_Click()
If lstStr.ListIndex = 0 Then lblText.Caption = "Hello, programmer" If lstStr.ListIndex = 1 Then lblText.Caption = "Hello, programmierer" If lstStr.ListIndex = 2 Then lblText.Caption = "Hola, programador"
If lstStr.ListIndex = 3 Then lblText.Caption = "Ciao, programmator" If lstStr.ListIndex = 4 Then lblText.Caption = " , " End Sub
133
26
,
.
1.. VBA /
. , . : . – :
, 2002.
2.. 2 . / . . . ,. . . – .: . , 2002.
3.. . .
10-11 / . . . – .: . , 2002.
134
……………………………………………………………………………………….. |
3 |
1. |
4 |
…………………………......................... |
|
……………………. |
4 |
…………………………………………………………… |
4 |
q- ………………………….. |
5 |
q- ………………………………. |
6 |
–q- ……………………………………….. |
7 |
………………………………. |
10 |
……………………………………… |
12 |
2n – …………………………….. |
13 |
2n – …………………………….. |
14 |
1…………………………………………………………………….. |
15 |
……………………………………………………………………… |
17 |
…………………………………………………………….. |
18 |
…………………………………….. |
19 |
………………………………………. |
20 |
2…………………………………………………………………….. |
21 |
…………………………………………………. |
22 |
…………………………………………………………………………. |
22 |
……………………………………………………. |
24 |
……………………………………………………………… |
25 |
……………………………………………………………………………. |
27 |
3……………………………………………………………………. |
28 |
4……………………………………………………………………. |
30 |
5……………………………………………………………………. |
31 |
II. VBA……………………………… |
32 |
…………………………………………………………………………….. |
32 |
VBA………………………………………………………………………….. |
34 |
………………………………………………………………………………. |
34 |
…………………………………………………………….. |
35 |
……………………………………………………………………………… |
36 |
……………………………………………………………………. |
37 |
……………………………………………………………………… |
38 |
………………………………………………………………………………… |
38 |
……………………………………………………………………………… |
39 |
……………………………………………………………………………. |
40 |
6……………………………………………………………………. |
41 |
…………………………………………………………………………… |
44 |
Select Case………………………………………………………………… |
47 |
7……………………………………………………………………. |
48 |
8……………………………………………………………………. |
50 |
For-Next…………………………………………………… |
52 |
9……………………………………………………………………. |
53 |
10………………………………………………………………… |
55 |
While-Wend………………………………………………. |
56 |
Do-Loop…………………………………………………………………….. |
58 |
11………………………………………………………………… |
60 |
135
12………………………………………………………………….. |
62 |
13…………………………………………………………………. |
64 |
……………………………………………………………………… |
65 |
…………………………………………………………………………. |
66 |
…………………………………………………………………………………. |
66 |
………………………………………………………………………………… |
67 |
, ……. 68
…… |
70 |
« »…………………… |
72 |
…………………………………… |
74 |
…………………………………………………. |
76 |
…………………………………………………………. |
77 |
………………………………………………………. |
78 |
14……………………………………………………………….. |
78 |
15………………………………………………………………… |
79 |
16………………………………………………………………….. |
81 |
17………………………………………………………………….. |
82 |
………………………………………………………………………… |
85 |
…………………………………………………………………… |
86 |
………………………………………………………………….. |
86 |
……………………………………………………………………… |
87 |
, , , |
90 |
…………………………………………………………………………… |
|
……………………………………………………….. |
92 |
………………………………………………………….. |
93 |
18………………………………………………………………….. |
96 |
19………………………………………………………………….. |
98 |
20………………………………………………………………….. |
100 |
21………………………………………………………………….. |
101 |
……………………………………………………………… |
105 |
……………………………………………………………………. |
106 |
22………………………………………………………………….. |
110 |
23………………………………………………………………….. |
113 |
………………………………………………………………………………. |
116 |
……………………………………………………………………. |
116 |
……………………………………………………………………. |
122 |
23……………………………………………………………… |
123 |
25……………………………………………………………… |
125 |
VBA……………………………………………………………… |
127 |
………………………………………………………………… |
129 |
26………………………………………………………………… |
134 |
………………………………………………………………….. |
134 |
136