vb裏的xn函數怎麽用啊

利用xn自定義函數是編程方面的壹個好習慣，也是代碼重復利用的有效途徑。

當然，妳也可以不用xn函數，直接寫自己的代碼。

如下代碼也壹樣正確完成z=(x-2)!+(x-3)!+(x-4)!+.....(x-N)!的計算。

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim t As Integer

Dim z As Long, x As Single

Dim j As Integer

Dim tmp As Long

n = Val(Text1.Text)

x = Val(Text2.Text)

z = 0

For i = 2 To n

t = x - i

tmp = 1

For j = 1 To t

tmp = tmp * j

Next

z = z + tmp

Next

Label1.Caption = z

End Sub

祝妳開心！

上一篇:墨卡托投影C++編程

下一篇:簡單邊框繪制