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

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


textual

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

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.250 из 5



Похожие ответы
  1. Это продолжение. См. также другие части этой статьи:Часть 1. Кусочек теории.Часть 3. Программа проверки Authenticode ЭЦПЧасть 2. Описание реализации программы проверки подписейСодержание: 2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписей

  1. Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо грузить данные. Предполагаю, что вопрос не впервые возник, поэтому буду признателен как хорошим ответам, так и дельным ссылкам на похожие темы. Заранее спасибо.

  1. Доброго всем дня! подскажите где у меня ошибка, данный код не прописывает в ячейку книги, данные. заранее спасибо!

  1. Дано четыре числа. Пожалуйста определите сумму наибольшего и квадрата наименьшего чисел.

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Дан целочисленный массив, заполненный 0,1 и 2 в случайном порядке. изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2Добавлено через 9 минут массив проинициализированный

  1. выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».

  1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

  1. Cоставить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке.Например,для числа 1234 получаем ответ 4321.

  1. Вообщем простенькая задача как ее можно реализовать? Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305