x={}
For[i=0,i<10,i++,
f=i+1/360;
a=1;
b=2;
s=FindRoot[
a*Sin[k]+b*Cos[k]-Tan(f)==0,{k,0}];
x1=2*k-sin[k];
y1=cos[k]-k;
AppendTo[x,x1,y1]
]
为什么得到的x1与y1都是还有k的式子，FindRoot得到的k值为什么不赋值到下面的表达式中，请帮忙看一下。

因为FindRoot设计如此，它不会修改k。你要代入的话，要自己写：x1=2*k-sin[k]/.s
此外，Tan(f)似乎应为Tan[f]，sin->Sin, cos->Cos

按照您说的那样加/.s出现这个报错，是为什么呢？

总之从你程序可以看出你对语法、功能都知之甚少，建议先学再用。
我懒，所以如果你如果继续提出低水平问题，我可能不会再回复。因为所有用户都经历过你这样的阶段，要是每个人都来问问题，不可能答得过来。这种事情应视为提问者的责任。