اشکال این کد چیه ؟

[mohammd1]

این کد ها توی ویژوال بیسیک 6 نوشته شده اند حالا مشکلی وجود داره که من پیداش نمی کنم دوستان ممنون میشم ( عه! این شکلک ها چرا اینطوری شدن؟ ) کارش پیدا کردن اعداد اول هستش
خطای منطقی هم نداره :

Option Explicit


Private Sub Command1_Click()

Cls

Dim a(1000)
For b = 1 To 1000
a(b) = b
Next b


For c = 2 To 1000
If a(c) <> 0 Then


For d = a(c) * 2 To 1000
a(d) = 0
Next d


Next c


For e = 2 To 1000
If a(e) <> 0 Then Print a(e)
Next e


End Sub

[samasara]

Option Explicit به ویژوال بیسیک می گوید کاربر خود تمام متغییرهای مورد نیازش را تعریف می کند پس با حذف این عبارت کلی از ایراد ها رفع می شود...
اما ایراد دگه اینکه برای دستور چند خطی if

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

end if در نظر نگرفتی ...

مطلب دیگه ای هم که هست الگوریم برنامت برای پیدا کردن اعداد اول درست کار نمی کنه....

[mohammd1]

آره درست شد خیلی ممنون و کار کرد

[samasara]

الگوریتم درست باید با استفاده از باقی مانده اعداد اول رو پیدا کنی این الگوریتم رو من برای اعداد کم تر از صد نوشتم فکر کنم درست باشه مشکی که خودم ندیدم....

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

خیلی شکلک ها افتضاح شده شاید هنوز عادت نکردیم....

[sosani2007]

ببخشید می شه به من بگید بحث در مورد چی هست

[mohammd1]

بله البته الگوریتم من درسته سریع تر هم هستش. با فرمول غربال اراتوستن کار میکنه شما می تونید این کد رو توی QB تایپ کنید و از صحتش آگاه بشید بحث هم درباره اشکالات یه برنامس که نوشتم ولی جواب نمی ده

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[mohammd1]

فک کردم درست شده ولی نشد
برنامه شما رو هم امتحان کردم اونم دقیقا همین ارور برنامه منو می داد اینم از عکسش...

[samasara]

الگریتم غربال گری اراتوستن درسته اما این برنامه ی شما اونو درست اجرا نمی کنه من حتی در QB هم امتحان کردم فقط 2 و 3 رو نشون می ده!!!!!!!!!!!!!!!!! اگر درست جواب داده پس کد اصلاح شده رو بزارید اگه هنوز جواب نداده برنامه ی شما رو به همون غربال گری اصلاح کنیم..
کد غربال گری اراتوستن هم هست:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

الان نوشتمش اگه اشکلی داشت بگو !!!

[mohammd1]

اینی که مینویسم دقیق هستش اگه قبول نداری برنامش رو آپلود میکنم! واسه QB

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[samasara]

حالا درست شد!! آفرین ...