max,min,avg چند عدد؟؟؟

[hassan_71]

سلام خسته نباشید.
لطفا یکی به من کمک کنه:ناراحت: من برنامه ای رو میخوام که 20 عدد از ورودی دریافت کند و سه کامند جدا از هم داشته باشیم که هر کدام max , min , avg اعداد را برای ما چاپ کند !! :متفکر: یه دنیا ممنون

[javadt]

شما باید از آرایه استفاده کنید
باید توسط حلقه و Inputbox مقدار رو از کاربر بگیرید
و در دکمه ها هم محاسبات لازم رو قرار بدید
این هم یک مثال برای دریافت و چاپ اعداد
Dim Num(20) As Long

Private Sub Command1_Click()
For i = 1 To 20
Print Num(i)
Next i
End Sub

Private Sub Form_Load()
For i = 1 To 20
Num(i) = Val(InputBox("Insert Number", "Number"))
Next i
End Sub

[hassan_71]

minوmaxوavg هم اگه میشه بگین!!!1

[returnx]

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

Dim min As Integer
Dim sum As Integer
Dim max as Integer
Dim avg As Integer
max = 0
For i = 1 To 5
a = InputBox("")
If i = 1 Then
min = a
ElseIf a < min Then
min = a
End If

If a > max Then
max = a
End If
sum = a + sum
Next i
avg = sum / 5
Print "Max:" & max
Print "Min:" & min
Print "Avg:" & avg