كمك براي يك برنامه

[Fery666]

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

54321
4321
321
21
1

اين 2 تا جدا از هم هستن

[Di Di]

کد:

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

بفرمائيد دوست عزيز مطمئن هستم كه خودتون مي تونيد حالت دوم رو به سادگي درست كنيد