Visual Basic 6 ( VB6 ) er et programmeringsspråk fra Microsoft. Språket stammer fra den opprinnelige BASIC programmeringsspråk. VB6 er mye enklere enn andre programmeringsspråk , men det er kraftig i sin egen rett . VB6 bruker noen av de samme programmering konstruerer , for eksempel klasser , funksjoner , løkker, betinget utsagn og matriser . VB6 arrays brukes til å lagre elementer av tilsvarende verdi . I koding programmer , må du kanskje kopiere elementer i en matrise til en annen, noe som kan oppnås med linjer med VB6 kode . Instruksjoner
en
Åpen Visual Basic 6 .
2
Velg " Standard EXE " fra det nye prosjektet listen.
3
gå til menylinjen øverst . Klikk på " Project" og "Legg til modul . " Denne prosessen vil legge til en standard kodemodul inn VB6 prosjektet .
4
skriv eller kopier og lim inn følgende kode i modulen.
Public Sub CopyArray ( FromArray As Variant , ToArray som Variant )
Dim l As Long , lUBound som Long , lLBound som Long
p Hvis (Ikke IsArray ( FromArray ) ) Or ( Ikke IsArray ( ToArray ) ) Then Exit Sub
< p> lLBound = LBound ( FromArray )
lUBound = UBound ( FromArray )
ReDim ToArray ( lLBound å lUBound )
For l = lLBound å lUBound
< p > ToArray ( l) = FromArray ( l)
Neste
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
For ICTR = 0 For å UBound ( j )
Debug.Print j ( ICTR )
Neste
< p > End Sub