ICQ - форум. Всё про ICQ.  

Вернуться   ICQ - форум. Всё про ICQ. > Мастерская > Программирование

Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal

 
 
Опции темы Оценить тему
Старый 06.01.2012, 22:23   #1
Участник
 
Регистрация: 24.06.2008
Сообщений: 530

Репутация: 864
По умолчанию visual basic

Как в Visual Basic в операторе For задать условие, что если функция меньше или равно нулю, следует закончить For и перейти к следующему n, при этом вывести в ListBox строку "Не подходит по условию".??
...vamp вне форума  
Старый 10.01.2012, 14:24   #2
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Думаю это лучше делать while'ом.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Плюсанул .fry :
Старый 11.01.2012, 15:19   #3
Участник
 
Регистрация: 24.06.2008
Сообщений: 530

Репутация: 864
По умолчанию

Sub proizvedenie(ByRef z() As Single)
Dim i As Single
Dim p As Double
Dim r As Double
Dim Max As Double
ReDim Preserve z(9)
Max = z(0)
For i = 1 To UBound(z)
If Abs(z(i)) > Abs(Max) Then Max = z(i)
Next i
Vivod(Max, TextBox2)
End Sub

как мне вывести индекс Max?(
...vamp вне форума  
Старый 11.01.2012, 16:22   #4
Участник
 
Аватар для sm0ke
 
Регистрация: 12.05.2009
Сообщений: 178

ICQ: 100500

Репутация: 245
Bimoid
По умолчанию

попробуй так
Sub proizvedenie(ByRef z() As Single)
Dim i As Single
Dim p As Double
Dim r As Double
Dim index As Integer
Dim Max As Double
ReDim Preserve z(9)
Max = z(0)
For i = 1 To UBound(z)
If Abs(z(i)) > Abs(Max) Then Max = z(i) index = i
Next i
Vivod(index, TextBox2)
End Sub
sm0ke вне форума  
 

Опции темы
Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +3, время: 10:27.


Перевод: zCarot
Форум Асечников © Asechka.RU

Новости Сочи