powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите
7 сообщений из 7, страница 1 из 1
Помогите
    #32451885
Ребята, вопрос наверно выглядит немного глупо, но...
у меня есть функция Public Function FindLeastElement(ByRef a() As Double, ByVal N As Long) As Long и тд. и я хочу привязать её к форме, то есть чтобы при нажатии command1_click() выполнялась вышеуказанная функция. Как это правильно написать, подскажите плз. Заранее благодарю
...
Рейтинг: 0 / 0
Помогите
    #32451905
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
private sub command1_click()

FindLeastElement(10,20)

end sub


Ниче не понял :(

Magnus
...
Рейтинг: 0 / 0
Помогите
    #32451910
мадама
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
dim x as long
x = FindLeastElement(ByRef a() As Double, ByVal N As Long) 

or

Код: plaintext
1.
2.
3.
if FindLeastElement(ByRef a() As Double, ByVal N As Long) = 1  then
     'тут можете разместить что-нибудь, что обрабатывает возвращаемое значение 
       'или ничего не размещайте
end if


or

переделайте вашу функцию как sub и вызывайте её так

Код: plaintext
call FindLeastElement(ByRef a() As Double, ByVal N As Long) 
...
Рейтинг: 0 / 0
Помогите
    #32451915
мадама
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ой, забыла указать, вместо a() and N подставьте свои значения
...
Рейтинг: 0 / 0
Помогите
    #32451921
Вообще, выдаёт ошибку, пишет, что ожидает знак равенства во второй строке:

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
...
Рейтинг: 0 / 0
Помогите
    #32451924
Мадама, огромное 10х )
...
Рейтинг: 0 / 0
Помогите
    #32451927
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну эт я так, для примера кинул.

На самом деле надо без скобок. Со скобками это если расчитываешь получить значение.


Magnus
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]