请教怎样用Delphi编写乘法口诀表 - 编程论坛

#2

toolag2005-08-01 01:08

你可以参考 C/C++的,
int i, j;
for(i=1; i<10; i++)
{
for(j=1; j<=i; j++)
{
cout << j << "X" << i << "=" << j*i << " ";
}
cout << endl;
}

Delphi好久没用, 也没测试环境, 在输出显示数据时恐怕要注意一些, 需要变换的写
不知道使用什么控件作为显示载体比较好 Label / Edit 的话太小了, RichEdit ? 忘记了

#3

mihaisheng2005-08-01 21:39

使用stringgrid
设置stringgrid的行与列的count
利用cells[j,i]属性注意:cells其列在前行在后

#4

zhangzujin2005-08-01 22:10

[分享]看看

只有本站会员才能查看附件，请登录

如不想下载，可看如下应用程序代码： unit multiple;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

type Tmulfrm = class(TForm) multiplegrid: TStringGrid; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var mulfrm: Tmulfrm;

implementation

{$R *.dfm}

procedure Tmulfrm.FormCreate(Sender: TObject); var i,j:integer; begin for i:=1 to 9 do for j:=1 to i do multiplegrid.Cells[j,i]:=inttostr(j)+'*'+inttostr(i)+'='+inttostr(i*j); end;

end.