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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник