دریافت 5 عدد صحیح و چاپ بزرگترین ,کوچکترین و حاصل جمع آنها در خروجی!!

[karem2074]

با سلام
دوستان من میخوام 5 عدد صحیح را در Inputbox وارد کنم و بزرگترین ,کوچکترین و حاصل جمع آنها را برام در Msgbox چاپ کنه.ممنون میشم کمکم کنید.

[aleas2]

یه
Command1
رو فرم بساز این کد وارد کن


Private Sub Command1_Click()
Dim a(4) As Integer, b As Integer, max As Integer, min As Integer, i As Integer
For i = 0 To 4
a(i) = InputBox("adad=" & i + 1)
Next i
max = a(0)
min = a(0)
For i = 0 To 4
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
b = b + a(i)
Next i

Print "max=" & max
Print "min=" & min

Print "---------"
Print b
End Sub

[vb6_man]

جواب شما درست نیست
چون برنامت واسه مقادیر کمتر از 0
درست کار نمی کنه
شما باید اولین عدد رو بگیری و هم در Min و هم در Max قرار بدی
بعد اینارو با بقیه اعداد مقایسه کنی
اونوقت درست میشه

هیچ کس سوال نپرسید حوصلم سر رفت
گفتم به چیزای الکی گیر بدم:بامزه::خجالت:

دارم میرم فوتبال
وقتی برگشتم حوصلم سر نره ها:متعجب::لبخند:

[shahab.f.c]

Private Sub Command1_Click()

Dim a(4) As Integer, b As Integer, max As Integer , min as integer,i as integer
a= inputbox("adad")
min=a
max = a
i=i+a
for b = 1 t0 4
a=inputbox("adad")
i=i+a
if a>= max then max=a
if a<= min then min =a
next b
msgbox(max)
msgbox(min)
msgbox (i)
end sub

max=بزرگه
min= کوچیکه
i=مجموع

[vb6_man]

آفرین شهاب
فقط تو For B=1 ...
چرا T0 نوشتی؟
به جای "O" از صفر استفاده کردی که Error می ده:قهقهه:
البته واسه اینکه سیستم زیاد کار انجام نده می تونی شرط ها رو بجای <= یا >= تغییرش بدی به > , <
حالا مساوی باشه چرا a رو میریزی تو Max یا Min :بامزه:

در ضمن مهمتر از همه اینکه a رو از حالت Array خارج کن:قلب:

[VG123456]

بسمه تعالی
*-*-*-*-*-*-*

دوستان اصلا این سوال نیاز به آرایه نداره :قهقهه:

شما یک command روی فرم درست کن و کد زیر را توش بنویس : همین !

Private Sub Command1_Click()
Dim N As Integer
Sum = 0
Max = 0
Min = 0
For i = 1 To 5
N = InputBox("Input Number :" & Str(i))
Sum = Sum + N
If N > Max Then Max = N
If N < Min Then Min = N
Next
MsgBox ("Sum Numbers :" & Sum)
MsgBox ("Max Number :" & Max)
MsgBox ("Min Number :" & Min)
End Sub

[vb6_man]

عزیزم همچین خندیدی که من گفتم Energy هسته ای رو مهار کردی
اولا شما هم اشتباه کردی
چون برنامه شما هم واسه مقادیر زیر 0 ( اعداد منفی ) کار نمی کنه
کد شهاب درست بود فقط تو تعریف آرایه ( که مربوط به جواب Aleas2 میشه ) مشکل داشت

درکل طرف خودش بی خیال شده بود ( صاحب تاپیک رو می گم )
حالا ما گیر دادیم:قهقهه:
آقا من حوصلم سر رفته بود ( چون کسی چیزی نمی گفت ) گفتم الکی اشکال بگیرم از یکی

زیاد کشش ندین بابا:متعجب::بامزه:

[VG123456]

بسمه تعالی
*-*-*-*-*-*
دوست من ، من که تست کردم جواب بهم درست داد!
نمی دونم شاید شما درست میگید .!

[vb6_man]

شما الان تست کردی عدد منفی دادی ولی درست کار کرد؟:متعجب:
به قول بعضی ها کامپایل کردی؟:بامزه:
دوباره اعداد رو وارد کن ( همشون رو منفی بده ) ببین Max چند می شه
اگه همه منفی باشه قطعا یکی از اعداد منفی که بزرگتر از بقیه هست باید در Max قرار بگیره
ولی در کد شما مقدار 0 قرار می گیره
حالا باز هم درسته؟

[aleas2]

دوست عزیز شما خودتون درست چک میکنین؟کدی که بنده نوشتم چندین بار تست کردم هیچ مشکلی نداره برای عداد منفی هم بزرگترین و کوچک ترین عدد کاملا درست میده اول شما بگین -1 بزرگ تره یا -10 ؟ البته این کدی بنده دادم به این روش هم میشه نوشت

Private Sub Command1_Click()
Dim a(4) As Integer, b As Integer, max As Integer, min As Integer, i As Integer
a(0) = InputBox("adad=" & 1)
max = a(0)
min = a(0)
b = a(0)
For i = 1 To 4
a(i) = InputBox("adad=" & i + 1)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
b = b + a(i)
Next i

Print "max=" & max
Print "min=" & min

Print "---------"
Print b
End Sub

[shahab.f.c]

ولی این بدون استفاده آرایه هاست
Private Sub Command1_Click()

Dim a As Integer, b As Integer, max As Integer , min as integer,i as integer
a= inputbox("adad")
min=a
max = a
i=i+a
for b = 1 to 4
a=inputbox("adad")
i=i+a
if a>= max then max=a
if a<= min then min =a
next b
msgbox(max)
msgbox(min)
msgbox (i)
end sub