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

Question

谢谢大家了~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的方法

Answer 1

一、这是你标题的问题代码
Private Sub Command1_Click()
Dim c() As Single
al = LBound(a)
ae = UBound(a)
bl = LBound(b)
be = UBound(b) - bl
ReDim c(ae - al + 1 + be)
cl = 0

Do
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
al = al + 1
ElseIf a(al) < b(bl) Then
c(cl) = a(al)
cl = cl + 1
al = al + 1
Else
c(cl) = b(bl)
cl = cl + 1
bl = bl + 1
End If
Loop Until al > ae And bl > be
end sub

二、把问题代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim b() As Integer

List1.Clear
List2.Clear
For i = 1 To 100
a(i) = Rnd() * 21
List1.AddItem a(i)
If a(i) <> 0 Then
bn = bn + 1
ReDim Preserve b(bn)
b(bn) = a(i)
List2.AddItem a(i)
End If
Next i
Label1 = "共产生了" & 100 - bn & "个零。"
End Sub

参考资料：自己写的