Как найти порядковый номер элемента последовательности - VB

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

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

Вводится последовательность ненулевых чисел, 0-конец последовательности.Найти наименьшее из всех чисел, меньших 15 и его порядковый номер. 1.Что значит ненулевых чисел? 2.Как найти порядковый номер? На данный момент программу написал так, но без этих двух вопросов.

Решение задачи: «Как найти порядковый номер элемента последовательности»

textual
Листинг программы
Private Sub Command1_Click()
Dim a, min As Single, N, K As Integer
min = 15
N = 0: K = 0
Do
  a = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)")
  N = N + 1
  If a = 0 Then Exit Do
  If a < min Then min = a: K = N
Loop While min < 15
Select Case a
Case o To 15
MsgBox "ГЌГ*èìåГ*ГјГёГҐГҐ ГЁГ§ ГўГ±ГҐГµ Г·ГЁГ±ГҐГ«, ìåГ*ГјГёГЁГµ 15 = " & min & " Г…ГЈГ® ïîðÿäêîâûé Г*îìåð =" & K
Case Is > 15
MsgBox "îøèáêГ*, Г·ГЁГ±ГҐГ« ìåГ*ГјГёГҐ 15 Г*ГҐ áûëî Г*Г*éäåГ*Г®"
End Select
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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