Дана непустая последовательность различных натуральных чисел ... - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д