پیدا کردن اعداد اول 2 تا n

[sajjadrastin 100]

سلام کدی میخواهم اعداد اول 2 تا n را در لیبل1 نمایش دهد من کدش رو توی ویژال بیسیک دارم اما تو بیسیک فور اندروید جواب نمیده لطفا کدش رو تو بیسیک فور اندروید رو بدید.

کد تو ویژال بیسیک:

Private Sub Command1_Click()
n = Val(Text1.Text)
Text2.Text = "2 "
For i = 3 To n
       aval = True
       For j = 2 To i - 1
             If (i Mod j) = 0 Then
                       aval = False
                       Exit For
             End If
       Next j
       If aval = True Then Text2.Text = Text2.Text + " , " + Str(i)
Next i
End Sub

لطفا این کد رو برای بیسیک بهم بدید.

ممنون.

[مهران محمودی 778]

:|

Sub Button1_Click
	Dim n = EditText1.Text As Int
	EditText2.Text = "2 "
	Dim aval =False As Boolean
	For i = 3 To n
       aval = True
       For j = 2 To i - 1
             If (i Mod j) = 0 Then
                       aval = False
                       Exit 
             End If
       Next 
       If aval = True Then EditText2.Text = EditText2.Text & " , " & i
	Next 
End Sub

[sajjadrastin 100]

ممنون مشکلم حل شد.

[sajjadrastin 100]

کسی پاسخگو نیست؟

لطفا کمک کنید.

[مجید آرتا 5,874]

Sub Button1_Click

n = EditText1.Text

EditText2.Text = "2 "

For i = 3 To n

       aval = True

       For j = 2 To i - 1

             If (i Mod j) = 0 Then

                       aval = False

                       Exit

             End If

       Next j

       If aval = True Then EditText2.Text.Text = EditText2.Text.Text + " , " + Str(i)

Next 

End Sub

[sajjadrastin 100]

به Str ارور میگیرد؟

[sajjadrastin 100]

به next اخر هم ارور میگرد لطفا کد را قبل از گذاشتن در تاپیک ازمایش کنید.

ممنون

[مجید آرتا 5,874]

خب برادر شما باید بدونید str  چیه.بنده کد رو براتون تبدیل کردم و از مابقی کدتون با خبر نیستم

Sub Button1_Click

n = EditText1.Text
EditText2.Text = "2 "
For i = 3 To n
       aval = True
       For j = 2 To i - 1
             If (i Mod j) = 0 Then
                       aval = False
                       Exit
             End If
       Next 
       If aval = True Then EditText2.Text = EditText2.Text + " , " + Str(i)
Next 

End Sub

از خطا اسکرین قرار بدید.

موفق باشید.

[sajjadrastin 100]

سلام

این سورس کامل تو ویژال یسیک:

پیوست شد

 

aval_list2.zip