برنامه ای که تعدادی ...

[alireza0937]

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


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inti As Integer, strno As String
Dim sngmax As Single
Dim sngmin As Single
Dim sam As Single
Dim avg As Single
For inti = 1 To Val(txtno.Text)
strno = InputBox("Enter Number :", "InputBox", 0)
If strno >= 21 Or strno <= 0 Then Exit For
If inti = 1 Then
sngmax = Val(strno)
Else
If sngmax < Val(strno) Then sngmax = Val(strno)
End If

If inti = 1 Then
sngmin = Val(strno)
Else
If sngmin > Val(strno) Then sngmin = Val(strno)
End If
Next inti
MsgBox("max" + Str(sngmax) + "min" + Str(sngmin))
End Sub

[tolid123456789]

سلام دوست عزيز
بعد از كد MsgBox("max" + Str(sngmax) + "min" + Str(sngmin)) كد هايي رو كه بنده نوشتم رو اضافه كنيد

ListBox1.Items.Clear()
ListBox1.Items.Add("max" + Str(sngmax))
ListBox1.Items.Add("min" + Str(sngmin))

موفق باشيد
اگر سئوالي بود در خدمتم

[alireza0937]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inti As Integer, strno As String
Dim sngmax As Single
Dim sngmin As Single
For inti = 1 To Val(txtno.Text)
strno = InputBox("Enter Number :", "InputBox", 0)
If strno >= 21 Or strno <= 0 Then Exit For
If inti = 1 Then
sngmax = Val(strno)
Else
If sngmax < Val(strno) Then sngmax = Val(strno)
End If

If inti = 1 Then
sngmin = Val(strno)
Else
If sngmin > Val(strno) Then sngmin = Val(strno)
End If
Next inti
MsgBox("max" + Str(sngmax) + "min" + Str(sngmin))
ListBox1.Items.Clear()
ListBox1.Items.Add("max" + Str(sngmax))
ListBox1.Items.Add("min" + Str(sngmin))
End Sub
کدی که گفتید رو وارد کردم ولی متاسفانه چیزی داخل لیست باکس مشاهده نشد

[tolid123456789]

سلام
بنده كد بالا رو اجرا كردم و جواب داد

برنامتون رو مي تونيد اينجا بزاريد تا ببينيم مشكل از كجاست ؟

[مهرداد صفا]

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

با سلام.
به صورت زیر عمل کنید:

Dim number As Integer = InputBox("enter the first number:")
Dim numbers As New List(Of Integer)
While number >= 0 And number <= 20

numbers.Add(number)
number = InputBox("enter next number")
End While
numbers.Sort()
ListBox1.Items.AddRange(numbers.OfType(Of Object).ToArray)
MsgBox("the max= " & numbers.Max.ToString)
MsgBox("the min = " & numbers.Min)
MsgBox("the avg =" & numbers.Average)