在窗体上设置相应的控件，并在代码窗口编写下列程序：
PrinteSubForm_Click()
DimaAsLong,bAsLong
a=InputBox("请输入若干个整数")
CallP(a,b)
Printb
EndSub
PrivateSubP(xAsLong,yAsLong)
DimnAsInteger,jAsString*1,sAsString
k=Len(Trim(Str(x)))
s=""
Fori=KTo1Step-1
j=Mid(x,i,1)
s=s+j
Nexti
y=Val(s)
EndSub
运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（）
A.123456
B.654321
C.135246
D.246135