PDA

نسخه کامل مشاهده نسخه کامل : كمك خيلي فوري براي حل چند مسئله



iribm
26-04-2006, 23:03
سلام
دوستان من دو تا سوال دارم كه اگه ممكنه خيلي سريع جوابشو بدين
1- برنامه اي بنويسيد با دستور For Next كه اعداد زير را در روي فرم نمايان كنند
1
1 2 3
1 2 3 4 5
1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1
2- برنامه اي بنويسيد كه تمام اعداد صحيح سه رقمي از ورودي دريافت كرده كه رقم يكان با صدگان آن برابر باشد.
مثل 131 232 323 454

Payman_62
27-04-2006, 01:39
تو اين همه سايت گفتي برام بنويسيد ديدي كسي ننوشت. پس تنبلي رو بذار كنار و خودت بنويس. به اشكالم كه بر خوردي بيا اين جا بپرس.

shamsoft
28-04-2006, 14:36
آره با نظر آقا پيمان موافقم.شما فقط بايد رفع اشكال كنيد و درخواست كد كامل نكنيد.
كد اول كه معلومه با چي نوشته ميشه و كد دوم هم با تابع Mid نوشته ميشه.
اينا پروژه هاي دانشجويي هست.درسته؟

iribm
29-04-2006, 01:03
سلام
باشه من براي نمايش اعداد زير اين برنامه رو نوشتم ولي نمي دونم چرا به صورت مثلثي در نمياد
1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1
For a = 1 To 7 Step 2
l = ""
For aa = 1 To 8 - a
l = l & aa & " "
Next
Print l
Next
لطفا كمك كنيد

iribm
29-04-2006, 06:44
با معرفتا يكيتون جوابمو بده.

shamsoft
29-04-2006, 15:18
ببين اين كد چطوره
خودت بيشتر سعي مي كردي مي تونستي بنويسيش

For b = 7 To 1 Step -2
k = ""
For bb = 1 To 6 - b
k = k & bb & " "
Next
Print k
Next
For a = 1 To 7 Step 2
l = ""
For aa = 1 To 8 - a
l = l & aa & " "
Next
Print l
Next