因为数组是引用类型，所以直接赋值会出现这种情况
为遵义等地区用户提供了全套网页设计制作服务，及遵义网站建设行业解决方案。主营业务为成都网站建设、网站建设、遵义网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
可以在kb=k后单独复制数组
kb.rr=k.rr.Clone
这样两个数组就是独立的了
之所以先kb=k是为了当其含有多个成员时值型成员可以直接复制，只需Clone引用类型的就行了
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String
For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next
Label1.Text = a(5)
End Sub
End Class
-------------
一个Form1
一个Label1
一个Listbox1
一个Button1
在Listbox1中加入10个值
-------------
只是一个演示，其他的要靠自己。
如果你用的是VB6.0的话，那有一个相当简单的方法来完成数组复制操作。即使用VB6.0中提供的动态数组增强功能。
它的使用也很简单，首先是声明数组，然后是直接赋值。例如对于你上面的提供的代码，改为使用动态数组增强功能的话，代码如下：
Dim a() As Single '注意a数组必须是动态数组，如写为Dim a(1000000) As Single则错误
Dim b(1000000) As Single
Dim i As Integer
for i=0 to 999999
a(i)=b(i)
next i
a=b '直接赋值，够简单吧
必须注意的是，这里作为目的数组的a不能为固定数组（即在声明时就指定了大小的数组），否则会引发错误。