انتخاب بزرگترین عدد در ویژوال بیسیک

سلام
من می خواستم برنامه ای ساده بنویسم که بین چند عدد بزرگترین رو انتخاب کنه
یعنی بین تعداد زیادی از اعداد بزرگترین رو انتخاب کنه
ممنون میشم اگه جوابمو بدید

اگه به صورت در یافت عدد باشه این طوری می شه

Private Sub Command1_Click
Dim intNum1 As Integer, intMax As Integer
For i = 1 To 1000 ' you can insert every size
intNum1 = InputBox("")
If intNum1 > intMax Then intMax = intNum1
Next i
End Sub
این برنامه 1000 عدد رو از ورودی دریافت مکنه و بزرگترینش رو انتخاب میکنه ودر intMax قرار میده

نقل قول:

---

نوشته شده توسط Mohammad_HNF [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگه به صورت در یافت عدد باشه این طوری می شه

Private Sub Command1_Click
Dim intNum1 As Integer, intMax As Integer
For i = 1 To 1000 ' you can insert every size
intNum1 = InputBox("")
If intNum1 > intMax Then intMax = intNum1
Next i
End Sub
این برنامه 1000 عدد رو از ورودی دریافت مکنه و بزرگترینش رو انتخاب میکنه ودر intMax قرار میده

---

ممنونم حل شد