ايران ويج

نسخه‌ی کامل: كمك براي يك برنامه
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
اگر كسي از دوستان بتونه به من كمك كنه خيلي ممنون مي شم.
يك برنامه هست كه با استفاده از حلقه هاي تودرتو بايد انجام بشه.
و مي خوام كه خروجي زير رو بده
1
21
321
4321
54321

54321
4321
321
21
1

اين 2 تا جدا از هم هستن
کد:
Dim f(10)
For i = 1 To 5
    For s = 1 To i
        f(s) = s
        m = m & f(s)
    Next s
    Print m
    m = ""
Next i
بفرمائيد دوست عزيز مطمئن هستم كه خودتون مي تونيد حالت دوم رو به سادگي درست كنيدWink