Код програми

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”. Додамо модуль до проекту .

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

<== попередня сторінка	\|	наступна сторінка ==>
Код програми	\|	Код програми

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.006 сек.