راهنمایی در مورد جستجو در آرایه

[khag]

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

http://www.lon.ir/up/uploads/1274106364.rar
http://www.lon.ir/up/uploads/1274106364.rar

 

[the_king]

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

http://www.lon.ir/up/uploads/1274106364.rar
http://www.lon.ir/up/uploads/1274106364.rar

در رخداد Command1_Click مقدار متغیر c را چنین تعیین کرده اید :

    c = 0
    For i = 1 To n
        If x(i) = y Then
            c = 1
        End If
    Next i

یعنی اگر مقدار y در آرایه پیدا شد، چه یکبار و چه صد بار، مقدار c برابر 1 گردد.
شما می توانید بجای تغییر دادن مقدار c به 1 ، آنرا افزایش دهید :

    c = 0
    For i = 1 To n
        If x(i) = y Then
            c = c + 1
        End If
    Next i

حالا c تعداد تکرار وجود مقدار y در آرایه را نشان می دهد.

    If c > 0 Then
        Text1.Text = "found (" & CStr(c) & " Times)"
    Else
        Text1.Text = "no found"
    End If

 

[khag]

(" & CStr(c) & " Times)"
این تکه برای چی بود!!!!
ایا میشه چیزی دیگه بنوسیم به جای این دستور