vb 二维数组的赋值问题

float aa[7][5]={{8.03,6.04,4.06,2.09,1.00},     
   {2.59,2.03,1.48,1.07,1.00},{1.88,1.53,1.21,1.03,1.00},
   {1.39,1.22,1.08,1.01,1.00},{1.19,1.10,1.03,1.01,1.00},
   {1.07,1.04,1.01,1.00,1.00},{1.00,1.00,1.00,1.00,1.00}};
以上是C语言中二位数组的赋值，我如何在vb中实现，不是一个一个的赋值，而是能像上面一样，一串赋值，谢谢大家帮忙了。 --------------------编程问答-------------------- Dim aa As Variant
aa=Array(Array(8.03,6.04,4.06,2.09,1.00),Array(2.59,2.03,1.48,1.07,1.00),Array(1.88,1.53,1.21,1.03,1.00),Array(1.39,1.22,1.08,1.01,1.00),Array(1.19,1.10,1.03,1.01,1.00),Array1.07,1.04,1.01,1.00,1.00(),Array(1.00,1.00,1.00,1.00,1.00))

补充：VB ,  基础类