 VBA, макрос |
Внимание!
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
| Бяляво4ка |
 16.06.2010 18:28
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: Маришка Репутация:  0   |
условие: заданы элементы 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ка VBA 16.06.2010 18:28
Бяляво4ка Sub lab()
Const N = 20
Dim Z As Double
Dim... 16.06.2010 19:40  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 15.11.2025 10:27 |