andaron
دوشنبه 10 خرداد 1389, 18:45 عصر
بنام خدا
تاپیک قبلی ما به دلیل نداشتن عنوان مناسب حذف شد ( ولی به نظر من این دلیل حذف مناسب نیست و مدید می توانستند عنوان رو خودش تغییر بده
دوباره می پرسم
من برنامه ی نوشتم که عددی را بگیرد مانند 10 و اعداد اول کوچکتر از آن را چاپ کند
ولی کدی که من نوشتم اگر عدد 10 را به آن بدهید همه اعداد 1 تا 10 را چاپ می کند مشکل کجاست در صورتی که ما از الگوریتم آن در C# استفاده کرده م و کار کرده و لی نمی دونم چه مشکلی با وی بی دارم
اینم کد :
Private Sub btnok_Click(Index As Integer)
Dim n, i, r, b, a, s As Integer
n = Val(Text1.Text)
i = 2
r = 0
a = 1
s = 1
For a = 1 To n Step 1
Do
If a = 2 Then List1.AddItem (a)
r = a Mod i
If r = 0 Then Exit Do
i = i + 1
Loop While i < a / 2
If r > 0 Then List1.AddItem (a)
Next a
End Sub
دوستان کمک کنند
با تشکر
تاپیک قبلی ما به دلیل نداشتن عنوان مناسب حذف شد ( ولی به نظر من این دلیل حذف مناسب نیست و مدید می توانستند عنوان رو خودش تغییر بده
دوباره می پرسم
من برنامه ی نوشتم که عددی را بگیرد مانند 10 و اعداد اول کوچکتر از آن را چاپ کند
ولی کدی که من نوشتم اگر عدد 10 را به آن بدهید همه اعداد 1 تا 10 را چاپ می کند مشکل کجاست در صورتی که ما از الگوریتم آن در C# استفاده کرده م و کار کرده و لی نمی دونم چه مشکلی با وی بی دارم
اینم کد :
Private Sub btnok_Click(Index As Integer)
Dim n, i, r, b, a, s As Integer
n = Val(Text1.Text)
i = 2
r = 0
a = 1
s = 1
For a = 1 To n Step 1
Do
If a = 2 Then List1.AddItem (a)
r = a Mod i
If r = 0 Then Exit Do
i = i + 1
Loop While i < a / 2
If r > 0 Then List1.AddItem (a)
Next a
End Sub
دوستان کمک کنند
با تشکر