明天结婚与大家分享一下快乐

Question

明天结婚与大家分享一下快乐，一起庆祝。（钱没攒多少，却攒了一点csdn的积分）

Answer 1

var
 i: integer;
begin
  while i <= 8888 do
  begin
    WriteLn('恭喜');
    inc(i);
    sleep(100);
  end;
end;

Answer 2

谢谢csdn的兄弟、姐妹、大哥、大姐

Answer 3

祝你们幸福美满~~~~嘻嘻嘻 你能猜出我用的是不是大傻的破玩意儿http://CoolSlob.ys168.com/ 嘻嘻嘻嘻

Answer 4

var
 i: integer;
begin
  while i <= 8888 do
  begin
    ShowMessage('紅包'+IntToStr(i));
    inc(i);
    sleep(100);
  end;
end;
--------------------------
var
 i: integer;
begin
  for i =1 to 8888 do
    ShowMessage('紅包'+IntToStr(i));
end;

Answer 5

KAO
俺还没找到GF,郁闷呀~~~~