EXCEL VBA实验记录

《EXCEL VBA实验记录》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、例1：Subbsdds()Dima,k,t1,t2AsSinglek=0.02a=1Fori=2To2048ss="C"+Format(i-1)t1=Range(ss).Valuess="C"+Format(i)t2=Range(ss).Valuett=(a+t2-t1)/(1+k)a=ttss="F"+Format(i)Range(ss).Value=ttNextEndSub例2：Subasdds()Fori=1To100tt=0ss="B"+Format(i)Range(ss).Value=ttNextiFori=10

2、1To200tt=1000*Exp((101-i)/100)ss="B"+Format(i)Range(ss).Value=ttNextiFori=201To1021tt=1000*Exp((201-i)/100)+1000*Exp((101-i)/100)ss="B"+Format(i)Range(ss).Value=ttNextEndSub例三：R-C电路2013年9月27日最终公式：Sub输入信号赋值()Fori=1To300ss="A"+Format(i)Range(ss).Value=0NextiFori=301

3、To2048ss="A"+Format(i)Range(ss).Value=100NextiEndSubSubRC积分电路()Fori=1To1k=50a=0ss="B"+Format(i)Range(ss).Value=0NextiFori=2To2048ss="A"+Format(i)t1=Range(ss).Valuett=(a*k+t1)/(1+k)a=ttss="B"+Format(i)Range(ss).Value=ttNextiEndSub例四：极零相消电路2013年10月19日最终公式：，，Sub输入信号(

4、)Fori=1To300ss="C"+Format(i)Range(ss).Value=0NextiFori=301To2048ss="C"+Format(i)Range(ss).Value=100NextiEndSubSub极零相消电路()k1=0.005k2=0.05a=0Fori=2To2048ss="C"+Format(i)t2=Range(ss).Valuett=(a+(1+k1)*t2-t1)/(1+k1+k2)a=ttss="E"+Format(i)Range(ss).Value=ttNextiEndSubS

5、ub输入信号()Fori=1To300ss="A"+Format(i)Range(ss).Value=0NextiFori=301To600ss="A"+Format(i)Range(ss).Value=100NextiFori=601To1100ss="A"+Format(i)Range(ss).Value=0NextiFori=1101To1500ss="A"+Format(i)Range(ss).Value=100NextiFori=1501To2048ss="A"+Format(i)Range(ss).Value=

6、0NextiEndSubSub极零相消电路()k1=0.005k2=0.05a=0Fori=2To2048ss="A"+Format(i)t2=Range(ss).Valuett=(a+(1+k1)*t2-t1)/(1+k1+k2)a=ttss="B"+Format(i)Range(ss).Value=ttNextiEndSub例五：CR电路10月19日最终公式：Sub输入信号()Fori=1To300ss="A"+Format(i)Range(ss).Value=0NextiFori=301To2048ss="A"+Fo

7、rmat(i)Range(ss).Value=100NextiEndSubSubCR电路()k=50Fori=2To2048ss="B"+Format(i-1)t=Range(ss).Valuess="A"+Format(i)t1=Range(ss).Valuess="A"+Format(i-1)t2=Range(ss).Valuett=(k*t+k*t1-k*t2)/(k+1)ss="B"+Format(i)Range(ss).Value=ttNextiEndSubSub输入信号()Fori=1To300ss="A"+F

8、ormat(i)Range(ss).Value=0NextiFori=301To600ss="A"+Format(i)Range(ss).Value=100NextiFori=601To1100ss="A"+Format(i)Range(ss).Value=0NextiFori=1101To1500ss