![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
' Кнопка Пуск
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; Прочитано: 447 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!