درخواست برنامه ای که بتونه اعداد اول 1 تا 10 را چاپ کند

این برنامه باید بتونه اعداد اول 1 تا 10 را چاپ کند اما متاسفانه این کار را نمی کند؟
این هم کد برنامه:[

Option Explicit
Dim lngNumber, lngI, Cnt As Long

Private Sub Form_click()
For lngNumber = 1 To 10
For lngI = 1 To lngNumber
If lngNumber Mod lngI = 0 Then Cnt = Cnt + 1
If Cnt <= 2 Then Print lngNumber: Cnt = 0
Next lngI
Next lngNumber
End Sub
با تشکر

دوستان برنامه نويس كجايند؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟
اين الرفقا’البرنامه نويس :biggrin:

چطوري اعداد 1 تا 10 رو بنويسه؟
1234...

1
2
3
...
يا اين يكي:
1
2
2
3
3
3
...

بگو تا كمكت كنم

سلام
چرا خودت رو گيج ميكني با اين راحت ميشه نوشت
Dim i As Integer
For i = 1 To 10
Text1.Text = Text1.Text + Str(i
اگه هم ميخواستي به سمت پايين بياد با readln مي شه

آقا شرمنده اين برنامه بايد اعداد اول 1 تا 10 را بنويسه - :sad:
هر طوري هم نوشت فرق نداره.

دوستان عزيز بدينوسيله اعلام مي كنم كه پست قبلي من با عنوان "تقاضاي حل مشكل در وي بي" دچار غلط املايي بود لذا دعوت مي شود تا دوباره پست مذكور را ببينند و اظهار نظر نمايند.در زير لينك تاپيك مذكور آمده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خب زودتر مي گفتي :angry:

آقا من جوابو خودم پيدا كردم از دوستاني كه نظر دادند متشكرم/
Private Sub Form_click()
Dim lngNumber, lngI, Cnt As Long
For lngNumber = 1 To 10
For lngI = 1 To lngNumber
If lngNumber Mod lngI = 0 Then Cnt = Cnt + 1
Next lngI
If Cnt <= 2 Then Print lngNumber
Cnt = 0
Next lngNumber
End Sub

سلام
راست ميگه زود تر ميگفتييي :puke:

به نظر شما اگه من مي دونستم زودتر نمي گفتم

منظورم اينه كه اعداد اول 1 تا 10 رو زودتر مي گفتي مي خواي