13518219792
你只是定义了一个对象，类而已
从网站建设到定制行业解决方案，为提供成都网站设计、成都做网站服务体系，各种行业企业客户提供网站建设解决方案，助力业务快速发展。创新互联将不断加快创新步伐，提供优质的建站服务。
首先要给对象设置变量，这个还不是数组
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=”王某"
……
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55
下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。
(注意，list1.listcount-1 是最后一条记录)
减掉了第 9，7，5，3列
剩余为 1,3,6,15,28,45
结果为：3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.
'也就是，问题所问的第二列的索引为1，第四列的索引为3...
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
'假设数组如下
dim d(10) as integer
dim i as integer
for i=lbound(d) to ubound(d)
d(i) = i
next i
'数组各元素之和
dim S as integer = 0
for i=lbound(d) to ubound(d)
s = s + d(i)
next i
msgbox(s)
刚刚在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
正常运行，没有报错。
For i = 0 To 10 '假设数组长度为10
If a(i) = 3 Then
For j = i To 10 - 1
a(j) = a(j + 1)
Next j
ReDim Preserve a(10 - 1)
Exit For
End If
Next i
If i 10 Then
For k = 0 To 10 - 1
Print a(k)
Next
Else
For k = 0 To 10
Print a(k)
Next
End If
