将n个数分成想等的或者相差一的两部分

实验目的：将n个数分成想等（n为偶数）的或者相差一（n为奇数）的两部分

实验方法：定义数组以及使用for函数

Private Sub Command1_Click()
Dim m As Integer
Dim a(0 To 12) As Integer
'Print Str(LBound(a))
m = ((UBound(a) - LBound(a) + 1) \ 2)
'Print Str(m)
Dim larray() As Integer, barray() As Integer
'ReDim rarray(0 To UBound(a))
ReDim larray(0 To m) As Integer, barray(0 To UBound(a) - m - 1) As Integer

For i = 0 To 12
a(i) = i
Next i

Call copy(a(), 0, m, larray())
For i = 0 To UBound(larray)
Print Str(larray(i))
Next i
Print
Print
Call copy(a(), m + 1, UBound(a), barray())
For i = 0 To UBound(barray)
Print Str(barray(i))
Next i
End Sub
Sub copy(a() As Integer, m As Integer, n As Integer, b() As Integer)
For i = m To n

b(i - m) = a(i)      
Next i