189 8069 5689
Dim a(20) As String
创新互联建站专注于华坪网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供华坪营销型网站建设，华坪网站制作、华坪网页设计、华坪网站官网定制、成都微信小程序服务，打造华坪网络公司原创品牌,更为您提供华坪网站排名全网营销落地服务。
Dim num As Integer
Dim ppp As String = ""
Dim temp As String = ""
For i = 1 To 20
temp = ""
num = Int(Rnd() * 10 + 1)
For j = 1 To num
temp = temp Chr(Int(Rnd() * 26 + 97))
Next
a(i) = temp
Next
Dim max As Integer = 0
For i = 1 To 20
If a(i).Length max Then
max = a(i).Length
End If
Next
For i = 1 To 20
If a(i).Length = max Then
ppp = ppp "字符最多的元素是第" i "个元素" a(i) vbCrLf
End If
Next
For i = 1 To 20
TextBox1.Text = TextBox1.Text a(i).PadRight(10) " "
If i Mod 4 = 0 Then
TextBox1.Text = TextBox1.Text vbCrLf
End If
Next
TextBox1.Text = TextBox1.Text ppp
是这么定义的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过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
一： 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub