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

[msbj22]

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


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)

[1-9-7-2]

#include <stdlib.h>
#include <stdio.h>

#define FROM 3
#define TO 6
#define MAX 2

int ArbitraryDigits (int, int[]);

int main ()
{
int s[MAX]={FROM, TO};

printf ("%d\n", ArbitraryDigits (451234519, s));
printf ("%d\n", ArbitraryDigits (15227045, s));

return (EXIT_SUCCESS);
}

/* ANSI C version */
int ArbitraryDigits (int d, int a[])
{
int i, k, s=1, p=10, n=0;

if (d<0)
d*=(s = -1);

k=d;

do ++n;
while ((k/=p)>0);

for (i=n-a[1]; i>0; --i)
d/=p;

k=d;

for (i=a[1]-a[0]+1; i>0; --i)
k=k/p*p, p*=10;

return (s*(d-k));
}