3个回答
展开全部
Private Sub Command1_Click()
Dim a(), b(), i As Integer
a = Array(1, 2, 3, 4, 5)
b = Array(6, 7, 8, 9, 0)
ReDim Preserve a(UBound(a) + UBound(b) + 2)
For i = 5 To 9
a(i) = b(i - 5)
Next
For i = 0 To 9
Print a(i);
Next
End Sub
Dim a(), b(), i As Integer
a = Array(1, 2, 3, 4, 5)
b = Array(6, 7, 8, 9, 0)
ReDim Preserve a(UBound(a) + UBound(b) + 2)
For i = 5 To 9
a(i) = b(i - 5)
Next
For i = 0 To 9
Print a(i);
Next
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先建三个动态数组,可用for语句进行数组运算。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
chinaboyzyq朋友已经回答了,非常正确呀!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询