回复:再问一个VB题……OTL(已解决^_^)
................vb ..........basic ............
看来语言过时了............................ 有点对不起的样子
.......发泄一下.
program lt;
var i,j,p:integer;
begin
for i:=1 to 6 do
begin
if i mod 2=0 then f:=' -' else f:=' ';
for j:=1 to i do
begin
write(f, ' ');
for p:=1 to j do
write(p);
end;
writeln;
end;
end. [:Wakeup:]