Найти наименьшее из всех чисел, меньших 15 и его порядковый номер - VB

Узнай цену своей работы

Формулировка задачи:

Помогите исправить косяк с порядковым номером,плиз

Решение задачи: «Найти наименьшее из всех чисел, меньших 15 и его порядковый номер»

textual
Листинг программы
Private Sub Command1_Click()
Dim N As Integer, i As Integer, MIN As Single, porN As Integer, x As Single
Cls
N = Val(InputBox("Введите N")) 'непонятно, зачем ограничивать длину ряда
i = 0: porN = 0: MIN = 15
Do While i < N                 'делать петлю до тех пор , пока количество элементов не превысит числа N
    i = i + 1
    x = Val(InputBox("Введите X (" & i & ")"))
    If x = 0 Then Print "Конец ввода": Exit Do
    If x < MIN Then
           MIN = x: porN = i
           Print "Мин. знач. = " & MIN & "  Порядковый номер = "; porN
    Else:
           Print "Ввeдено число " & x & " , не меньше минимального. Мин. знач.="; MIN
    End If
Loop
If porN = 0 Then MsgBox "Не было введено ни одного значения меньше 15": Exit Sub
MsgBox "Минимальное значение = " & MIN & vbCrLf & _
       "Порядковый номер = " & porN, , "Результат"
End Sub

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы