Legio
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата:| 1. заменит первые k элементов массива на те же элементы в обратном порядке; |
Код:
Option Explicit
Sub aChange(ByRef a())
Dim i As Integer, uLimit As Single, t
If LBound(a) = UBound(a) Then Exit Sub
i = LBound(a)
uLimit = (UBound(a) + LBound(a)) / 2
Do While (i <= uLimit)
t = a(i)
a(i) = a(UBound(a) - i + LBound(a))
a(UBound(a) - i + LBound(a)) = t
i = i + 1
Loop
End Sub
Private Sub Form_Load()
Dim i As Integer, a()
ReDim a(2 To 4)
a(2) = 1
a(3) = 2
a(4) = 3
' For i = LBound(a) To UBound(a)
' MsgBox a(i)
' Next
Call aChange(a)
' For i = LBound(a) To UBound(a)
' MsgBox a(i)
' Next
End Sub
|
в VB6 работает =__=
Цитата:| 2. удалить строку и столбец на пересечении которых находится максимальный элемент массива. |
В каком смысле удалить?.. Новый массив создать, нулями заполнить, в старом элементы подвинуть/размерность изменить?
----------
Side? I'm on nobody's side, because nobody is on my side... |
|
