برنامه دریال 10 عدد و مشخص کردن بیترین تکرار

[ho3ein.3ven]

با سلام
لطفا اگه کسی بلد این برنامه رو برام بنویسه . فردا انتحان دارم
برنامه ای بنویسید که 10 عدد را دریافت کند و در آرایه ای قرار دهد و عددی که بیشتر تکرار شده است را چاپ کند.
با تشکر

[ho3ein.3ven]

بچه ها یعنی این برنامه اینقدر سخته ؟

[محسن واژدی]

سلام
کد زیر را بررسی کنید:

Option Explicit

Private Sub Command1_Click()
Dim sNums$
Dim sMaxNum$
Dim iMaxCount%
Dim iCN%
Dim i, j
Dim vNums(10)
vNums(0) = 1
vNums(1) = 2
vNums(2) = 1
vNums(3) = 1
vNums(4) = 5
vNums(5) = 5
vNums(6) = 7
vNums(7) = 10
vNums(8) = 5
vNums(9) = 5
sNums$ = "|"
For i = LBound(vNums) To UBound(vNums)

If InStr(1, sNums$, "|" & vNums(i) & "|") = 0 Then
iCN% = 0
For j = LBound(vNums) To UBound(vNums)
If vNums(j) = vNums(i) Then
iCN% = iCN% + 1
End If
Next j
If iCN% > iMaxCount% Then
sMaxNum$ = vNums(i)
iMaxCount% = iCN%
End If
sNums$ = sNums$ & vNums(i) & "|"
End If
Next 'i
MsgBox "Max repeat number: " & sMaxNum$ & " (Count: " & iMaxCount% & ")", vbInformation
End Sub

موفق باشید

[Mr'Jamshidy]

:قهقهه::بامزه:

آقای واژدی خداوکیلی از کجا فهمیدی این بنده خدا چی میخواد؟
برنامه دریال 10 عدد و مشخص کردن بیترین تکرار

من اولش گفتم ببین این دیگه چیه :بامزه:

[ho3ein.3ven]

:قهقهه::بامزه:

آقای واژدی خداوکیلی از کجا فهمیدی این بنده خدا چی میخواد؟
برنامه دریال 10 عدد و مشخص کردن بیترین تکرار

من اولش گفتم ببین این دیگه چیه :بامزه:

داداش یه اشتباه تایپی
تازه منم اینو درست کرده بودم نمیدونم چرا خراب شد

[Mr'Jamshidy]

داداش یه اشتباه تایپی
تازه منم اینو درست کرده بودم نمیدونم چرا خراب شد

فدای سرت دوست عزیز

مشکلت که بلاخره حل شد؟