«  »

Анализ экономических показателей Японии 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
4񺲼44󴹼446649449: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


?
?
?