Дана непустая последовательность различных натуральных чисел ... - VB

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

Помогите пожалуйста написать программу на Visual Basic. На форуме есть решение на языке Pascal,но нужно решение с алгоритмом на VB. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них

Решение задачи: «Дана непустая последовательность различных натуральных чисел ...»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Byte, a As Integer, s As String, min As Integer, imin As Integer
Cls
imax = 1
i = 0
min = 32767
Do
 a = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЅГ«ГҐГ¬ГҐГ*ГІ.ГЋГЄГ®Г*Г·Г*Г*ГЁГҐ ГўГўГ®Г¤Г* 0: ", "Г‚Г‚ГЋГ„"))
 s = s & " " & Str(a)
 i = i + 1
 If a <> 0 And a < min Then
  min = a
  imin = i
 End If
Loop Until a = 0
Print s
Print "Г€Г*Г¤ГҐГЄГ± MIN ГЅГ«ГҐГ¬ГҐГ*ГІГ*:=" & imin
End Sub

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

10 голосов , оценка 3.9 из 5

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

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

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