Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VBA] Поиск минимума

Автор: Delfi 26.5.2009, 12:22

[Visual Basic]
Найти порядковый номер минимального числа в массиве. Написать программу

Автор: mr.Anderson 26.5.2009, 16:23

!
mr.Anderson

Модератор: оформляйте темы правильно! Не дублируйте темы!

И, пожалуйста, задавайте вопросы вежливо, хотя бы с приветствием, вы не машину просите помочь, а к людям обращаетесь.

Автор: neic 26.5.2009, 21:08

Код


Randomize
Dim mas(10) As Integer

For i = 1 To 10
    mas(i) = CInt(Rnd() * 9)
    Label1.Caption = Label1.Caption & " " & mas(i)
Next

Min = 9999

For i = 1 To 10
    If mas(i) < Min Then
        Min = mas(i)
        k = i
    End If
Next

MsgBox "Минимальное число " & Min & ", порядковый номер " & k