数组好像没有快速赋值吧，或者你再把问题再清楚一点。
创新互联主营凯里网站建设的网络公司,主营网站建设方案,成都App制作,凯里h5成都微信小程序搭建,凯里网站营销推广欢迎凯里等地区企业咨询
语句执行时间倒是可以做到。在语句前
Dim oldTime As Date = Now
在过程语句后加
Dim newTime As Date = Now
Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)
textbox1.text= "共用了:" differenceInSeconds "秒!"
1、vb.net的
数组定义与变量定义差不多。可以用
dim
来定义
比如:
dim
a（100）
as
integer。
也可以不定义下标
在程序中
用
redim
来定义。
如：
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定义数组可以直接赋值。
如：
dim
a()
as
integer
={1,
2,
3,4}
vb.net和vb6.0不同，无法直接使用控件数组。不过可以通过其他方式变通一下。
比如现在有10个label，要将这10个label的text属性统一设置为“这是第X个标签”（X为1-10）。
1.建立10个label，名称分别为label1、label2、label3。。label10
2.代码：
For i = 1 To 10
Me.FindControl("label" i).Text = "这是第" i “个标签”
Next i
关键点是Me.FindControl()的方法，在代码中Me.FindControl("label1").text与label1.text是一样的。
Dim str As String = "", temp, n As Integer
Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim a() As String = Split(str1, ",")
For i = 1 To UBound(a) Step 1
a(i) = Val(a(i))
Next
temp = 0
n = 0
For i = 1 To UBound(a)
If a(i) temp Then
temp = a(i)
End If
If a(i) 0 Then
n = n + 1
End If
Next
str = str "正数的个数为 " n
str = str "最大元素的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = str i " "
End If
Next
TextBox6.Text = str
是这么定义的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过Long数据类型的最大值，即264—1=263。
把VB．NET数组当作一个对象来处理，就意味着数组类型是单个引用类型，数组变量包括指向构成数组元素、数组维和数组长度等数据的指针，数组之间互相赋值但仅仅是在相互复制指针，数组继承了System名字空间的Array类。
VB．NET中的数组有两种类型：定长数组和动态数组。
扩展资料：
1、数组的使用
在’VB 6．0中，能够用For Each来循环遍历一个数组。
比如：
Dim x As Integer
F0r Each x In arrayl
Console．WriteLine(x)
Next
2、在VB．NET中能够使用For循环和数组长度来遍历一个数组。
比如：
Dim i As工nteger
F0r i=0 T0 (arrayl．Length-1)
（此处空一行）
Console．WriteLine(arrayl(1)J
Next i
Public 长度() As TextBox = { Pipe_0 , Pipe_1 , Pipe_2 , Pipe_3 }
这个数组定义是有问题的，你定义的是TextBox数组，{}号里必须是而TextBox类型，例如：
Public 长度() As TextBox = { New TextBox , New TextBox , New TextBox }
Pipe_0-3不是任何类型和值，这个VS应该直接报错才对！标准的定义应该如下：
Public Class Pipe
Public 长度() As TextBox
Sub New()
Me.长度 = {New TextBox, New TextBox, New TextBox, New TextBox}
End Sub
Private Sub xxxxxxxxxxxx.Click
MsgBox(长度(2).Name)
End Sub
End Class
