这个数组怎么定义啊？

Question

我有21组数据，每组数据有十个数，我怎么对它进行定义呢
我这样定义，在调用的时候不行啊。
Dim data(21, 21, 10) As Single
其中一个数是：
data(21, 1, 10) = Array(1008.2, 1008.82, 1009.26, 1010.9, 1012.86, 994.76, 1011.74, 1010.7, 1009.3, 1011.62)
我想对它的数进行调用，怎么办！
假如我要对这21 组数进行调用，我的循环语句中，又该怎么办呢！
怎么样获得它的上标呢？ubound这个函数行吗？

Answer 1

Dim data(20, 9) As Single
Dim i, j As Integer
Dim tmp As SingleFor i = 0 To 20
For j = 0 To 9
tmp = data(i,j)
......
Next j
Next i

Answer 2

dim data(10,21) as Variant
dim datas(21) as Variant
data(1,21)=Array(1008.2, 1008.82, 1009.26, 1010.9, 1012.86, 994.76, 1011.74, 1010.7, 1009.3, 1011.62)
dim i ,j as as integer
for i=1 to 10
  for j=1 to 21
  datas(j)=data(i,j)
  next
next
我不知道这点东西能不能帮上什么忙！

Answer 3

data(21, 1, 10) = Array(1008.2, 1008.82, 1009.26, 1010.9, 1012.86, 994.76, 1011.74, 1010.7, 1009.3, 1011.62)
'data(2) = Array(1047.12, 1047.44, 1051.7, 1046.16, 1048.5, 1053.04, 1044.8, 1042.98, 1048.94, 1052.02)
'data(3) = Array(1078.86, 1073.44, 1074.64, 1080.22, 1068.76, 1086.44, 1076.8, 1077.66, 1081.4, 1078.46)
'data(4) = Array(1105.74, 1104.3, 1105.08, 1105.2, 1108.44, 1106.74, 1102.36, 1106.49, 1102.04, 1102.68)
'data(5) = Array(1138.02, 1135.06, 1137.42, 1137.74, 1137.16, 1130.2, 1125.6, 1142.84, 1140.62, 1136.04)
'data(6) = Array(1162.08, 1171.56, 1173.12, 1173.2, 1173.66, 1165.04, 1168.72, 1166, 1168.62, 1179.46)
'data(7) = Array(1193.36, 1199.34, 1200.9, 1206.06, 1213.24, 1202.24, 1204.94, 1210.38, 1205.44, 1203.76)
'data(8) = Array(1233.74, 1237.36, 1233.04, 1238.02, 1233.76, 1234.26, 1226.88, 1239.7, 1234.28, 1235.54)
'data(9) = Array(1270.1, 1272.5, 1270.62, 1260.88, 1267.1, 1263.96, 1270.94, 1262.7, 1263.84, 1264.56)
'data(10) = Array(1297.6, 1294.1, 1290.36, 1299.36, 1300.8, 1294.78, 1290.76, 1292.8, 1294.1, 1298.7)
'data(11) = Array(1320.94, 1326.98, 1326.78, 1322.88, 1324.34, 1324.96, 1326.84, 1322.04, 1326.62, 1327.82)
'data(12) = Array(1356.12, 1358.84, 1360.72, 1360.18, 1358.4, 1348.54, 1358.12, 1355.38, 1353.66, 1348.78)
'data(13) = Array(1293.44, 1398.1, 1398, 1398.4, 1402.66, 1402.66, 1391.96, 1400.7, 1401.48, 1392.18)
'data(14) = Array(1420.86, 1425.52, 1427.5, 1434.63, 1427.6, 1428.54, 1425.94, 1428.82, 1432.62, 1425.32)
'data(15) = Array(1451.28, 1443.04, 1453.6, 1449.84, 1454.17, 1456.82, 1455.5, 1458.3, 1457.86, 1457.3)
'data(16) = Array(1478.9, 1481.46, 1479.1, 1482.06, 1473.12, 1480.3, 1474.56, 1470.06, 1477.64, 1470.96)
'data(17) = Array(1511.34, 1502.2, 1509.06, 1505, 1510.16, 1501.72, 1507.48, 1509.24, 1504.32, 1505.78)
'data(18) = Array(1537.04, 1544.48, 1542.2, 1543.86, 1546.06, 1537.72, 1539.82, 1544.5, 1542.6, 1539.5)
'data(19) = Array(1575.36, 1565.38, 1568.72, 1570.84, 1575.22, 1570.38, 1571.4, 1571.4, 1571.42, 1571.28)
'data(20) = Array(1612.14, 1605.44, 1605.08, 1611.68, 1606.24, 1609.1, 1616.04, 1608.42, 1608.86, 1609.78)
'data(21) = Array(1632.34, 1629.34, 1630.2, 1634.8, 1632.32, 1634.68, 1635.24, 1633.04, 1630.04, 1636.98)

Answer 4

我这样定义不行，我知道后面的是可顶不行，我在第一组数据该为data(21, 1, 10)，但是不行！
上面是我的21 组数据，我要怎么定义呢！
不要受我的定义方式的影响！