VB.net 数组的使用

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

【网站建设公司】公司专业为企业提供凤翔网站建设、凤翔做网站、凤翔网站设计、凤翔网站制作等企业网站建设、网页设计与制作、凤翔企业网站模板建站服务，十余年凤翔做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

Dim a(15) As Integer

Dim i As Integer

Dim tmpStr As String

Randomize()

For i = 0 To a.Length - 1

a(i) = Int(100 * Rnd() + 1)

Next

TextBox1.Text = ""

tmpStr = ""

For i = 0 To a.Length - 1

tmpStr = tmpStr a(i) " "

'在Textbox中每行显示5个

If (i + 1) Mod 5 = 0 Then

TextBox1.AppendText(tmpStr vbCrLf)

tmpStr = ""

End If

Next

End Sub

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

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 数组的定义方法

1、vb.net的

数组定义与变量定义差不多?？梢杂?/p>

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}