Дана непустая последовательность различных натуральных чисел ... - 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