یک سوال خیلی فوری دارم کمک کنید

[vate2000]

با عرض سلام اگر می بیند این سوال را از شما میپرسم به خاطر اینکه پیش دوست دخترم به شما رو زدم و از شما تقاضای کمکمی کنم و اگر این کار از نظر قوانین سایت که خودتون گفتن اشکال داره برای کسانی که می خواهند لقمه رو جویده توی دهانشون بگذارن ولی من بخاطر اینکه ابروم نره سوال کردم و حالا اگر دوست داشتی و خواستی کمک کنی که ابروم نره جواب سوالم رو بده و اگر هم نداشتی باز هم از شما متشکرم
سوال : برنامه با ویزوال بیسیک بنوسید که بتواند مقدار 20ریال به سکه های 1-2-5-و10 ریالی خرد کند و حالتهای مختلف آن را نشان دهد

[ehsan_ansaripoor]

دوست عزیز شما با نوشتن 4 حلقه می توانید این کار انجام بدید:
سکه 1 ریالی:



dim ing as integer
ing=20
do until ing=0
msgbox ing
ing=ing-1
loop



سکه 2 ریالی:



dim ing as integer
ing=20
do until ing=0
msgbox ing
ing=ing-2
loop



سکه 5 ریالی:



dim ing as integer
ing=20
do until ing=0
msgbox ing
ing=ing-5
loop



سکه 10 ریالی:



dim ing as integer
ing=20
do until ing=0
msgbox ing
ing=ing-10
loop



در ضمن دوست عزیز امیدوارم یک روزی هم دوست دخترت برای شما رو بزنه.

[meh_secure]

رابطه های بین دختر و پسر بالاخره مفید واقع شد.

[vate2000]

از اینکه به من لطف نمودید متشکرم