|
Программирование 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 строку "Не подходит по условию".??
|
10.01.2012, 14:24 | #2 |
Участник
|
Думаю это лучше делать while'ом.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. |
Плюсанул .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?( |
11.01.2012, 16:22 | #4 |
Участник
Регистрация: 12.05.2009
Сообщений: 178
ICQ: 100500 Репутация: 245
|
попробуй так
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 |