vb.net数组数据 VB中的数组

VB中数组怎么定义

是这么定义的：

目前成都创新互联已为上千的企业提供了网站建设、域名、网络空间、成都网站托管、企业网站设计、杭锦网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过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

Vb.net中如何将数组数据显示在dategridview控件中？

datagrid不行，因为datagrid绑定数据库，因此不能添加一个附加行。即使在SQL命令中通过union方式进行统计后显示，但又会导致datagrid不能新增。解决办法有2个：1、用MSFlexGrid；2、自己写一个用户控件，大概意思就是里面有2个datagrid，一个大的，专门显示记录，一个小的，不要标题行，专门显示合计数；在里面增加写代码使它们水平同步滚动。

如何读取数据表一列的数据到数组 VB.NET

不知道你数据表中那一列数据是什么类型的数据，所以我全部按字串来处理。

首先声明一个数组，和即将用来计数的数字：

dim nums() as string

Dim i As Integer = 0

mycon.open '然后，连接数据库，按你的声明来：

dim mycom as new sqlcommand("select * from 你要读取数据的表", mycon)'接下来，声明一个执行数据库语句命令的com：

'然后，对数据库返回的结果进行操作（一般会将执行结果存放起来，再操作，我这里省去了存放这步）：

With mycom.ExecuteReader() '对返回的结果，即查询到的表进行操作 

If .HasRows Then    '判断是否有数据，有数据就进入下面进行读取

Do While .Read   '读取一行数据

If Not (String.IsNullOrEmpty(.GetString(0))) Then  '检查表列的数据是否为空，不为空就进入下面，进行保存。这里要说下getstring这个，是读取某列数据中的字串，如果该列数据不是字串，那么需要用getvalue(0)，0代表该列在表中的位置，从0开始，即0表示第一列。

ReDim Preserve nums(i)   '重置数组大小，即为即将要保存的数据准备一个位置 

nums(i) = .GetString(0)  '将数据放入到数组中 

i = i + 1  '循环，直到结束                    

End If                

Loop            

End If        

End With

mycon.close '最后记得要关闭数据库连接

数据存入数组很简单，其实难点是连接数据库，从数据库拿数据，这难点原理简单，但因为格式，数据类型等问题，很容易出错。

以上，数据到了数组，你应该会操作了吧。其实建议直接对从数据库返回的结果进行操作，不需要用数组的。

VB.NET读取TXT文件数据保存为数组

VB.NET编程读取txt文本文档中的数据，并把数据保存为数组，代码如下：

'写配件文件

Private Sub saveIni(ByVal filePath As String, ByVal str As String)

Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw = Nothing

End Sub

'读配件文件

Private Function readIni(ByVal filePath As String)

Dim iniDt As New DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)

Dim line As String = ""

While Not sr.EndOfStream

Dim str = sr.ReadLine()'读取当前行

iniDt.Rows.Add(New String() {

str(0),

str(1)

})

End While

sr.Close()

sr = Nothing

Catch ex As Exception

End Try

Return iniDt

End Function

vb.net数组

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