EXCEL VBA实验记录.docx_第1页
EXCEL VBA实验记录.docx_第2页
EXCEL VBA实验记录.docx_第3页
EXCEL VBA实验记录.docx_第4页
EXCEL VBA实验记录.docx_第5页
已阅读5页，还剩14页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

例1：Sub bsdds()Dim a, k, t1, t2 As Singlek = 0.02a = 1For i = 2 To 2048ss = 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 = ttNextEnd Sub例2：Sub asdds()For i = 1 To 100tt = 0ss = B + Format(i)Range(ss).Value = ttNext iFor i = 101 To 200tt = 1000 * Exp(101 - i) / 100)ss = B + Format(i)Range(ss).Value = ttNext iFor i = 201 To 1021tt = 1000 * Exp(201 - i) / 100) + 1000 * Exp(101 - i) / 100)ss = B + Format(i)Range(ss).Value = ttNextEnd Sub例三：R-C电路2013年9月27日最终公式：Sub 输入信号赋值()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 2048ss = A + Format(i)Range(ss).Value = 100Next iEnd SubSub RC积分电路()For i = 1 To 1k = 50a = 0ss = B + Format(i)Range(ss).Value = 0Next iFor i = 2 To 2048ss = A + Format(i)t1 = Range(ss).Valuett = (a * k + t1) / (1 + k)a = ttss = B + Format(i)Range(ss).Value = ttNext iEnd Sub例四：极零相消电路2013年10月19日最终公式：， ，Sub 输入信号()For i = 1 To 300ss = C + Format(i)Range(ss).Value = 0Next iFor i = 301 To 2048ss = C + Format(i)Range(ss).Value = 100Next iEnd SubSub 极零相消电路()k1 = 0.005k2 = 0.05a = 0For i = 2 To 2048ss = C + Format(i)t2 = Range(ss).Valuett = (a + (1 + k1) * t2 - t1) / (1 + k1 + k2)a = ttss = E + Format(i)Range(ss).Value = ttNext iEnd SubSub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 600ss = A + Format(i)Range(ss).Value = 100Next iFor i = 601 To 1100ss = A + Format(i)Range(ss).Value = 0Next iFor i = 1101 To 1500ss = A + Format(i)Range(ss).Value = 100Next iFor i = 1501 To 2048ss = A + Format(i)Range(ss).Value = 0Next iEnd SubSub 极零相消电路()k1 = 0.005k2 = 0.05a = 0For i = 2 To 2048ss = A + Format(i)t2 = Range(ss).Valuett = (a + (1 + k1) * t2 - t1) / (1 + k1 + k2)a = ttss = B + Format(i)Range(ss).Value = ttNext iEnd Sub例五：CR电路10月19日最终公式：Sub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 2048ss = A + Format(i)Range(ss).Value = 100Next iEnd SubSub CR电路()k = 50For i = 2 To 2048ss = 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 = ttNext iEnd SubSub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 600ss = A + Format(i)Range(ss).Value = 100Next iFor i = 601 To 1100ss = A + Format(i)Range(ss).Value = 0Next iFor i = 1101 To 1500ss = A + Format(i)Range(ss).Value = 100Next iFor i = 1501 To 2048ss = A + Format(i)Range(ss).Value = 0Next iEnd SubSub CR电路()k = 50For i = 2 To 2048ss = 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 = ttNext iEnd Sub例六：放大电路+电容 表示两端电压，表示单点对地电压，输入一定是和输出是同时刻的，所以这里选择的是Sub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 600ss = A + Format(i)Range(ss).Value = 100Next iFor i = 601 To 1100ss = A + Format(i)Range(ss).Value = 0Next iFor i = 1101 To 1500ss = A + Format(i)Range(ss).Value = 100Next iFor i = 1501 To 2048ss = A + Format(i)Range(ss).Value = 0Next iEnd SubSub 极零相消电路()k1 = 0.005k2 = 0.05For i = 2 To 2048ss = B + Format(i - 1)t1 = Range(ss).Valuess = A + Format(i)t2 = Range(ss).Valuett = (t1 - k1 * t2) / (k2 + 1)ss = B + Format(i)Range(ss).Value = ttNext iEnd Sub例七： S-K电路10月21日基本假设：由虚短得到 由KCL得到 由虚断得到Sub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 600ss = A + Format(i)Range(ss).Value = 100Next iFor i = 601 To 1100ss = A + Format(i)Range(ss).Value = 0Next iFor i = 1101 To 1500ss = A + Format(i)Range(ss).Value = 100Next iFor i = 1501 To 2048ss = A + Format(i)Range(ss).Value = 0Next iEnd SubSub 极零相消电路()k = 50For i = 1 To 2ss = B + Format(i)Range(ss).Value = 0Next iFor i = 3 To 2048ss = B + Format(i - 1)t1 = Range(ss).Valuess = B + Format(i - 2)t2 = Range(ss).Valuess = A + Format(i)t3 = Range(ss).Valuett = (k + 2 * k * k) * t1 - k * k * t2 + 2 * t3) / (1 + k + k * k)ss = B + Format(i)Range(ss).Value = ttNext iEnd SubSub 输入信号()For i = 1 To 300ss = A + Format(i)Range(ss).Value = 0Next iFor i = 301 To 2048ss = A + Format(i)Range(ss).Value = 100Next iEnd SubSub 极零相消电路()k = 50For i = 1 To 2ss = B + Format(i)Range(ss).Value = 0Next iFor i = 3 To 2048ss = B + Format(i - 1)t1 = Range(ss).Valuess = B + Format(i - 2)t2 = Range(ss).Valuess = A + Format(i)t3 = Range(ss).Valuett = (k + 2 * k * k) * t1 - k * k * t2 + 2 * t3) / (1 + k + k * k)ss = B + Format(i)Range(ss).Value = ttNext iEnd SubSub 信号()Dim a, k, t1, t2 As Singlek = 0.02a = 230For i = 300 To 2048ss = C + Format(i - 1)t1 = Range(ss).Valuess = C + Format(i)t2 = Range(ss).Valuett = (a + t2 - t1) / (1 + k)a = ttss = A + Format(i)Range(ss).Value = ttNextEnd SubSub S_K电路()k = 50For i = 1 To 2ss = B + Format(i)Range(ss).Value = 0Next iFo
人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论