数组好像没有快速赋值吧，或者你再把问题再清楚一点。
我们提供的服务有：成都做网站、成都网站设计、成都外贸网站建设、微信公众号开发、网站优化、网站认证、舟山ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的舟山网站制作公司
语句执行时间倒是可以做到。在语句前
Dim oldTime As Date = Now
在过程语句后加
Dim newTime As Date = Now
Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)
textbox1.text= "共用了:" differenceInSeconds "秒!"
你这个Text()()是一个二维数组？
将数字直接定义成text box类型，并将己所添加的textbox实例复制给数组的相关项，这样就能通过数组的形式访问了。。。
vb赋值给数组，有以下几种方式：
第一种方式：
Private Sub Command1_Click()
Dim a(10) As Integer '定义数组a,下标最大值为10
For i = 0 To 10
a(i) = i'这里可以直接给数组赋值了
Print "a(" i ")的值" a(i) '打印数组
Next
End Sub
第二种方式：
Private Sub Command1_Click()
Dim a() As Integer '定义数组a，这里未设置下标
For i = 0 To 10
ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目
a(i) = i'这里可以直接给数组赋值了
Print "a(" i ")的值" a(i)
Next
End Sub
第三种方式：
Private Sub Command1_Click()
a = Array(1, 5, 2, 43, 222)
MsgBox "a(0)原来的值是：" a(0)
a(0) = 100
MsgBox "a(0)赋值后的值是：" a(0)
End Sub
Dim x(8, 8)
Dim a As Integer
Dim b As Integer
b = 0
For i = 0 To 8
For j = 0 To 8
If b = 3 Then
b = 1
a = a + 1
Else
b = b + 1
End If
x(i, j) = aNext
Next