VB输入10 个字符串,统计回文的个数

n=0
for i=1 to 10
x=inputbox("请输入一字符串")
__________________
for j =1 to len(x)
y=mid(x,i,1)
nx=______________
next j
if x=nx then n=n+1
next i

n=0
for i=1 to 10
x=inputbox("请输入一字符串")
nx=""
for j =1 to len(x)
y=mid(x,i,1)
nx=nx+y
next j
if x=nx then n=n+1
next i

'以下function 过程用于判断字符串是否为回文 function foundhuiwen(p as string) '考生编写 if strreverse(p) = p then foundhuiwen = true end function