معکوس یک عدد

[REZADG]

سلام دوستان می دونم سوال خیلی مبتدیه ولی چه کنم که کارم افتاده میدونم که با تابع
StrReverse میشه متن رو وارونه کرد اما این تو کتابمون نیست و منم نمی وتنم استفاده کنم اما معلممون گفته یه تمرین بنویسید که توش باید از این استفاده کنم

[aryasoft2872]

منظور از معکوس چیه مثلا 2 تبدیل میشه به یک،دوم؟

[REZADG]

نه ببین مثلا 123 تبدیل بشه به 321 او کی

[Babak.Hassanpour]

با تابع
StrReverse میشه متن رو وارونه کرد اما این تو کتابمون نیست و منم نمی وتنم استفاده کنم اما معلممون گفته یه تمرین بنویسید که توش باید از این استفاده کنم


بالاخره می تونید از StrReverse استفاده کنید توی پروژه تون یا نه ما که نفهمیدیم.
ولی به هر حال اگه می تونید که راهش اینه :


CInt(StrReverse(CStr(123)))

خروجیش دیگ استرینگ نیست و بر عکسه.
اگرم نمی تونید باید کاراکتر کاراککتر از انتهای رشته بخونید و کاراکتر خونده شده رو یا به ی متغییر متنی Append کنید یا توی آرایه بریزید.
موفق باشید

[REZADG]

آره دیگه نمی تونم استفاده کم و خودمم یه کد واسه اون کاری که گفته بودید کردم اما نشد می زارم ببیننید کجاش اشتباهه

Dim R As String
Dim L As Integer
L = Len(txtText1.Text)
For i = 1 To L
R = Right(txtText1.Text, i)
Print R
Next i
If R = txtText2.Text Then
lblLabel1.Caption = "Yes"
Else
lblLabel1.Caption = "No"
End If

[REZADG]

نخواستم بابا بیایین اینم کد (نوشتم شاید به درد کسی بخوره)

Dim P As String, R As Single
Dim I As Integer, L As Integer
R = txtText1.Text
L = Len(R) - 1
For I = 1 To L
P = Left(Right(R, I), 1)
txtText2.Text = txtText2.Text + P
Next I