رفتن به مطلب
  • 0

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


sajjadrastin

سوال

سلام کدی میخواهم اعداد اول 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


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

ممنون.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

:|

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خب برادر شما باید بدونید 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

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

موفق باشید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...