Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Private Sub cmdRun_Click()



' Кнопка Пуск

Dim m As Integer, n As Integer

Dim min As Integer, max As Integer

Dim i As Integer, j As Integer

Dim k_min As Integer, k_max As Integer

Dim t As Integer, s As Integer

Dim a() As Integer

txtA. Value = ""

txtRez. Value = ""

m = CInt(txtM. Value)

n = CInt(txtN. Value)

ReDim a(m, n) As Integer

For i = 1 To m

For j = 1 To n

' Введення елементів масиву

a(i, j) = InputBox("Введіть елемент a(" & CStr(i) & "," & CStr(j) & ")")

' Виведення елементів першого масиву

txtA. Value = txtA. Value & CStr(a(i, j)) & " "

Next j

txtA. Value = txtA. Value & vbCrLf

Next i

' Знаходження суми елементів в рядку,

' максимальної та мінімальної суми

min = 32000: max = –32000

For i = 1 To m

s = 0

For j = 1 To n

If a(i, j) Mod 2 = 1 Then s = s + a(i, j)

Next j

If min > s Then

min = s: k_min = i

End If

If max < s Then

max = s: k_max = i

End If

Next i

For j = 1 To n

t = a(k_min, j)

a(k_min, j) = a(k_max, j)

a(k_max, j) = t

Next

' Виведення елементів перетвореного масиву

For i = 1 To m

For j = 1 To n

txtRez. Value = txtRez. Value & CStr(a(i, j)) & " "

Next j

txtRez. Value = txtRez. Value & vbCrLf

LblRez. Caption = "Міняємо місцями " & Str(k_min) & " та " & _

Str(k_max) & " рядки"

Next i

End Sub

Програмний код для кнопки CmdExit (подія Click)

Private Sub CmdExit_Click()

' Кнопка Вихід

UserForm1. Hide





Дата публикования: 2015-01-10; Прочитано: 430 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.005 с)...