资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb点虐 2维数组 vbs 二维数组

VB.NET 2维数组排序排序和赋值问题

窗体上添加3个标签,1个按钮,在按钮的单击事件里写代码,如下:

创新互联长期为成百上千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为启东企业提供专业的成都网站设计、成都网站建设、外贸网站建设启东网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a(,) As Integer = {{5, 6}, {1, 3}, {8, 9}, {72, 1}, {63, 4}}

Dim Temp As Integer

Dim i As Integer

Dim j As Integer

Dim x As Integer

Dim y As Integer

'显示排序前的数据

Label1.Text = "排序前数据:" vbCrLf

For i = 0 To 4

Label1.Text = Label1.Text a(i, 0) " " a(i, 1) vbCrLf

Next

For i = 0 To 3

For j = i + 1 To 4

If a(i, 0) a(j, 0) Then

Temp = a(i, 0)

a(i, 0) = a(j, 0)

a(j, 0) = Temp

Temp = a(i, 1)

a(i, 1) = a(j, 1)

a(j, 1) = Temp

End If

Next

Next

'显示排序前的数据

Label2.Text = "排序后数据:" vbCrLf

For i = 0 To 4

Label2.Text = Label2.Text a(i, 0) " " a(i, 1) vbCrLf

Next

'把第3行元素赋予X,Y

x = a(2, 0)

y = a(2, 1)

'输出X,Y

Label3.Text = "X=" x vbCrLf "Y=" y

End Sub

VB.NET 二维数组 引用其中的一维

OPCItemIDsData(j,其中一维)即可。

如果前面方法有规定,不能用二维数组的格式,那么你可以自己定义一个一维数组,将二维数组的某一维度的全部数值赋值给这个数组,在引用这个数组:

dim OPCItemIDsDataBuf(x) as ...

for i = 1 to x

OPCItemIDsDataBuf(j)=OPCItemIDsData(j,其中一维)

next i

其中x是数组的最大下标

VB.NET 二维数组问题

根据你的语句,上下标是确定的,所以定义语句修改为:

Dim ary(UBound(temp), 1) As String '声明二维数组


网页标题:vb点虐 2维数组 vbs 二维数组
转载源于:http://cdkjz.cn/article/ddcjhei.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220