Visual Basic 6 ( VB6 ) er et programmeringssprog fra Microsoft . Sproget stammer fra den oprindelige BASIC programmeringssprog . VB6 er meget enklere end andre programmeringssprog , men det er stærk i sin egen ret . VB6 bruger nogle af de samme programmering konstruktioner , såsom klasser , funktioner , løkker, betingede sætninger og arrays . VB6 arrays bruges til at gemme elementer af samme værdi. I kodning applikationer , kan du blive nødt til at kopiere elementer i et system til et andet , som kan udføres med linjer VB6 kode. Instruktioner
1

Open Visual Basic 6 .
2

Vælg "Standard EXE " fra det nye projekt listen.
3

gå til den øverste menubjælke . Klik på " Project" og " Tilføj Module ". Denne proces vil tilføje en standard kode modul i VB6 projekt.
4

Skriv eller kopiere og indsætte følgende kode i modulet.

Public Sub CopyArray ( FromArray Som Variant , ToArray som Variant )

Dim l As Long , lUBound As Long , lLBound As Long
p Hvis ( Ikke IsArray ( FromArray ) ) Or ( Ikke IsArray ( ToArray ) ) så Exit Sub
< p> lLBound = LBound ( FromArray )

lUBound = UBound ( FromArray )

ReDim ToArray ( lLBound Til lUBound )

l = lLBound Til lUBound
< p > ToArray ( l ) = FromArray ( l )

Næste

End Sub

Sub TestCopyArry ()

Dim i (2 ) As Integer , j () As Integer

Dim ICTR As Integer

i ( 0) = 5

i (1 ) = 8

i (2 ) = 10

CopyArray i, j

ICTR = 0 Til UBound ( j )

Debug.Print j ( ICTR )

Næste
< p > End Sub