vb的一道题目，怎样把一个数组的数据存入到另一个数组。

如果TXT文件是单行的话
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(lof(1), 1)
Close #1
Dim a
a = Split(Text1.Text)

如果是多行要加循环

Option Explicit
Dim a$, n%, k%, c$(), d%

Private Sub Form_Click()
n = 0
Open App.Path & "emp.txt" For Input As #1
Do Until EOF(1)
n = n + 1
Line Input #1, a
ReDim c(n)
d = Len(a)
k = InStr(1, a, "=")
c(n) = Right(a, (d - k + 1))
Print "c(" & n & ")=" & c(n)
Loop
Close #1
End Sub

Dim intArray(1 To 100) As Integer
Private Sub Command1_Click()
Label1.Caption = ""
Randomize (Timer)
For i = LBound(intArray) To UBound(intArray)
10 intArray(i) = Int(Rnd(i) * 9000 + 1000)
For j = LBound(intArray) To i - 1
If intArray(i) = intArray(j) Then GoTo 10
Next j
Next i
For i = LBound(intArray) To UBound(intArray)
Label1.Caption = Label1.Caption + CStr(intArray(i)) + Space(1)
If i Mod 10 = 0 Then Label1.Caption = Label1.Caption + vbCrLf
Next i
End Sub

Private Sub Command2_Click()
Label2.Caption = ""
Dim Flag As Boolean, intPrimeArray(1 To 100) As Integer
For i = LBound(intArray) To UBound(intArray)
Flag = True
For j = 2 To Sqr(intArray(i))
If intArray(i) Mod j = 0 Then
Flag = False
Exit For
End If
Next j
If Flag Then
k = k + 1
intPrimeArray(k) = intArray(i)
End If
Next i
For i = LBound(intArray) To k
Label2.Caption = Label2.Caption + CStr(intPrimeArray(i)) + Space(1)
If i Mod 10 = 0 Then Label2.Caption = Label2.Caption + vbCrLf
Next i
End Sub

Private Sub Form_Click()
   Dim a%(), c$(), i%, j%, S$, temp$, w$, y$
   Print "国家" & Space(16) & "首都"
   w = "="
   y = String(40, w)
   Print y
   S = "中国：北京，日本：东京，俄罗斯：莫斯科，印度尼西亚：雅加达，丹麦：哥本哈根，瑞典：斯德哥尔摩，芬兰：赫尔辛基，法国：巴黎，荷兰：阿姆斯特丹，比利时：布鲁塞尔"
   c = Split(S, "，")


    For i = 0 To UBound(c)
        o = c(i)
        p = Left(c(i), InStr(c(i), "：") - 1)
        q = Right(c(i), Len(c(i)) - InStr(c(i), "："))
        Print p & Space(20 - LenB(p)) & q
    Next
   
End Sub

Private Sub Form_Click()

Dim a$(), c$(), i%, j%, S$, temp$, w$, y$

Print "国家", Tab; "首都"

   w = "="

   y = String(40, w)

   Print y

  S = "中国：北京，日本：东京，俄罗斯：莫斯科，印度尼西亚：雅加达，丹麦：哥本哈根，瑞典：斯德哥尔摩，芬兰：赫尔辛基，法国：巴黎，荷兰：阿姆斯特丹，比利时：布鲁塞尔"

   c = Split(S, "，")

ReDim a(1 To UBound(c) + 1, 1 To 2)

Dim ar

For i = 0 To UBound(c)

    ar = Split(c(i), "：")

    a(i + 1, 1) = ar(0)

    a(i + 1, 2) = ar(1)

Next

For i = 1 To UBound(a)

    Print a(i, 1), Tab; a(i, 2)

Next

End Sub

输出到屏幕使它们对齐，用 Tab() 函数最简单