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

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

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

                    Листинг программы
                
 
                        
                          
                    
 Private sub cmd click()
Dim i, N As Integer, x,min As Single 
N=(InputBox(-------,0 конец послед))
min=-32000
For i=1 To N
X=Val(InputBox())
if x<15 and x<min Then min=x
Next i

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы