版主
查看详细资料
TOP
管理员
find=false c=count(FrmA1) for i=0 to c if FrmA1(i).Caption="字串" then find=true next if find=false then Redim Preserve FrmA1(c) set FrmA1(c)=new frmA end if
查看个人网站