Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
22.03.2004, 18:20
|
|||
|---|---|---|---|
|
|||
Помогите |
|||
|
#18+
Ребята, вопрос наверно выглядит немного глупо, но... у меня есть функция Public Function FindLeastElement(ByRef a() As Double, ByVal N As Long) As Long и тд. и я хочу привязать её к форме, то есть чтобы при нажатии command1_click() выполнялась вышеуказанная функция. Как это правильно написать, подскажите плз. Заранее благодарю ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.03.2004, 18:33
|
|||
|---|---|---|---|
Помогите |
|||
|
#18+
private sub command1_click() FindLeastElement(10,20) end sub Ниче не понял :( Magnus ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.03.2004, 18:36
|
|||
|---|---|---|---|
Помогите |
|||
|
#18+
Код: plaintext 1. or Код: plaintext 1. 2. 3. or переделайте вашу функцию как sub и вызывайте её так Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.03.2004, 18:39
|
|||
|---|---|---|---|
Помогите |
|||
|
#18+
Ой, забыла указать, вместо a() and N подставьте свои значения ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.03.2004, 18:41
|
|||
|---|---|---|---|
|
|||
Помогите |
|||
|
#18+
Вообще, выдаёт ошибку, пишет, что ожидает знак равенства во второй строке: Private Sub command1_Click() FindLeastElement(10,20) End Sub Public Function FindLeastElement(ByRef a() As Double, ByVal N As Long) As Long Dim Result As Long Dim I As Long Result = 0 For I = 1 To N - 1 Step 1 If a(Result) > a(I) Then Result = I End If Next I FindLeastElement = Result End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.03.2004, 18:44
|
|||
|---|---|---|---|
|
|||
Помогите |
|||
|
#18+
Мадама, огромное 10х ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&tablet=1&tid=2169895]: |
0ms |
get settings: |
11ms |
get forum list: |
22ms |
check forum access: |
5ms |
check topic access: |
5ms |
track hit: |
57ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
59ms |
get tp. blocked users: |
2ms |
| others: | 268ms |
| total: | 445ms |

| 0 / 0 |
