因?yàn)閿?shù)組是引用類型,所以直接賦值會(huì)出現(xiàn)這種情況
為遵義等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù),及遵義網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、遵義網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長(zhǎng)期合作。這樣,我們也可以走得更遠(yuǎn)!
可以在kb=k后單獨(dú)復(fù)制數(shù)組
kb.rr=k.rr.Clone
這樣兩個(gè)數(shù)組就是獨(dú)立的了
之所以先kb=k是為了當(dāng)其含有多個(gè)成員時(shí)值型成員可以直接復(fù)制,只需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
-------------
一個(gè)Form1
一個(gè)Label1
一個(gè)Listbox1
一個(gè)Button1
在Listbox1中加入10個(gè)值
-------------
只是一個(gè)演示,其他的要靠自己。
如果你用的是VB6.0的話,那有一個(gè)相當(dāng)簡(jiǎn)單的方法來完成數(shù)組復(fù)制操作。即使用VB6.0中提供的動(dòng)態(tài)數(shù)組增強(qiáng)功能。
它的使用也很簡(jiǎn)單,首先是聲明數(shù)組,然后是直接賦值。例如對(duì)于你上面的提供的代碼,改為使用動(dòng)態(tài)數(shù)組增強(qiáng)功能的話,代碼如下:
Dim a() As Single '注意a數(shù)組必須是動(dòng)態(tài)數(shù)組,如寫為Dim a(1000000) As Single則錯(cuò)誤
Dim b(1000000) As Single
Dim i As Integer
for i=0 to 999999
a(i)=b(i)
next i
a=b '直接賦值,夠簡(jiǎn)單吧
必須注意的是,這里作為目的數(shù)組的a不能為固定數(shù)組(即在聲明時(shí)就指定了大小的數(shù)組),否則會(huì)引發(fā)錯(cuò)誤。