vb6.0二维数组赋值问题

把二维数组

0.35 0.00 0.770
0.38 0.00026 0.310
0.41 0.00065 0.210
0.45 0.00117 0.140
0.50 0.00195 0.080
0.55 0.00312 0.040
0.61 0.00572 0.008
0.64 0.00900 0.002
0.66 0.01300 0.000

如何赋值到VB6.0中，最好可以直接复制的。。。。谢谢了

'用Excel的函数处理一下数据，然后复制粘贴过来就行
Option Explicit
Dim Temp(1 To 9, 1 To 3) As Double
Private Sub Form_Load()
Temp(1, 1) = 0.35
Temp(1, 2) = 0#
Temp(1, 3) = 0.77
Temp(2, 1) = 0.38
Temp(2, 2) = 0.00026
Temp(2, 3) = 0.31
Temp(3, 1) = 0.41
Temp(3, 2) = 0.00065
Temp(3, 3) = 0.21
Temp(4, 1) = 0.45
Temp(4, 2) = 0.00117
Temp(4, 3) = 0.14
Temp(5, 1) = 0.5
Temp(5, 2) = 0.00195
Temp(5, 3) = 0.08
Temp(6, 1) = 0.55
Temp(6, 2) = 0.00312
Temp(6, 3) = 0.04
Temp(7, 1) = 0.61
Temp(7, 2) = 0.00572
Temp(7, 3) = 0.008
Temp(8, 1) = 0.64
Temp(8, 2) = 0.009
Temp(8, 3) = 0.002
Temp(9, 1) = 0.66
Temp(9, 2) = 0.013
Temp(9, 3) = 0#
End Sub

直接赋值。