Видає повідомлення про кнопку
' 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))/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)
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...
