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