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
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)
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)
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)
Close #1 'Закрывает файл "data1"
Command2.Enabled = False 'Делает кнопку записи данных в файл недоступной после записи
Command3.Enabled = True 'Делает доступной кнопку перехода в др. форму
Private Sub Command3_Click()
Form1.Hide 'Скрывает 1 форму
Form2.Show 'Показывает 2 форму
Command1.Enabled = True 'Делает доступной кнопку нахождения средних значений
Private Sub Dir1_Change()
File1 = Dir1 ‘Отображает в FileListBox файлы, содержащиеся в DirListBox
Private Sub Drive1_Change()
ChDrive Drive1 ‘Меняет диск
Dir1 = Drive1 ‘Отображает в DirListBox каталоги диска, указанного в DriveListBox
ChDir Dir1 ‘Меняет каталог
Private Sub File1_Click()
Command2.Enabled = True 'Делает кнопку записи данных в файл доступной
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!" 'Выдает сообщение ‘Выдает приветственное сообщение
Private Sub Text1_Change()
Text1.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text2_Change()
Text2.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text3_Change()
Text3.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text4_Change()
Text4.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text5_Change()
Text5.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text6_Change()
Text6.Enabled = False 'Делает текстовое поле недоступным
Private Sub Text7_Change()
Text7.Enabled = False 'Делает текстовое поле недоступным
· ДЛЯ ВТОРОЙ ФОРМЫ:
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) 'Выводит в список данные о ВВП
j = 1
For i = 1 To 8
t(j) = a1(i + 1) - a1(i) 'Рассчет прироста ВВП
For i = 1 To 7 ' Выводит данные о приросте в список
L2.List(i - 1) = t(i)
Command1.Enabled = False 'Делает недоступной кнопку вывода данных о приросте
Command2.Enabled = True 'Делает доступной кнопку нахождения max прироста
Max = 0 'Нахождение max прироста
For i = 1 To 7
If t(i) > Max Then
Max = t(i)
p = i 'Счетчик
End If
T1.Text = Max 'Выводит значение max прироста в текст. поле
If p = 1 Then 'Определяет период max прироста и выводит его в текст. поле
T2.Text = "1964 - 1967 гг."
If p = 2 Then
T2.Text = "1968 - 1971 гг."
If p = 3 Then
T2.Text = "1972 - 1975 гг."
If p = 4 Then
T2.Text = "1976 - 1979 гг."
If p = 5 Then
T2.Text = "1980 - 1983 гг."
If p = 6 Then
T2.Text = "1984 - 1987 гг."
If p = 7 Then
T2.Text = "1988 - 1991 гг."
q(j) = a1(i + 1) / a1(i) 'Рассчет отношения ВВП последующего периода к ВВП предыдущего периода
For i = 1 To 7 'Находит и выводит в текст. поле период прироста в 50%, если такой имеется
If q(i) = 1.5 Then
per = i 'Счетчик
T3.Text = q(i)
Else
T3.Text = " ----------------------------"
T4.Text = "НЕТ"
If per = 1 Then
T4.Text = "1964 - 1967 гг."
If per = 2 Then
T4.Text = "1968 - 1971 гг."
If per = 3 Then
T4.Text = "1972 - 1975 гг."
If per = 4 Then
T4.Text = "1976 - 1979 гг."
If per = 5 Then
T4.Text = "1980 - 1983 гг."
If per = 6 Then
T4.Text = "1984 - 1987 гг."
If per = 7 Then
T4.Text = "1988 - 1991 гг."
Command1.Enabled = False ‘Делает недоступной кнопку нахождения ВВП
Command2.Enabled = False 'Делает недоступной кнопку рассчета max прироста
Form2.Hide 'Скрывает 2 форму
Form3.Show 'Показывает 3 форму
Command1.Enabled = True ' Делает доступной кнопку рассчета прироста ВВП
File1 = Dir1
ChDrive Drive1
Dir1 = Drive1
ChDir Dir1
Страницы: 1, 2, 3, 4, 5, 6