بزرگترین عدد

[vB.N3T]

سلام دوستان

من به تازگی با مبحث بردار ها اشنا شدم از یک کتاب یه تمرین داده اخر کتابه اومدم حل کنم تا نصف حل کردم کمک کنید اینو حل کنم از رو همین نمرین کنم

یه برنامه که 20 تا اسم میگیره با 20 تا نمره بعد اینارو ذخیره میکنه
تا اینجار مشکلی نیست
حالا بزرگتیرن عدد رو میخوام نمایش بده ..... میشه راهنماییی کنید

[M.T.P]

یه متغیر تعریف کن.
متغیر رو برابر با اولین نمره بزار.
یه حلقه بزار به تعداد 19 نمره باقیمونده و یه شرط داخل حلقه که چنانچه متغیر از نمره کوچک تر بود برابر با اون نمره بشه.

[Mohamad ghorbani]

این کد رو امتحان کن:

Dim Max As Double
Dim x As Double
x = InputBox("")
Max = x
For i = 2 To 20
x = InputBox("")
If x > Max Then Max = x
Next
Print Max

[ali_habibi1384]

کجا ذخیره کردی ؟ پایگاه داده یا فایل؟ اگه پایگاه داده است می تونی از دستور Sort استفاده کنی تا اعداد مرتب شوند و سپس اولین عدد بزرگترین عدد خواهد بود.

adodc1.recordset.sort("no")