有下面程序代码: 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,输入2355270224,则输出是