![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer,x,b x=InputBox("请输入一个多位整数") For k=1 To Len(x) b=Mid(x,k,1) a(Val (B)+1)=a(Val(B)+1)+1 Next k For k=1 To 10 Print a(k); Next k End Sub 程序运行时,单击命令按钮Command1,输入2345670456,则输出是___________。