EXCEL VBA实验记录.docxVIP

例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 + For