تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 1 از 2 12 آخرآخر
نمايش نتايج 1 به 10 از 11

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

  1. #1
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    14 درخواست برنامه ای که بتونه اعداد اول 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
    با تشکر
    Last edited by Saeed-a-s; 27-08-2006 at 11:00.

  2. #2
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    14

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

  3. #3
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض

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

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

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

  4. #4
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض

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

  5. #5
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    5

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

  6. #6
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    13 پيام

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

  7. #7
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض

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

  8. #8
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    پيش فرض

    آقا من جوابو خودم پيدا كردم از دوستاني كه نظر دادند متشكرم/
    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

  9. #9
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض

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

  10. #10
    داره خودمونی میشه
    تاريخ عضويت
    Aug 2006
    پست ها
    42

    پيش فرض

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

صفحه 1 از 2 12 آخرآخر

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •