VB.2000
سه شنبه 21 خرداد 1392, 13:44 عصر
سلام
من این کدو راستش هر جور فکر کردم نتونستم برای خودم تشریح کنم این کدا رو .
راستش من کلا هرچی سعی کردم از همین VB همین حلقه های تکرارو نتونستم برای مغزم تعریف کنم ! شاید واقعا:عصبانی++:شده باشم ...
این برنامه از InputBox , ده تا عدد میگیره و در لیست باکس اد میکنه و در آرایه قرار میده .
و ما میخوایم که عددی که بیشتر از همه تکرار شده رو به ما بگه (همراه با تعداد دفعات تکرار)
حالا من این کدو دارم , و اگه ممکنه برام همین قسمت FOR تو در توشو توضیح بدید ممنوننتون میشم .
ممنون
Dim a(10) As Integer
Dim i, j, Num, Count, MaxCount As Integer
For i = 1 To 10
a(i) = Convert.ToInt16(InputBox("Enter a number", ""))
ListBox1.Items.Add(Str(a(i)))
Next
MaxCount = 0
' ------------------------ FOR
For i = 1 To 10
Count = 0
For j = i To 10
If a(i) = a(j) Then Count = Count + 1
Next
If Count > MaxCount Then
MaxCount = Count
Num = a(i)
End If
Next
' ------------------------ FOR
If MaxCount > 1 Then
Label1.Text = Num.ToString() + " Count is " + MaxCount.ToString()
End If
من این کدو راستش هر جور فکر کردم نتونستم برای خودم تشریح کنم این کدا رو .
راستش من کلا هرچی سعی کردم از همین VB همین حلقه های تکرارو نتونستم برای مغزم تعریف کنم ! شاید واقعا:عصبانی++:شده باشم ...
این برنامه از InputBox , ده تا عدد میگیره و در لیست باکس اد میکنه و در آرایه قرار میده .
و ما میخوایم که عددی که بیشتر از همه تکرار شده رو به ما بگه (همراه با تعداد دفعات تکرار)
حالا من این کدو دارم , و اگه ممکنه برام همین قسمت FOR تو در توشو توضیح بدید ممنوننتون میشم .
ممنون
Dim a(10) As Integer
Dim i, j, Num, Count, MaxCount As Integer
For i = 1 To 10
a(i) = Convert.ToInt16(InputBox("Enter a number", ""))
ListBox1.Items.Add(Str(a(i)))
Next
MaxCount = 0
' ------------------------ FOR
For i = 1 To 10
Count = 0
For j = i To 10
If a(i) = a(j) Then Count = Count + 1
Next
If Count > MaxCount Then
MaxCount = Count
Num = a(i)
End If
Next
' ------------------------ FOR
If MaxCount > 1 Then
Label1.Text = Num.ToString() + " Count is " + MaxCount.ToString()
End If