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

[YASHAR2020]

سلام یه سوال داشتم می خواستم در ویژوال بیسیک بخش آرایه min رو پیدا کنم
For i = 1 To x.Length - 1
min = x(i)

If min > x(i) Then
min = x(i)
End If
رو وارد کردم اما عدد اخر رو به عنوان عدد کوچکتر نشون میده
هرکی میدونه جواب بده لطفا

[محمود 8080]

سلام یه سوال داشتم می خواستم در ویژوال بیسیک بخش آرایه min رو پیدا کنم
For i = 1 To x.Length - 1
min = x(i)

If min > x(i) Then
min = x(i)
End If
رو وارد کردم اما عدد اخر رو به عنوان عدد کوچکتر نشون میده
هرکی میدونه جواب بده لطفا

سلام دوست عزیز
.
به ترفندستان خوش آمدید.

شاید این لینک بهتون کمک کنه @[تنها اعضای سایت قادر به دیدن لینک‌ها هستند. ]
[تنها اعضای سایت قادر به دیدن لینک‌ها هستند. ]


موفق باشید.

[YASHAR2020]

سلام دوست عزیز
.
به ترفندستان خوش آمدید.

شاید این لینک بهتون کمک کنه @[تنها اعضای سایت قادر به دیدن لینک‌ها هستند. ]
[تنها اعضای سایت قادر به دیدن لینک‌ها هستند. ]


موفق باشید.

سلام بازم جواب 0میده لطف اهر کی می دونه کمک کنه

[Abolfazl.E]

سلام
به ویژوال بیسیک آشنا نیستم ولی روند کلی این الگوریتم ساده تو همه یکی هست. سینتکس حلقه for در ویژوال بیسیک در انتهاش یک next هم داره که شما نذاشتین و احتمال داره به خاطر همین موضوع مقدار دهی اولیه min و اون if دچار مشکل شده باشه.
این سینتکس حلقه for در vb هست:

.تنها اعضای سایت قادر به دیدن این محتوا هستند. لطفاً وارد شوید و یا برای عضویت رایگان و بی‌دردسر در سایت کلیک کنید

و اما اشتباه شما: شما در ابتدای حلقه میاین min رو مقدار دهی میکنید این یعنی در هر دور حلقه مقدار اولیه min از دست میره! قبل از حلقه شما min رو برابر x[0] (اولین عضو آرایه) قرار بدید.
به این صورت که در زبان C به عنوان مثال براتون نوشتم:

.تنها اعضای سایت قادر به دیدن این محتوا هستند. لطفاً وارد شوید و یا برای عضویت رایگان و بی‌دردسر در سایت کلیک کنید

مورد سوم اینکه شما با استفاده از ابزارهای دیباگر (Debuger) میتونید خط خاصی از کد (در این مورد، مقدار دهی متغیر min) رو breakpoint بزارید و روند مقدار دهی رو در دیباگر مشاهده کنید. ابزار دیباگر رو اکثر برنامه های کدنویسی و IDE ها دارن در خودشون.

مثال:



موفق باشید.