 |
‘підготовка тексту-коментарю “Матриця”, та розміщення ‘його в діапазоні (А1:D1) по центру
|
|
|
|
‘підготовка тексту-коментарю “Матриця”, та розміщення ‘його в діапазоні (А1: D1) по центру
Worksheets(" Лист2" ). Range(" A1" ). Value = " Матриця"
Worksheets(" Лист2" ). Range(" A1: D1" ). HorizontalAlignment=xlCenter
Worksheets(" Лист2" ). Range(" A1: d1" ). MergeCells = True
For i = 1 To m
For j = 1 To n
x(i, j) = InputBox(" x(" & CStr(i) & ", " & CStr(j) & " )=" )
Worksheets(" Лист2" ). Cells(i + 1, j). Value = x(i, j)
Next j
Next i
For j = 1 To n
If x(1, j) > 0 Then
For i = 1 To m \ 2
r = x(i, j)
x(i, j) = x(m - i + 1, j)
x(m - i + 1, j) = r
Next i
End If
Next j
Worksheets(" Лист3" ). Range(" A1" ). Value = " Змінена матриця"
Worksheets(" Лист3" ). Range(" A1: d1" ). HorizontalAlignment=xlCenter
Worksheets(" Лист3" ). Range(" A1: d1" ). MergeCells = True
For i = 1 To m
For j = 1 To n
Worksheets(" Лист3" ). Cells(i + 1, j). Value = x(i, j)
Next j
Next i
End Sub
Вікна введення початкових даних в процесі роботи наведені на рис. 4. 20.
Рисунок 4. 20 - Вікна введення
Результати роботи програми наведені на рис. 4. 21.
Рисунок 4. 21 - Результати роботи програми (Лист1, Лист2)
Приклад 4. 3. 3
Задана квадратна матриця. Підрахувати найбільший елемент
1) вище головної діагоналі;
2) вище побічної діагоналі;
3) двох з вказаних випадках.
Для організації введення даних і виведення результатів створимо форму, в якій розмістимо такі елементи керування:
· написи Label1, Label2, Label3, у яких властивості Caption змінені на тексти, що зазначені на рис. 4. 22. Крім того, у написів змінена властивість Font - шрифт, його розмір - 10, і жирність – Bold;
· текстові поля TextBox1, TextBox2 для введення початкової інформації. У цих об’єктів також змінена властивість Font;
· для текстового поля TextBox1, яке призначене для виведення матриці змінені додатково властивості MultiLine=True, WordWrap=True, щоб виводити в полі текст у декілька рядків, ScrollBars – 3;
|
|
|
· командна кнопка CommandButton1, з якою зв’язується процедура рішення задачі. Змінена властивість Caption на текст, що зазначений на кнопці, властивості Font - розмір, жирність;
· користувач обирає потрібний варіант за допомогою прапорців CheckBox1, CheckBox2, у яких змінені властивості Caption, Font.
Рисунок 4. 22 - Інтерфейс прикладу 4. 3. 3
Код програми
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer, j As Integer, sa As String
Dim a() As Single, m1 As Single, m2 As Single, m As Single
n = InputBox(" Введіть розмір матриці n=" )
ReDim a(n, n)
sa = " "
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox(" a(" & CStr(i) & ", " & CStr(j) & " )=" )
sa = sa & CStr(a(i, j)) & " "
Next j
sa = sa & vbCrLf
Next i
TextBox1. Text = sa
If CheckBox1. Value = True Then
m1 = a(1, 2)
For i = 1 To n - 1
For j = i + 1 To n
If a(i, j) > m1 Then m1 = a(i, j)
Next j
Next i
m = m1
End If
If CheckBox2. Value = True Then
m2 = a(1, 1)
For i = 1 To n - 1
For j = 1 To n - i
If a(i, j) > m2 Then m2 = a(i, j)
Next j
Next i
m = m2
End If
If CheckBox1. Value = True And CheckBox2. Value = True Then
If m1 > m2 Then m = m1 Else m = m2
End If
TextBox2. Text = CStr(m)
End Sub
Результати розрахунків наведені на рис. 4. 23.
Рисунок 4. 23 - Результати розрахунків
5 ЛІТЕРАТУРА
5. 1 Рессельман Боб. Использование Visual Basic 5: Пер. с англ. -М.; Спб.: Издат. дом «Вильямс», 1998. -456 с.
5. 2 Сайлер, Брайан, Споттс, Джефф. Использование Visual Basik 6. Специальное издание.: Пер. с англ.. -М.; Спб.; К: Печатный дом «Вильямс», 1999. -832 с.
5. 3 Ананьев А. И., Федоров А. Ф. Самоучитель Visual Basic 6. 0. -Спб.; Бхв-Санкт-Петербург, 2000. -624 с.
5. 4 Фигурнов В. Э. IBМ РС для пользователя. -М.: ИНФРА-М, 1997. -640 с.
5. 5 Методические указания и индивидуальные задания по курсу „Вычислительная техника и программирование” / Сост. Л. А. Пархоменко, Г. В. Корнич, Н. И. Белая г. Запорожье: ЗГТУ. 1995. -31с.
5. 6 Бухтияров А. М., Фролов Т. Д. Сборник задач по программированию на алгоритмических язиках. -М.: Наука, 1974.
|
|
|
