,显然卡车装一次油一辆重型卡车欲通过1000公里的沙漠,卡车耗油量为1公升/公里,卡车总载油量为500公升,显然卡车装一次油是通过不了沙漠的.因此司机必须在沿途设立几个储油点,使卡车能顺利通过沙漠.试问司机如何建这些储油点?每个储油点应该储

program ex2(input,output);var k,i:integer;d,d1:real;dis,oil:array[0..100] of real;begink:=1;d:=500; {从i=1处开始向始点倒推}dis[1]:=500;oil[1]:=500;repeatk:=k+1;d:=d+500/(2*k-1);dis[k]:=d;oil[k]:=oil[k...能帮我改成VB吗。。。对不起，我不会VB，括号里是解释，自己看了理解了改一下吧。