UC知道求教一道vb题目，数组的
来源：百度知道 编辑：UC知道 时间：2024/06/07 10:34:28
编程：在文本框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)
提示:
(1)将一系列以空格间隔的数据放入数组可以采用以下语句：
Dim x
x = Split(Trim(Text1.Text)) 文本框数据以空格为分隔符把数据分割到数组x中，数组下界为0，上界为UBound(x)
(2)当需要在x中增加一个元素,而又不删除x数组中原有的数据.可以使用以下语句:
ReDim Preserve x(UBound(x) + 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
&n