شبیه سازی تابع StrReverse در ویژوال بیسیک 6

بازدید38.1kپست ها1آخرین فعالیت11 سال پیش
0
0

سلام
برنامه ای بنویسید که تابع StrReverse ویژوال بیسیک را شبیه سازی کند؟ :91:
لطفا کمک کنید

0
Private Sub Command1_Click()
MsgBox CustomStrReverse("I AM CODER")
End Sub

Function CustomStrReverse(str As String) As String
'StrReverse
Mystr = str
For i = 1 To Len(Mystr)
  reverse$ = Mid(Mystr, i, 1) & reverse$
Next
CustomStrReverse = reverse$
End Function

سوال برنامه نویسی دارید؟

ندونستن عیب نیست، نپرسیدن چرا!

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.