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

Visual Basic 6

توسط hamed-player در 5 سال پیش
0 781 1 5 سال پیش
hamed-playerc0der
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

خوش آمدید

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

لطفا ابتدا لاگین کنید