Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс
.
II
. .
1998
:
Visual Basic Microsoft Access
, , :
Microsoft Access
Visual Basic
.
:
, ,
.
:
14 1998
28 1998 .
:
Microsoft Access :
1960 1992
.
Visual Basic,
, 4-
.
Visual Basic,
, ,
, 50% .
Visual Basic,
, ,
.
.
-
,
, ,
,
. ,
,
,
, , .
,
.
,
.
, .
,
.
.
Microsoft Access ,
1960 1992 .
32-
,
, .
:
,
,
;
32- ;
,
;
,
;
,
;
,
.
, Visual Basic ,
, ,
, 1960 .
,
. , Visual Basic
,
, 50% .
, , 62
,
,
,
,
.
Visual Basic
,
, ,
,
.
, ,
Microsoft Access, ,
Visual Basic. , ,
(Microsoft Access Visual Basic)
Microsoft, Visual Basic
, Microsoft Access.
, ,
,
, ,
, ,
,
.
, .
,
, , .
1960 1992 ,
Microsoft Access.
. Microsoft Access
,
(.1),
.
32- ,
,
. ,
(.2).
:
. 1
, , :
Microsoft Access
.
(.3) ,
, ,
, ( ,
) .
:
. 3
:
, Microsoft
Access, Visual Basic,
,
Microsoft Access.
Visual Basic , New File
New Project. Properties Caption
, Form1.
DataControl Data1.
Caption .
Connect - Access. DatabaseName
, Microsoft Access. RecordSource
Microsoft Access,
.
7 TextBox
.
Label , .
, , ,
, ,
.
DataSource Data1, DataField
,
. ,
ϒ . .
, Visual Basic
Microsoft Access.
, .
Microsoft Access, , Data1,
,
. ,
,
,
Text1_Change () :
Text1.Enabled = False
,
. . .
,
.
,
, 1960 . ,
, ,
,
.
CommandButton. ,
Caption Command1
4- , 1960 .
,
.
, ,
, .
1 32 ( ),
.
,
, Command1_Click () :
For i = 1 To 32
mag(i) = Text1.Text
mas(i) = Text2.Text
ma(i) = Text3.Text
maq(i) = Text4.Text
maw(i) = Text5.Text
mar(i) = Text6.Text
maz(i) = Text7.Text
Data1.Recordset.MoveNext
Next i
i
x
r
, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i)
maz(i) , ,
, , ,
.
Data1.Recordset.MoveNext ,
Data1
. .
,
Data1 ,
. ,
, , ,
, 32,
. ,
:
Data1.Recordset.MoveFirst
.
4- ,
, - 4.
Command1_Click () :
j = 1
For i = 1 To 32 Step 4
h(j) = (mas(i) + mas(i + 1) + mas(i + 2) + mas(i + 3)) / 4
q(j) = (ma(i) + ma(i + 1) + ma(i + 2) + ma(i + 3)) / 4
w(j) = (maq(i) + maq(i + 1) + maq(i + 2) + maq(i + 3)) / 4
p(j) = (maz(i) + maz(i + 1) + maz(i + 2) + maz(i + 3)) / 4
r(j) = (mar(i) + mar(i + 1) + mar(i + 2) + mar(i + 3)) / 4
x(j) = (maw(i) + maw(i + 1) + maw(i + 1) + maw(i + 3)) / 4
j = j + 1
Next i
j ; h(j), q(j), w(j), p(j), r(j) x(j)
,
1960 1963 , 1964 1967 . .
For i = 1 To 32 Step 4 ,
, 4
,
, (
4 ) . . 32.
4-
, .
ListBox,
.
, , .
,
.
Command1_Click () :
For i = 1 To 8
List2.List(i - 1) = h(i)
List3.List(i - 1) = q(i)
List4.List(i - 1) = w(i)
List5.List(i - 1) = p(i)
List6.List(i - 1) = r(i)
List7.List(i - 1) = x(i)
Next i
4- , 1960 .
, ,
. ,
,
. DriveListBox,
DirListBox FileListBox, ,
.
.
, , ,
, , .
,
. Caption
.
Command2_Click () :
Open File1 For Output As #1
For i = 1 To 8
Write #1, h(i), q(i), w(i), p(i), r(i), x(i)
Next i
Close #1
,
FileListBox.
.
,
. ,
Caption
, max . 50%. ,
,
,
. , Caption
.
, Command3_Click ()
:
Form1.Hide
Form2.Show
.
,
. , , ,
, .
DriveListBox, DirListBox FileListBox.
, ,
. ,
, .
, Caption
,
. ,
,
.
, ,
, Command1_Click ()
:
Open File1 For Input As #1
For i = 1 To 8
Input #1, a1(i), a2(i), a3(i), a4(i), a5(i), a6(i)
L1.List(i - 1) = a1(i)
Next i
Close #1
L1.List(i - 1) = a1(i) ,
, .
, ,
, .
, ,
, .
Command1_Click ()
:
j = 1
For i = 1 To 8
t(j) = a1(i + 1) - a1(i)
j = j + 1
Next i
For i = 1 To 7
L2.List(i - 1) = t(i)
Next i
L2.List(i - 1) = t(i) ,
, .
,
, 50% . ,
, ,
Caption max
50%. 2 ,
,
.
, Form_Load
:
T1.Enabled = False
T2.Enabled = False
T1 T2 .
2
, 50%, .
Command2_Click()
:
Max = 0
For i = 1 To 7
If t(i) > Max Then
Max = t(i)
p = i
End If
Next i
T1.Text = Max
. p ,
:
If p = 1 Then
T2.Text = "1964 - 1967 ."
End If
If p = 2 Then
T2.Text = "1968 - 1971 ."
End If
If p = 3 Then
T2.Text = "1972 - 1975 ."
End If
If p = 4 Then
T2.Text = "1976 - 1979 ."
End If
If p = 5 Then
T2.Text = "1980 - 1983 ."
End If
If p = 6 Then
T2.Text = "1984 - 1987 ."
End If
If p = 7 Then
T2.Text = "1988 - 1991 ."
End If
p ,
.
50%, ,
1.5. 50% ,
,
. ,
Command2_Click () :
j = 1
For i = 1 To 8
q(j) = a1(i + 1) / a1(i)
j = j + 1
Next i
q(j)
. ,
50%, :
For i = 1 To 7
If q(i) = 1.5 Then
per = i
T3.Text = q(i)
Else
T3.Text = " ----------------------------"
T4.Text = ""
End If
Next i
per ,
50%.
50%, ,
.
, ,
, . ,
50%, :
If per = 1 Then
T4.Text = "1964 - 1967 ."
End If
If per = 2 Then
T4.Text = "1968 - 1971 ."
End If
If per = 3 Then
T4.Text = "1972 - 1975 ."
End If
If per = 4 Then
T4.Text = "1976 - 1979 ."
End If
If per = 5 Then
T4.Text = "1980 - 1983 ."
End If
If per = 6 Then
T4.Text = "1984 - 1987 ."
End If
If per = 7 Then
T4.Text = "1988 - 1991 ."
End If
,
50%.
,
, .
,
.
Caption
.
, ,
, - ,
1 2 ,
. Form_Load () ,
:
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
, . , ,
, File1_Click () :
Command1.Enabled = True
, ,
, Command1_Click ()
:
Command2.Enabled = True
.
,
, Command3_Click ()
:
Form2.Hide
Form3.Show
.
, ,
. , -,
, .
Command2_Click () ,
, data1:
Open "data1" For Output As #1
For i = 1 To 32
Write #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)
Next i
Close #1
,
.
Command1_Click () :
Open "data1" For Input As #1
For i = 1 To 32
Input #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)
Next i
Close #1
, ,
. ,
,
.
,
,
Command1_Click () :
10 pr = True
i = 1
20 If ma(i) > ma(i + 1) Then
buf = ma(i)
buf1 = mag(i)
buf2 = mas(i)
buf3 = maq(i)
buf4 = maw(i)
buf5 = mar(i)
buf6 = maz(i)
ma(i) = ma(i + 1)
mag(i) = mag(i + 1)
mas(i) = mas(i + 1)
maq(i) = maq(i + 1)
maw(i) = maw(i + 1)
mar(i) = mar(i + 1)
maz(i) = maz(i + 1)
ma(i + 1) = buf
mag(i + 1) = buf1
mas(i + 1) = buf2
maq(i + 1) = buf3
maw(i + 1) = buf4
mar(i + 1) = buf5
maz(i + 1) = buf6
pr = False
End If
i = i + 1
If i = 32 Then
GoTo 30
Else
GoTo 20
End If
30 If pr = False Then
GoTo 10
Else
GoTo 200
End If
200 End Sub
VI 200 246 ! ,
,
.
,
.
( ),
.
: , ϻ . .
,
Caption .
, Form_Load
() :
Command2.Enabled = False
,
Command1_Click () :
Command2.Enabled = True
Command1.Enabled = False
,
,
Command2_Click () :
For i = 1 To 32
List1.List(i - 1) = mag(i)
List2.List(i - 1) = mas(i)
List3.List(i - 1) = ma(i)
List4.List(i - 1) = maq(i)
List5.List(i - 1) = maw(i)
List6.List(i - 1) = mar(i)
List7.List(i - 1) = maz(i)
Next i
, ,
. ,
. ,
( Frame),
OptionButton.
.
:
Form3.Hide
Form1.Show
Form3.Hide
Form2.Show .
,
,
, BackColor, ForeColor, Font,
.
, ,
, ,
.
,
. ,
. , ,
, ,
. ,
,
, .
, , ,
.
,
, , ,
,
,
. , , , -
, ,
.
, , ,
, .
,
,
max
50%
max 50%
.
.
:
Dim mas(40) As Single
Dim mag(40) As Single
Dim ma(40) As Single
Dim maq(40) As Single
Dim maz(40) As Single
Dim mar(40) As Single
Dim maw(40) As Single
Dim j, i As Integer
Dim h(10) As Single
Dim q(10) As Single
Dim w(10) As Single
Dim r(10) As Single
Dim p(10) As Single
Dim x(10) As Single
Private Sub Command1_Click()
Data1.Recordset.MoveFirst '
MsgBox " 4- ,
1960 !"
For i = 1 To 32 '
mag(i) = Text1.Text
mas(i) = Text2.Text
ma(i) = Text3.Text
maq(i) = Text4.Text
maw(i) = Text5.Text
mar(i) = Text6.Text
maz(i) = Text7.Text
Data1.Recordset.MoveNext '
Next i
j = 1
For i = 1 To 32 Step 4 '
h(j) = (mas(i) + mas(i + 1) + mas(i + 2) + mas(i + 3)) / 4
q(j) = (ma(i) + ma(i + 1) + ma(i + 2) + ma(i + 3)) / 4
w(j) = (maq(i) + maq(i + 1) + maq(i + 2) + maq(i + 3)) / 4
p(j) = (maz(i) + maz(i + 1) + maz(i + 2) + maz(i + 3)) / 4
r(j) = (mar(i) + mar(i + 1) + mar(i + 2) + mar(i + 3))
?????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????\???????'
List2.List(i - 1) = h(i)
List3.List(i - 1) = q(i)
List4.List(i - 1) = w(i)
List5.List(i - 1) = p(i)
List6.List(i - 1) = r(i)
List7.List(i - 1) = x(i)
Next i
Dir1.Enabled = True DirListBox
Drive1.Enabled = True DriveListBox
File1.Enabled = True FileListBox
Command1.Enabled = False ' .
Label14.Visible = True
End Sub
Private Sub Command2_Click()
Open File1 For Output As #1 ' ,
For i = 1 To 8 '
Write #1, h(i), q(i), w(i), p(i), r(i), x(i)
Next i
Close #1 '
Open "data1" For Output As #1 ' "data1"
For i = 1 To 32 '
Write #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)
Next i
Close #1 ' "data1"
Command2.Enabled = False '
Command3.Enabled = True ' .
End Sub
Private Sub Command3_Click()
Form1.Hide ' 1
Form2.Show ' 2
Command1.Enabled = True '
End Sub
Private Sub Dir1_Change()
File1 = Dir1 FileListBox ,
DirListBox
End Sub
Private Sub Drive1_Change()
ChDrive Drive1
Dir1 = Drive1 DirListBox ,
DriveListBox
ChDir Dir1
End Sub
Private Sub File1_Click()
Command2.Enabled = True '
End Sub
Private Sub Form_Load()
Label14.Visible = False
Dir1.Enabled = False DirListBox
Drive1.Enabled = False DriveListBox
File1.Enabled = False FileListBox
Command2.Enabled = False '
Command3.Enabled = False ' .
MsgBox "! Visual Basic!" '
End Sub
Private Sub Text1_Change()
Text1.Enabled = False '
End Sub
Private Sub Text2_Change()
Text2.Enabled = False '
End Sub
Private Sub Text3_Change()
Text3.Enabled = False '
End Sub
Private Sub Text4_Change()
Text4.Enabled = False '
End Sub
Private Sub Text5_Change()
Text5.Enabled = False '
End Sub
Private Sub Text6_Change()
Text6.Enabled = False '
End Sub
Private Sub Text7_Change()
Text7.Enabled = False '
End Sub
:
Dim q(10) As Single
Dim t(10) As Single
Dim p As Integer
Dim per As Integer
Dim i, j As Integer
Dim a1(50) As Single
Dim a2(10) As Single
Dim a3(10) As Single
Dim a4(10) As Single
Dim a5(10) As Single
Dim a6(10) As Single
Private Sub Command1_Click()
Open File1 For Input As #1 '
For i = 1 To 8 '
Input #1, a1(i), a2(i), a3(i), a4(i), a5(i), a6(i)
L1.List(i - 1) = a1(i) '
Next i
Close #1 '
j = 1
For i = 1 To 8
t(j) = a1(i + 1) - a1(i) '
j = j + 1
Next i
For i = 1 To 7 '
L2.List(i - 1) = t(i)
Next i
Command1.Enabled = False '
Command2.Enabled = True ' max
End Sub
Private Sub Command2_Click()
Max = 0 ' max
For i = 1 To 7
If t(i) > Max Then
Max = t(i)
p = i '
End If
Next i
T1.Text = Max ' max .
If p = 1 Then ' max
.
T2.Text = "1964 - 1967 ."
End If
If p = 2 Then
T2.Text = "1968 - 1971 ."
End If
If p = 3 Then
T2.Text = "1972 - 1975 ."
End If
If p = 4 Then
T2.Text = "1976 - 1979 ."
End If
If p = 5 Then
T2.Text = "1980 - 1983 ."
End If
If p = 6 Then
T2.Text = "1984 - 1987 ."
End If
If p = 7 Then
T2.Text = "1988 - 1991 ."
End If
j = 1
For i = 1 To 8
q(j) = a1(i + 1) / a1(i) '
j = j + 1
Next i
For i = 1 To 7 ' .
50%,
If q(i) = 1.5 Then
per = i '
T3.Text = q(i)
Else
T3.Text = " ----------------------------"
T4.Text = ""
End If
Next i
If per = 1 Then
T4.Text = "1964 - 1967 ."
End If
If per = 2 Then
T4.Text = "1968 - 1971 ."
End If
If per = 3 Then
T4.Text = "1972 - 1975 ."
End If
If per = 4 Then
T4.Text = "1976 - 1979 ."
End If
If per = 5 Then
T4.Text = "1980 - 1983 ."
End If
If per = 6 Then
T4.Text = "1984 - 1987 ."
End If
If per = 7 Then
T4.Text = "1988 - 1991 ."
End If
Command1.Enabled = False
Command2.Enabled = False ' max
Command3.Enabled = True ' .
End Sub
Private Sub Command3_Click()
Form2.Hide ' 2
Form3.Show ' 3
Command1.Enabled = True '
End Sub
Private Sub Dir1_Change()
File1 = Dir1
End Sub
Private Sub Drive1_Change()
ChDrive Drive1
Dir1 = Drive1
ChDir Dir1
End Sub
Private Sub File1_Click()
Label7.Visible = False
Command1.Enabled = True
Drive1.Enabled = False DribeListBox
Dir1.Enabled = False DirListBox
End Sub
Private Sub Form_Load()
Command1.Enabled = False
T1.Enabled = False ' .
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
Command2.Enabled = False ' max
Command3.Enabled = False ' .
End Sub
:
Dim maq(40) As Single
Dim mag(40) As Single
Dim ma(40) As Single
Dim mas(40) As Single
Dim maz(40) As Single
Dim mar(40) As Single
Dim maw(40) As Single
Dim buf1 As Single
Dim buf2 As Single
Dim buf3 As Single
Dim buf4 As Single
Dim buf5 As Single
Dim buf6 As Single
Dim buf As Single
Private Sub Command2_Click()
W<=W<=Z4446
64'
List1.List(i - 1) = mag(i)
List2.List(i - 1) = mas(i)
List3.List(i - 1) = ma(i)
List4.List(i - 1) = maq(i)
List5.List(i - 1) = maw(i)
List6.List(i - 1) = mar(i)
List7.List(i - 1) = maz(i)
Next i
Command2.Enabled = False '
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
MsgBox "
!"
Command1.Enabled = True '
Open "data1" For Input As #1 ' "data1"
For i = 1 To 32
Input #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)
Next i
Close #1
10 pr = True '
i = 1
20 If ma(i) > ma(i + 1) Then
buf = ma(i)
buf1 = mag(i)
buf2 = mas(i)
buf3 = maq(i)
buf4 = maw(i)
buf5 = mar(i)
buf6 = maz(i)
ma(i) = ma(i + 1)
mag(i) = mag(i + 1)
mas(i) = mas(i + 1)
maq(i) = maq(i + 1)
maw(i) = maw(i + 1)
mar(i) = mar(i + 1)
maz(i) = maz(i + 1)
ma(i + 1) = buf
mag(i + 1) = buf1
mas(i + 1) = buf2
maq(i + 1) = buf3
maw(i + 1) = buf4
mar(i + 1) = buf5
maz(i + 1) = buf6
pr = False
End If
i = i + 1
If i = 32 Then
W>5oZ44444:4
444446649449:446
64948444944944'
30
Else
GoTo 20 ' 20
End If
30 If pr = False Then
GoTo 10 ' 10
Else
GoTo 200 ' 200
End If
200 End Sub
Private Sub Form_Load()
Command2.Enabled = False '
End Sub
Private Sub Option1_Click()
MsgBox " ?"
Form3.Hide ' 3
Form1.Show ' 1
Command1.Enabled = True ' .
Command2.Enabled = True '
End Sub
Private Sub Option2_Click()
MsgBox " ?"
Form3.Hide ' 3
Form2.Show ' 2
Command1.Enabled = True '
Command2.Enabled = True ' max
End Sub
, ,
.
Run,
.
4- :
:
, :
50%:
1. :
,
, ,
:
, :
0.8843492, 14.05, 1621.173, 2244, 49.9, 238652.5
1.250556, 14.425, 1693.65, 3841, 68.65, 260827.3
1.786277, 14.65, 1858.58, 6714.5, 79.575, 280061.8
2.117049, 14.675, 1966.193, 11439.5, 91.8, 248772.3
2.23297, 14.1, 2244.097, 17332, 110.6, 259894.3
2.364754, 17.275, 2533.115, 22487.75, 117.525, 242344.5
2.543809, 16.2, 2736.063, 27369.25, 123.875, 283233.3
3.258096, 17.025, 3509.732, 34186.75, 129.5, 389459.5
644844444448
, :
1960, 0.639305, 13.9, 1675.8, 228641, 45.8,1784
1961, 0.89425, 13.8, 1604.68, 248690, 47.3, 2136
1962, 0.925417, 13.9, 1604.67, 269742, 50.6, 2341
1963, 1.078425, 14.6, 1599.54, 228589, 55.9, 2715
1964, 1.098361, 14.4, 1603.6, 260713, 62.1, 3118
1965, 1.116758, 14.3, 1709.31, 238643, 69.5, 3423
1966, 1.294576, 14.4, 1711.7, 278317, 72.2, 3999
1967, 1.49253, 14.6, 1749.99, 305310, 70.8, 4824
1968, 1.598053, 14.4, 1805.4, 285305, 74.9, 5407
1969, 1.703083, 15.1, 1845.5, 270136, 78.3, 6329
1970, 1.853208, 14.5, 1879.75, 268371, 80.7, 7246
1971, 1.990764, 14.6, 1903.67, 294670, 84.4, 7876
1972, 2.078247, 14.4, 1899.9, 263478, 91.6, 8972
1973, 2.095748, 15.2, 1956.87 ,240537 ,93.9 ,10694
1974, 2.099347, 14.6, 1940.14 ,235925, 95.6 ,12495
1975, 2.194853, 14.5, 2067.86 ,250537, 86.1 ,13597
1976, 2.157347, 14.5, 2194.66 ,235925, 120.4, 15134
1977, 2.19576, 14.7, 2542.8, 270537, 103.5, 16664
1978, 2.293102, 12.3, 2157.43 ,246942, 105.8, 18125
1979, 2.285671, 14.9, 2081.5, 262578, 112.7, 19405
1980, 2.319454, 15.7, 2518.64, 243670, 114.9, 20960
1981, 2.365859, 15.5, 2520.8, 237387, 115.3, 22081
1982, 2.376982, 22.1, 2487.35, 214535, 117.2, 23033
1983, 2.39672, 15.8, 2605.67, 250934, 122.7, 23877
1984, 2.403722, 16, 2636.81, 270762, 124.6, 25412
1985, 2.418689, 16.2, 2642.3, 273300, 120.5, 26926
1986, 2.430957, 16.7, 2689.94, 306617, 124.9, 27959
1987, 2.92187, 15.9, 2975.2, 315571, 125.5, 29180
1988, 2.897231, 16.8, 3015.75, 335559, 126.8, 30929
1989, 2.990416, 17.1, 4545, 378700, 130.1, 32978
1990, 3.418921, 17.3, 3203.58, 452271, 131.7, 35368
1991, 3.725814, 16.9, 3274.6, 464879, 129.4, 37472
1992, 3.780530, 17.6, 3332.48, 523851, 135.9, 39330
, ,
.
, , .
, .
,
, ,
,
.
,
.
., . . Visual Basic 4 - ,
1997 .
., 1962 .
. ., 1967 .
. ., 1960-1989
.
.1
充.2-3
腅.3-4
Microsoft Access4-6
Microsoft Access..7-8
Visual Basic
Microsoft Access.9
充10-12
充..13-16
充17-20
煅..20
셅..21-22
:
..23-26
..26-29
.30-32
11. :
33
34
..35
12. Run:
..36-37
..38-39
.40
13. ⅅ40-41
14.充.42
15. 43