بدست اوردم رقام میانی عدد

[msbj22]

سلام دوستان یه سوال برنامه نویسی داشتم یه برنامه با ویژوال بیسیک دارم که باید یه عدد رو دریافت کنم بعد چهار رقم وسط اون عدد رو برگردونه مثلا عدد 45123451 رو وارد کنم عدد 1234 رو بهم برگردونه یا مثلا اگر عدد 15227045 یه صفر اولش قرار بده تا عدد 2270 بشه چهار رقم وسط و خروجی رو بده کسی میتونه کمکم کنه؟ ممنون میشم (مربوط به روش میان مربعی شبیه سازی کامپیوتر) اگه کسی اطلاع داره :متفکر:

[samiasoft]

من بدین صورت کدی که میخواستید رو نوشتم... شاید دوستان راه بهتری داشته باشند :

Dim i, j, b As Integer



b = Len(Text1.Text) Mod 2
If b = 0 Then
'"زوج"
Else
'"فرد"
Text1.Text = "0" & Text1.Text
End If




j = ((Len(Text1.Text) - 4) / 2) + 1

a = Mid(Text1.Text, j, 4)

MsgBox (a)

[msbj22]

واقعا ممنونم
خودشه :تشویق: