Question

求教一道vb题目，数组的

编程：在文本框Text1中按编号从小到大的顺序输入若干位同学的编号,在文本框Text2中输入对应的姓名(数据之间用空格间隔,首尾无空格)，现班上又增一位同学，要求他的编号ID1(Text3中)和姓名Name1(Text4中)仍按编号顺序插入到数组ID和Named中。单击Command1完成插入操作,并把插入后的数据显示在Text5(编号)和Text6(姓名)中,数据之间用1个空格间隔。
提示:
(1)将一系列以空格间隔的数据放入数组可以采用以下语句：
Dim x
x = Split(Trim(Text1.Text)) 文本框数据以空格为分隔符把数据分割到数组x中，数组下界为0，上界为UBound(x)
(2)当需要在x中增加一个元素,而又不删除x数组中原有的数据.可以使用以下语句:
ReDim Preserve x(UBound(x) + 1)

Answer 1

上面的文本框是从上到下1,2,3,4,5,6来的，注意一下。晚上有点晕，下面那数组第二个循环写多了，但是也没错。

Private Sub Command1_Click()

Text1.Text = (Text1.Text & Space(1) & Text3.Text)

Text2.Text = CStr(Text2.Text & Space(1) & Text4.Text)

q = Split(Trim(Text1.Text))

w = Split(Trim(Text2.Text))

For k = LBound(q) To UBound(q) - 1

For g = LBound(q) To UBound(q) - 1

If q(g) > q(g + 1) Then

      temp = q(g + 1)

      temp2 = w(g + 1)

      q(g + 1) = q(g)

      w(g + 1) = w(g)

     q(g) = temp

     w(g) = temp2

      End If

Next g

Next k

Text5.Text = ""

Text6.Text = ""

For j = LBound(q) To UBound(q)

Text5.Text = Text5 & Space(1) & q(j)

Text6.Text = Text6 & Space(1) & w(j)

Next j

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text5.Text = ""

Text6.Text = ""

Text3.Text = ""

Text4.Text = ""

Command1.Caption = "插入数据"

End Sub

Answer 2

提示都这么清楚了还不会？