Question

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

题目：1.将字符串S="中国：北京，日本：东京，俄罗斯：莫斯科，印度尼西亚：雅加达，丹麦：哥本哈根，瑞士：斯德哥尔摩，芬兰：赫尔辛基，法国：巴黎，荷兰：阿姆斯特丹，比利时：布鲁塞尔"存入数组c中，每个国家为一个元素。
2.按数组c的元素个数n，使用数组a(1 To n，1 To 2)，将数组c中的每个元素中的国家名存入二维数组a的第一维元素中，首都明存入a的第二维对应元素中。
3.在窗体上分两列显示数组a，第1列为国家名，第2列为首都名。
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, "，")

End Sub
上面是未完成品
刚学vb……
要达到这种效果……

Answer 1

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

Answer 2

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() 函数最简单

Answer 3

一个数组的数据存入到另一个数组。
假设a（） 是有数据了的，存入到B数组中就是
b()=a()

追问

如果a()是一维数组，b()是二维数组的话能不能存入

追答

那就转换啊，循环数组重定义