189 8069 5689
1. 前提一定要声明一个数组,不需要赋值或者标明维数，例如dim a() as integer
创新互联是一家专注于做网站、成都网站制作与策划设计,铁锋网站建设哪家好?创新互联做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:铁锋等地区。铁锋做网站价格咨询:18982081108
2. 如果使用redim重新定义一个数组，数组里数据全部被初始化，要保留原有数据加上preserve
3 redim只能修改数据最后的维数，不能改变数组类型
4 redim 不能够全局声明
你在最后两行之间加一行代码，看看数组的规模大小的结果；
Msgbox Ubound(cartnum)
使用动态定义
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
那就是不能初始长度了，而且结构中定义个无参数的构造函数也不行，所以无法初始长度。
这有必要吗，在使用时重定义它的长度也可以。
Structure MODULEENTRY32
Dim Size As Integer
Dim Mid As Integer
Dim pid As Integer
Dim gusage As Integer
Dim pusage As Integer
Dim base As Integer
Dim 大小 As Integer
Dim 句柄 As Integer
Dim 文件名() As Byte
Dim 完整路径() As Byte
Sub t()
文件名 = Array.CreateInstance(GetType(Byte), 45) '建立数组
ReDim 文件名(45) '定义数组长度，其实数组也是对象，相当生成个实例。
文件名 = System.Text.ASCIIEncoding.ASCII.GetBytes("c:\windows\test.txt") '这两个数组内容多半是从字符串转换而来的，根本就不需要初始长度
End Sub
我是VB.Net 2010，你看看能行不。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循环语句动态加入控件数组。
Dim FirstTextBox As New TextBox
'定义文本框对象
Me.Controls.Add(FirstTextBox)
'将一个文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'将文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默认文本。
Next
End Sub
End Class
你只是定义了一个对象，类而已
首先要给对象设置变量，这个还不是数组
Public class As Single的class 应该是关键字请换一个名字
Dim KidsX(1 to 100) as kids
KidsX(1).classx=1
KidsX(1).grade=1
KidsX(1).name=”张某"
KidsX(2).classx=1
KidsX(2).grade=2
KidsX(2).name=”王某"
……