• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Код програми

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 - Результати розрахунків

Читайте також:

1. II. Вимоги до складання паспорта бюджетної програми
2. II. ПРОГРАМИ ДИСЦИПЛН
3. А.2.1. Розрахунок річної виробничої програми міських СТОА
4. А.2.2.Розрахунок виробничої програми дорожніх СТОА
5. Авторське право на комп’ютерні програми
6. Алгоритм розроблення програми комплексу маркетингу
7. Алгоритм створення тренінгової програми
8. Алфавіт мови і структура програми
9. Аналіз формування й виконання виробничої програми
10. Анімаційні програми
11. Антивірусні програми
12. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.

Переглядів: 430