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

Код програми

Private Sub CommandButton1_Click()

Dim m As Integer, n As Integer, i As Integer, j As Integer

Dim k As Integer

Dim a() As Integer, b() As Integer, sa As String, sb As String

m = TextBox1.Text

n = TextBox2.Text

ReDim a(m, n), b(m)

sa = ""

sb = ""

For i = 1 To m

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

TextBox3.Text = sa

k = 0

For i = 1 To m

If a(i, 1) Mod 2 = 0 Then

k = k + 1

b(k) = 0

For j = 1 To n

b(k) = b(k) + a(i, j)

Next j

sb = sb & CStr(b(k)) & " "

End If

Next i

If k = 0 Then sb = "таких елементів немає"

TextBox4.Text = sb

End Sub

Приклад форми по завершенню програми наведено на рис. 4.19.

Рисунок 4.19 - Форма в процесі роботи

Приклад 4.3.2

Задана дійсна матриця Х розміром m*n. Стовпці, які починаються з додатних елементів записати у зворотному порядку.

Розмістимо надану матрицю Х на “Лист2”, перетворену матрицю на “Лист3”. Додамо модуль до проекту .

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

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

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