PDA

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



Saeed-a-s
26-08-2006, 20:42
این برنامه باید بتونه اعداد اول 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
با تشکر

Saeed-a-s
26-08-2006, 21:37
دوستان برنامه نويس كجايند؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟
اين الرفقا’البرنامه نويس :biggrin:

shamsoft
26-08-2006, 23:54
چطوري اعداد 1 تا 10 رو بنويسه؟
1234...

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

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

MohammadJavad.T
27-08-2006, 03:00
سلام
چرا خودت رو گيج ميكني با اين راحت ميشه نوشت
Dim i As Integer
For i = 1 To 10
Text1.Text = Text1.Text + Str(i
اگه هم ميخواستي به سمت پايين بياد با readln مي شه

Saeed-a-s
27-08-2006, 10:52
آقا شرمنده اين برنامه بايد اعداد اول 1 تا 10 را بنويسه - :sad:
هر طوري هم نوشت فرق نداره.

Saeed-a-s
27-08-2006, 11:11
دوستان عزيز بدينوسيله اعلام مي كنم كه پست قبلي من با عنوان "تقاضاي حل مشكل در وي بي" دچار غلط املايي بود لذا دعوت مي شود تا دوباره پست مذكور را ببينند و اظهار نظر نمايند.در زير لينك تاپيك مذكور آمده[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

shamsoft
27-08-2006, 11:52
خب زودتر مي گفتي :angry:

Saeed-a-s
27-08-2006, 13:02
آقا من جوابو خودم پيدا كردم از دوستاني كه نظر دادند متشكرم/
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

MohammadJavad.T
27-08-2006, 19:41
سلام
راست ميگه زود تر ميگفتييي :puke:

Saeed-a-s
27-08-2006, 19:52
به نظر شما اگه من مي دونستم زودتر نمي گفتم

shamsoft
27-08-2006, 20:17
منظورم اينه كه اعداد اول 1 تا 10 رو زودتر مي گفتي مي خواي