正文
vb.net数组声明 vb60数组定义
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net代码声明一个一维字符类型的数组，有20个元素，每个元素最多存放十个字符。字符个数随机，
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
相关问答
Q1: 在vb模块中怎么定义动态数组？
1、声明数组的语句：
Dim types( ) As integer
2、然后使用ReDim语句来配置数组大小。
ReDim Types(X+1)
3、假设想改变数组大小又不想丢失原来的数据，仅仅要在ReDim语句中包括Preservekeyword就能够，典型语句为：
ReDa_m PresetVe Types(10，23)
对于多维数组，在使用Preservekeyword时，仅仅能改动最后一维的大小。假设改变其它维，那么将出现执行错误。假设不清楚某维的当前大小，能够使用GetI~ength函数来获取。
扩展资料：
数组的使用：
用For Each来循环遍历一个数组。比如：
Dim x As Integer
F0r Each x In arrayl
Console．WriteLine(x)
Next
在使用数组时还要注意，不仅声明语法有变化，并且在执行时处理方式也有了非常大的变化。VB．NET在堆栈中给数组分配地址空间，当向一个方法传递数组类型的参数时，使用的是引用传递而不是值传递。以下是互相传递数组引用的三个方法：
Dim arrayl(3，3)AS Integer
Dim array2 As Integer(，)
Redim array2(3，3)
Dim array3 As Integer(，)={{2，4}，{12，29}}
Q2: vb.net 数组的定义方法
1、vb.net的
数组定义与变量定义差不多。可以用
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}
Q3: vb.net2005如何声明数组下界为1
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，在VB．NET中，为了和其他语言更加易于协同操作，数组的下界均设定为0，不允许声明一个下界为1的数组，因此Option Base语句不再被VB．NET支持。
关于vb.net数组声明和vb60数组定义的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
