VB中，将一个有20个元素的数组中的正数放入另外一个数组中，这个编程
1个回答
展开全部
dim a(20) as integer
dim b(20) as integer
'给a数组赋值
for i=1 to 20
if a(i)>0 then
b(j)=a(i)
j=j+1
end if
next
dim b(20) as integer
'给a数组赋值
for i=1 to 20
if a(i)>0 then
b(j)=a(i)
j=j+1
end if
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
