VB．．帮我设计个程序

来源：百度知道 编辑：UC知道 时间：2024/05/13 07:23:52
设整数数组A和B中,各按增序存储了50个数据,且A和B中的所有数据都不相同,设计一个算法,把A和B中的所有数据都存储到数组C中,要求C中的数据仍是按增序存储的

请把代码写一下,最好有简略的解释

Sub store(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer, f As Integer, j As Integer
For i = 0 To 49
c(i) = a(i)
Next
For i = 0 To 49
c(i + 50) = b(i)
Next
For i = 1 To 99
For j = 0 To 98
If c(i) < c(j) Then
f = c(j)
c(j) = c(i)
c(i) = f
End If
Next
Next
End Sub

使用时可以调用这个过程。用法是store a(),b(),c()
这样就可以把a()和b()数组存入c()中，再按增序排列