13518219792
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
成都创新互联专业为企业提供邹城网站建设、邹城做网站、邹城网站设计、邹城网站制作等企业网站建设、网页设计与制作、邹城企业网站模板建站服务，10年邹城做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
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
1、点击VS工具。
2、打开后，新建一个Windows窗体应用程序。
3、新建完毕后，如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法，如图示。
6、运行后，点击按钮，弹出提示正常。
7、定义数组第二种方法，属于动态的方法。
8、运行后，点击按钮，数组成功输出。
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
一： 利用错误捕获功能判断
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
是这么定义的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过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
刚刚在VS2012上将你的代码试了一下：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim arr(4) As String
arr(0) = "a"
arr(1) = "b"
arr(2) = "c"
arr(3) = "d"
Dim i As Integer
For i = 0 To 3
Debug.WriteLine(arr(i))
Next
End Sub
显示：
a
b
c
d
正常运行，没有报错。
