| Вопрос: Прошу помощи с разрешающим массивом. | Добавлено: 24.05.08 20:44 |
Автор вопроса:  Blood
|
| Ответы | Всего ответов: 21 |
|
Номер ответа: 16 Автор ответа:  Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #16 | Добавлено: 24.05.08 23:42 |
|
Blood не подскажешь почему в VB6 этот код не вызывает ошибки
Dim n, m As Byte
Set n = New Collection ведь n это у нас Byte верно? Или отличник всётаки был неправ? |
||
|
Номер ответа: 17 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #17 | Добавлено: 24.05.08 23:48 |
|
Кстати универ я закончил четыре года назад, а программирую со школы.
Офигеть какие новички попадаются, умные 
Ты не ответил причём тут VBA. VBA - это Visual Basic for Applications на будущее пригодится. |
||
|
Номер ответа: 18 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #18 | Добавлено: 25.05.08 00:16 |
|
result = -2147483648
resulti = -1 for i = 2 to cols can = true prod = 1 for j = 1 to lines if a(j,1) < a(j,i) then can = false prod = prod * a(j,i) next if can and (prod > result or resulti = -1) then result = prod resulti = i end if next MsgBox resulti |
||
|
Номер ответа: 19 Автор ответа: Blood Вопросов: 2 Ответов: 12 |
Профиль | | #19 | Добавлено: 25.05.08 20:49 |
|
Большое спасибо всем, у меня получилось. Но встал новый вопрос : мне нужно отсортировать столбцы по убыванию. Я пытаюсь пузырьковым методом, но он не работает, не посмотрите ?
Private Function Sort(Mas1() As Integer, n1 As Byte, m1 As Byte)
Dim zap As Integer For j = 1 To m1 - 1 For i = 1 To j If Mas1(i, j) < Mas1(i + 1, j) Then zap = Mas1(i, j) Mas1(i, j) = Mas1(i + 1, j) Mas1(i + 1, j) = zap Debug.Print Mas1(i, j) End If Next i Debug.Print " " Next j End Function Что то он не то делает, можете помочь, голова уже вообще не варит( |
||
|
Номер ответа: 20 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #20 | Добавлено: 25.05.08 22:25 |
| Столбцы не являются упорядоченным множеством, так как изоморфны R^n, где n>2 | ||
|
Номер ответа: 21 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #21 | Добавлено: 25.05.08 22:25 |
| >= | ||