标签:Dim vba 19 tData dat 考点 CurrentProject 例题 out
求斐波拉契数列
- 1 1 2 3 5 7 9...
- 求前20项的和
Option Compare Database
Private Sub btnP_Click()
Dim i As Integer
Dim s As Integer
'*****Add1*****
Dim f(19) '定义数组,长度为19
s = 2
'*****Add1*****
f(1) = 1: f(2) = 1
For i = 3 To 19
'*****Add2*****
f(i) = f(i - 1) + f(i - 2)
s = s + f(i)
'*****Add2*****
Next i
'数据输出到文本框内
'*****Add3*****
Me.tData.Value = s 'me可能代表当前窗体,tData控件名称
'*****Add3*****
'以下是文件操作
If Dir(CurrentProject.Path & "\out.dat", vbDirection) <> vbNullString Then
Kill CurrentProject.Path & "\out.dat"
End If
Open CurrentProject.Path & "\out.dat" For Output As #1
Print #1, Me!tData
Close #1
End Sub
标签:Dim,vba,19,tData,dat,考点,CurrentProject,例题,out 来源: https://www.cnblogs.com/MrFlySand/p/14493669.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。