请问VB程序设计中,将一个有20个元素的数组中的正数放入另一个数组的

2025-03-09 21:28:01
推荐回答(1个)
回答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