2009年4月17日
打印九九乘法口决表
摘要： procedure TForm3.btn_cfClick(Sender: TObject);var i,j : Integer;begin Form1.Refresh; for i:=1 to 9 do for j:=1 to i do begin Form3.Canvas.TextOut(j*50-40,i*20+40,IntToStr(j)+' * '+IntToSt... 阅读全文
posted @ 2009-04-17 17:32 kaka9 阅读(1670) 评论(0) 推荐(0) 编辑