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

بازدید37.9kپست ها1آخرین فعالیت8 سال پیش
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

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

هیچ وقت در پرسیدن سوال شک نکنید

خوش آمدید

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