用vb实现以下功能

来源：百度知道 编辑：UC知道 时间：2024/07/02 04:41:13
给定两组整型数据，要求按升序排好，再将两组数据合并后依然按照升序排好，两组数据由用户输入，先输入数据的个数，再依次输入每个数据，输够了自动开始以同样方式输入第二组数据，用两个文本框显示，点击一个按钮后两个文本框内各自排序，点击另一个按钮后合并到第三个文本框并显示出排序后情况，界面三个文本框两个按钮
厄~谢谢一楼的工作~只是两个数据组排序的时候有点问题~出来的结果是13要比123大~，比如这几个排序19，186，1756，14256，出来的结果是14256，1756，186，19，能不能改一下呢麻烦了

还挺麻烦,3个文本框,2个按钮,不要改任何属性,直接复制代码,运行即可.
===============
修改好了,不会在把13排在123后面了
只需要保存到数组的时候转换成数值,
否则默认保存成字符串了,会按顺序比较字符串,
所以13比123大了.现在不会了

Dim i, j, n, s, a(), b(), c()

Private Sub Command1_Click()
'第一组===================
s = ""
Do
n = InputBox("第一组数据个数:")
Loop While Len(n) = 0 Or IsNumeric(n) = False
ReDim a(1 To Int(n))
For i = LBound(a) To UBound(a)
Do
a(i) = Val(InputBox("请输入第" & i & "个数:"))
Loop While Len(a(i)) = 0 Or IsNumeric(a(i)) = False
s = IIf(Len(s) = 0, a(i), s & " " & a(i))
Next i
Text1.Text = s
'第二组===========
s = ""
Do
n = InputBox("第二组数据个数:")
Loop While Len(n) = 0 Or IsNumeric(n) = False
ReDim b(1 To Int(n))
For i = LBound(b) To UBound(b)
Do
b(i) = Val(InputBox("请输入第" & i & "个数:"))
Loop While Len(b(i)) = 0 Or IsNumeric