تبدیل sub به fuction

[reza_1001]

با سلام خدمت دوستان ...
فایل زیر رو آقا مهدی برای این سوالم نوشتن ولی به صورت sub است میتونید به function تبدیلش کنید. درست عمل میکنه ولی sub است و بنده به function نیاز دارم.
سوال:
یک سری عدد داریم :
1
2
3
3
3
4
4
5
6
7
8
8
7
7
7
6
6
6
5
5
4
4
4
5
5
6
6
7
8
9

از 1 تا 8 سیر صعودی داشته سپس اعداد تا 4 سیر نزولی پیدا کرده دوباره اعداد سیر صعودی پیدا میکنند .


اعدادی که سیر صعودی دارند =a
اعدادی که سیر نزولی دارند = b


حالا سوالم اينه كه چطور تابع بنویسم که:

اعدادی که در سیر صعودی تکراری هستند =a
اعدادی که در سیر نزولی تکراری هستند =b

ممنون از دوستان....

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.