with f1book1do
begin
EntryRC[1,1]:='2';
//A1=2
EntryRC[2,1]:='4';
//A2=4
EntryRC[3,1]:='A1+A2=';
FormulaRC[4,1]:='A1+A2';
//A4=A1+A2
EntryRC[1,2]:='named "Num1"';
EntryRC[2,2]:='named "Num2"';
EntryRC[3,2]:='N1+N2=';
DefinedName['Num1']:='$A$1';
//A1 了命名为Num1
DefinedName['Num2']:='$A$2';
//A2 了命名为 Num2
FormulaRC[4,2]:='Num1+Num2';
//A4=Num1+Num2
EntryRC[5,1]:='Function Num12=Num1+SQRT(Num2)';
DefinedName['Num12']:='$A$1+sqrt(Num2)';
//公式 Num12
FormulaRC[6,1]:='Num12';
//A6=公式Num12
end;