单选题 有下面程序代码： Option Base 1 Private Sub Commandl—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程序运行时，单击命令按钮Commandl，输入2355270224，则输出是( )。