پیدا کردن min در ارایه

[ravegoat]

سلام برای min مقدار اولیه x(i ) رو در نظر گرفتم اما عدد اخر رو به عنوان کوچکترین عدد میگیره
مثلا اگه سه عدد 15 و 12 و 45 بدیم 45 را کوچکترین میگیره

سلام،

پس احتمالا شرط همیشه درسته که سبب میشه عدد آخر همیشه به عنوان حداقل اعداد در نظر گرفته بشه (اگر کدتون رو می ذاشتید احتمالا مشکل حل میشد).

کدش به شکل زیره:

Dim number(3) As Integer

number(0) = 15
number(1) = 15
number(2) = 45

Dim minimum As Integer
minimum = number(0)

For i = 1 To 2
    If number(i) < minimum Then
        minimum = number(i)
    End If
Next