| Вопрос: Пожалуйста! Помогите! что делать?!) | Добавлено: 23.07.08 13:07 |
Автор вопроса:  yan
|
| Ответы | Всего ответов: 21 |
|
Номер ответа: 16 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #16 | Добавлено: 23.07.08 15:41 |
|
А так?
Sub zzzz()
Dim arr1(1 To 5) As Long Dim d1 As Long Dim d2 As Long Dim flg As Boolean arr1(1) = 0 arr1(2) = 3 arr1(3) = 5 arr1(4) = 7 arr1(5) = 9 flg = True For i = LBound(arr1) + 1 To UBound(arr1) - 1 d1 = arr1(i) - arr1(i - 1) d2 = arr1(i + 1) - arr1(i) If d1 <> d2 Then flg = False MsgBox "Не арифм. прогрессия" Exit For End If Next i If flg Then MsgBox "Арифм. прогрессия" End Sub |
||
|
Номер ответа: 17 Автор ответа: yan Вопросов: 1 Ответов: 11 |
Профиль | | #17 | Добавлено: 23.07.08 15:42 |
|
Спасибо! Спасибо!
Андрюх, выручил немерено! Спасибо большое!!! |
||
|
Номер ответа: 18 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #18 | Добавлено: 23.07.08 15:44 |
| Не за что. | ||
|
Номер ответа: 19 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #19 | Добавлено: 23.07.08 17:02 |
| Молодцы | ||
|
Номер ответа: 20 Автор ответа: yanВопросов: 1 Ответов: 11 |
Профиль | | #20 | Добавлено: 23.07.08 17:11 |
|
Спасибо!
www.vbnet.ru/forum/ - лучший форум!!! |
||
|
Номер ответа: 21 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #21 | Добавлено: 24.07.08 08:06 |
|
Молодцы Гы... Ждали выпускников МГУ  )
|
||