VBA, макрос Опции

[Бяляво4ка]

условие: заданы элементы m1,m2...m20. преобразование:m20,m19...м11,m1,m2...m10.

Sub lab6()
Const N = 20
Dim Z As Double, Left As Double, Left1 As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I

\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next i
\\помогите преобразовать точнее поставить м1, м2... между м11 и м10

Сообщение отредактировано: Бяляво4ка - 16.06.2010 19:43

[Бяляво4ка]

Код

Sub lab()
Const N = 20
Dim Z As Double
Dim A(1 To 20) As Double
Dim I As Integer
For I = 1 To 20
A(I) = InputBox("Ввод числа для" & _
" элемента (" & I & ")")
Next I

\\разворот массива
For I = 1 To N \ 2
Z = A(I)
A(I) = A(UBound(A) - I + 1)
A(UBound(A) - I + 1) = Z
Next I

\\перестановка элементов
For I = 11 To 11 + N / 4
       Z = A(I)
       A(I) = A(20 - I + 11)
       A(20 - I + 11) = Z
    Next I

\\вывод
For I = 1 To 20
MsgBox A(I)
Next I

End Sub

зделала

может кому пригодится ^^

Сообщение отредактировано: Бяляво4ка - 16.06.2010 19:46