大侠请赐教！！！急

Question

T = Array("08A ", "10A ", "12A ", "16A ", "20A ", "24A ", "28A ", "32A ", "40A ", "48A ")
p = Array(12.7, 15.875, 19.05, 25.4, 31.75, 38.1, 44.45, 50.8, 63.5, 76.2)
d1 = Array(7.92, 10.16, 11.91, 15.88, 19.05, 22.23, 25.4, 28.58, 39.68, 47.63)
b1= Array(7.85,9.4,12.57,15.75,18.9,25.22,25.22,31.55,37.85,47.35)
q= Array(0.6,1.0,1.5,2.6,3.8,5.6,7.5,10.1,16.1,22.6)T是型号，p,d1,b1,q说各个型号对应的参数。当选定一个型号之后，要写什么语句才能让它得到它的各个参数。

Answer 1

用For循环遍历数组啊For i=LBound(T) to UBound(T)

Answer 2

Ding ....从 T() 中找到型号后，以这个下标值，直接取另外几个数组对应的元素值就是了。

Answer 3

'FORM_load中
dim i as integer
For i=LBound(T) to UBound(T)
  combo1.add t(i)
next'combo1值改变时
dim NO as integer
No=combo1.index
PVal=P(No)
d1Val=d1(No)
b1Val=b1(No)
qVal=Q(No)

Answer 4

为什么运行时候这两句 combo1.add t(i)    No=combo1.index
 会出现“实时错误，要求对象” 这个错误呢