решил задачку, котрорую постил #76(Преобразование входного массива по правилу: элементы строк с четными (нечетными) номерами увеличить (уменьшить) на вводимую величину переменной А), авось пригодится кому-нибудь
Visual Basic 2005
пишу код процедуры (ввод-вывод кому как нравится)
Public Sub m2(ByRef a(,) As Integer, ByRef strok() As Integer, ByRef lb As ListBox)
Dim i, j, n, t, k, e, w As Integer
Dim y As String = ""
Dim s As String = ""
Dim a2(,) As Integer
Dim stroka, stolb As Integer
stroka = a.GetLength(0)
stolb = a.GetLength(1)
ReDim a2(0 To stroka - 1, 0 To stolb - 1)
For n = 0 To 1
If n = 0 Then
For i = 0 To stroka - 1
For j = 0 To stolb
If j > stolb - 1 And j <> 0 Then
j = 0
Exit For
End If
k = CInt(TextBox3.Text)
If n = 0 Then
t = a(i, j) + k
Else
t = a(i, j) - k
End If
a2(i, j) = t
j = j + 1
Next
Next
j = 1
Else
For i = 0 To stroka - 1
For j = 1 To stolb
If j > stolb - 1 And j <> 0 Then
j = j - 1
End If
k = CInt(TextBox3.Text)
If n = 0 Then
t = a(i, j) + k
Else
t = a(i, j) - k
End If
a2(i, j) = t
j = j + 1
Next
Next
j = 1
End If
Next
lb.Items.Clear()
For e = 0 To stroka - 1
y = ""
For w = 0 To stolb - 1
s = Format(a2(e, w), "00")
If a2(e, w) < 0 Then
s = Space(2) + s
Else
s = Space(3) + s
End If
y = y + s
Next
Next
End Sub