第四章数组与自定义数据类型摘要.ppt

2）通过InputBox函数 如果数组元素的值无法预先确定，需要在运行时通过键盘输入，可通过InputBox函数赋值 3）使用Array函数 格式：数组名=Array(?数组元素值表) Array函数可对变体类型的一维动态数组赋值 数组元素的个数由数组元素值表中数据个数决定，数组下标下界可由LBound函数得到，下标上界可由UBound函数得到。 Dim score(1 To 30) For i = 1 To 30 score(i) = InputBox(请输入第 i 成绩) Next i 思考:缺点? 4）使用文本框和split函数 格式： 数组变量名=Split（字符串表达式，分隔符） 将文本框中输入的内容用Split函数分离成一个个数据，存放到数组中。 注意：用Split函数赋值的数组的最小下标均从0开始,下标上界可用Ubound函数 说明：只用于对动态字符型数组赋值 且数组下标只能从0开始， option base 1 无效 a = Split(Text1, ,) For i = LBound(a) To UBound(a) Print a(i) Next i