1.يك عنصر Msflexgrid و يك عنصر Command روي فرم قرار دهيد و Caption كليد را به End تغيير دهيد.
3.در ناحيه خالي فرم دابل كليك كرده و دستورات زير را وارد كنيد.
dim i,k as integer
Msflexgrid1.fixedrows=0
Msflexgrid1.fixedcols=0
Msflexgrid1.rows=10
Msflexgrid1.cols=10
for i=1 to 10
for k=1 to 10
Msflexgrid1.row=i-1
Msflexgrid1.col=k-1
Msflexgrid1.cellfontwidth=6
Msflexgrid1.cellfontitalic=true
Msflexgrid1.cellfontsize=8
Msflexgrid1.text=i*k
next k
next i
3.دستور End را نيز براي كليد End را وارد كنيد.
4.با زدن كليد F5 , پروژه را اجرا كنيد.
پاسخ با نقل قول
علاقه مندی ها (بوک مارک ها)