Робота з двовимірними масивами
1. МЕТА РОБОТИ
Навчитись працювати з двовимірними масивами.
2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ
2.1. Ознайомитися з наведеними прикладами.
2.2. Виконати задачі, для самостійної роботи.
Приклад. Ввести двовимірний масив знайти максимальний елемент.
Код стандартного модуля
Option Base 1
Public C(2, 2) As Variant
Public i, j As Integer
Вводимо елементи масиву
Private Sub Command1_Click()
Cls
c1$ = "Введіть число"
For i = 1 To 2
For j = 1 To 2
t$ = "масив С" + Str(i) + " " + Str(j)
C(i, j) = InputBox(c1$, t$)
Next j
Next i
End Sub
Роздруковуємо елементи масиву
Private Sub Command2_Click()
For i = 1 To 2
For j = 1 To 2
t$ = "масив С" + Str(i) + " " + Str(j)
Print "C[" + Str(i) + ", " + Str(j) + "]="; C(i, j)
Next j 
Next i
End Sub
Знаходимо максимальний елемент
Private Sub Command3_Click()
Max = C(1, 1)
For i = 1 To 2
For j = 1 To 2
If C(i, j) > Max Then
Max = C(i, j)
End If
Next j
Next i
Print "max=", Max
End Sub
Контрольні запитання.
1. Що таке двовимірні масиви?
2. Як описуються двовимірні масиви?
Завдання для самостійного розв’язку.
1. Знайти індекси мінімального елемента масиву.
2. Знайти індекси максимального елемента масиву.
3. Знайти суму елементів масиву.
4. Обчислити суму діагональних елементів масиву.
ПРАКТИЧНА РОБОТА 14
ПРОГРАМА ТЕСТУВАННЯ
1. МЕТА РОБОТИ
Навчитися створювати програми для тестування.
2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ
2.1. Ознайомитися з наведеним прикладом.
2.2. Виконати самостійні задачі.
Програма тестування
Dim q As Integer ' загальна кількість питань
Dim r As Integer ' кількість вірних відповідей
Dim rate(1 To 4) As Integer ' критерії оцінок 
Dim comment(1 To 4) As String
' коментарії
Dim f As String
' процедура зчитує питання з файлу і виводить на форму
Sub NextQuestion()
If Not EOF(1) Then ' файл не закінчився
' зчитування і виведення питання
Line Input #1, f
Label1.Caption = f
' зчитування варіантів відповіді
Line Input #1, f
Option1.Caption = f
Line Input #1, f
Option1.Tag = f
' чи вірна відповідь: 1 - так, 0 - ні;
' 0 чи 1 записується у властивість
Tag відповідного
' компонента Option
Line Input #1, f
Option2.Caption = f
Line Input #1, f
Option2.Tag = f
Line Input #1, f
Option3.Caption = f
Line Input #1, f
Option3.Tag = f
' не один з варіантів відповіді не обраний
Option1.Value = False
Option2.Value = False
Option3.Value = False
Command1.Enabled = False
' збільшення лічильника питань
q = q + 1
' якщо це питання - останнє
If EOF(1) Then Command1.Caption = "Кінець"
End If
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then r = r + Option1.Tag
If Option2.Value = True Then r = r + Option2.Tag
If Option3.Value = True Then r = r + Option3.Tag
If Command1.Caption = " Знову " Then
Command1.Caption = "Далі"
Label1.Height = Label1.Height / 2
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
' перехід до початку файлу
Seek #1, 1
Line Input #1, f
Form1.Caption = f
' коментарі і критерії оцінювання
For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
' обнуління лічильників
q = 0
r = 0
' висновок першого питання
NextQuestion
Exit Sub
End If
If Command1.Caption = "Кінець" Then
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Label1.Height = Label1.Height * 2
Label1.Caption = "Тестування завершене." + Chr(13) + _
"Правильних відповідей: " + Format$(r) + " з " + Format$(q) + "."
i = 1
While (r < rate(i)) And (i < 4)
i = i + 1
Wend
' висновок коментарю
'Label1.Caption = Label1.Caption + Chr(13) + comment(і)
Command1.Caption = "Знову"
Else
NextQuestion
End If
End Sub
Private Sub Command2_Click()
Close #1 ' закриття файлу
Unload Form1
End Sub
Private Sub Form_Initialize()
Label1.Font.Size = 10
FileName = "E:\olga\Projects\Новая папка (6)" + "\text.txt"
Open FileName For Input As #1 ' відкриття файлу
' для читання
Line Input #1, f ' читання назви тесту
Form1.Caption = f
For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
q = 0
r = 0
NextQuestion
End Sub
Private Sub Option1_Click()
Command1.Enabled = True
End Sub
Private Sub Option2_Click()
Command1.Enabled = True
End Sub
Private Sub Option3_Click()
Command1.Enabled = True
End SubDim q As Integer ' загальна кількість питань
Перед виконанням програми необхідно створити текстовий файл test.txt з наступним змістом
Економіка
Ви прекрасно справилися з питаннями. Оцінка - ВІДМІННО!
На один чи кілька питань Ви відповіли не правильно. Оцінка - ДОБРЕ.
На деякі питання Ви відповіли не правильно. Оцінка - ЗАДОВІЛЬНО.
Ви погано підготувалися до іспиту. Оцінка - ПОГАНО!
Карл Маркс написав книгу:
"Матеріалізм і емпіріокритицизм"
"Як нам бороти з інфляцією"
"Капітал"
Що означає вислів «Робити бізнес»?
обманювати і хитрити
вчитися в школі бізнесменів
займатися конкретною справою, що приносить прибуток
Коли вперше з'явилися бартерні угоди?
при первіснообщинному ладі
у період суспільного поділу праці
у наш час
Слово «бухгалтер» перекладається з німецької як:
людина, що тримає книгу
людина, що вважає на рахунках
людина, що працює з великою кількістю паперів
Як перекладається з англійської «ноу-хау», і що воно позначає?
секрет
нове підприємство
нова ідея (знаю, як)
Конкуренція в перекладі з латинської:
зіткнення
змагання
конкурс
Контрольні запитання.
1. Як зчитати інформацію з файлу?
Завдання для самостійного розв’язку.
1. Модифікуйте програму, збільшить кількість питань до 10.
2. Створити програму тестування по дисципліні “Маркетинг”.