Страница: 7/10
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 'Записывает в него все данные
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)
Реферат опубликован: 17/03/2008