表單上有壹個名為command1的按鈕。
私有子命令1_Click()
將I標註為整數
Dim e為Double
暗電流加倍,持續時間加倍
i = 1
e = 2
電流= 1
做
i = i + 1
上次=當前
當前值= 1 /階乘(I)
e = e +電流
上次循環時-當前& gt10 ^ -4
MsgBox e
末端接頭
函數階乘(ByVal n為整數)長
如果n = 0,則
階乘= 1
其他
階乘= n *階乘(n - 1)
如果…就會結束
結束功能