每次循环,由inputbox()函数d出对话框等待用户输入数据。如:
dim
a(1
to
4)
as
integer
for
i=1
to
4
a(i)=inputbox("请输入")
next
i
如果是二维数组,则用两层循环,类推。
2。用array()函数为数组元素赋值,格式:
数组变量名=array(数组元素值)
如:
static
a
as
variant
a=array(1,2,3,4,5)
意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。即a(0)=1...a(4)=5
希望楼主清楚了:)
1。用For循环语句及InputBox()函数输入。每次循环,由InputBox()函数d出对话框等待用户输入数据。如:
Dim
a(1
to
4)
as
Integer
For
i=1
to
4
a(i)=InputBox("请输入")
Next
i
如果是二维数组,则用两层循环,类推。
2。用Array()函数为数组元素赋值,格式:
数组变量名=Array(数组元素值)
如:
Static
a
as
variant
a=array(1,2,3,4,5)
意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。即a(0)=1...a(4)=5
希望楼主清楚了:)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)