把两个按升序排列的数列a(1),a(2),...,a(n)和b(1),b(2),...,b(m),合并成一个仍为升序排列的新数列

显示全部楼层 · 2017-5-26 16:33:36

谢谢大家了~o(∩_∩)o...
还有几个问题,帮帮忙
a.随机产生一个m*n的矩阵,矩阵的每一个数字是0-100的正整数.m,n的值由InputBox函数给出.要求输出原数组的值,要插入的值,插入的位置,完成插入户数组的值
b.随机产生100个0-20的随机整数,存放在a数组中,读出其中所有非0数据,并依次存放到数组b中.把数组a和数组b分别显示在列表框list1和list2中,并把a中的0的个数显示在标签label中
用vb的方法

千问 · 2017-5-26 16:33:36

一、这是你标题的问题代码Private Sub Command1_Click()Dim c() As Singleal = LBound(a)ae = UBound(a)bl = LBound(b)be = UBound(b) - blReDim c(ae - al + 1 + be)cl = 0Do
If al > ae Then
c(cl) = b(bl)
cl = cl + 1
bl = bl + 1
ElseIf bl > be Then
c(cl) = a(al)
cl = cl + 1