اعداد اول

[ali-software]

سلام.دو تکست باکس بزندید. این یک برنامه در مورد اعداد اول است؟چرا این کد درست کار نمی کند؟لطفا برایم درست کنید.میخواهم نتیجه در تکست 2 باشد.
Private Sub Command1_Click()
Dim a As Long
Dim b As String
Dim c As String
a = Text1.Text
a = Text1.Text
For a = 0 To i
Next a
If i Mod a = 0 Or a Then
b = "Çíä ÚÏÏ Çæá ÇÓÊ!"
If i Mod a = Not 0 Or a Then
b = "Çíä ÚÏÏ Çæá äíÓÊ!!!"
b = Text2.Text
End If
End If
End Sub

[xxxxx_xxxxx]

يك بار ديگه كدي كه قرار داديد رو نگاه كنيد!!!
يعني چي؟:متفکر:


Private Sub Command1_Click()
Dim a As Long
Dim b As String
Dim c As String
a = Text1.Text
a = Text1.Text
For a = 0 To i
Next a
If i Mod a = 0 Or a Then
b = "Çíä ÚÏÏ Çæá ÇÓÊ!"
If i Mod a = Not 0 Or a Then
b = "Çíä ÚÏÏ Çæá äíÓÊ!!!"
b = Text2.Text
End If
End If
End Sub

كافيه چك كنيد كه عدد بغير از خودش و يك بر هيچ عدد ديگه اي بخشپذير نباشه.
پس يك حلقه مي خوايد از 2 شروع شه تا n/2 و عدد ما كه n هست نبايد بر هيچ كدوم از اين اعداد بخشپذير باشه.
مشكل كجاست؟