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

[rezagholamipour]

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

[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 قرار میده

[rezagholamipour]

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

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 قرار میده

ممنونم حل شد