dim a(96) as string,i as integer,k as integerk=101for i=0 to 45a(i)="0843" + cstr(k)k=k+1if k=102 then k=k+1if k=103 then k=k+1if k=104 then k=k+1if k=106 then k=k+1if k=135 then k=k+1if k=147 then k=k+1next ik=201for i=46 to 96a(i)="0843" + cstr(k)k=k+1if k=219 then k=k+1if k=224 then k=k+1ne...