vb编程，在inputbox输入字符（34，44，45，6753，5，0），将他们读为数字。

读出的数字为34、44、45、6753、5、0

在inputbox中输入数据后（数据可为如何数），点击确定，将输入数字赋值到p（）数组中。

dim a() as string
dim p() as integer
dim i as integer
a=split(inputbox("请输入数字:"),",")
redim p(ubound(a)) '对动态数组定义上限
for i=lbound(a) to ubound(a)
p(i)=a(i)
next

不可以直接这样做：p=split(inputbox("请输入数字:"),",")
出显类型不对错误,

也不可以直接 p=cint(split(inputbox("请输入数字:"),","))
不能对数组用cint函数

Arr=Cint(Split(InPutBox("Please Input Some Numbers"),",")) 上面的确是错误的，不好意思。