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

Visual Basic 6

توسط hamed-player در 7 سال پیش
0 37.8k 1 7 سال پیش
hamed-player c0der
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

خوش آمدید

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