VB編程，請各位幫幫忙

Private sub Form_Click()

Dim x, n, i, res

x = Val(InputBox("輸入數據x")): n = Val(InputBox("輸入數據n"))

For i = 2 To n

res = res + x ^ (i - 1) / jc(i)

Next i

MsgBox res

End Sub

Function jc(m)

Dim j, tem

tem = 1

For j = 1 To m

tem = tem * j

Next j

jc = tem

End Function

上一篇:火影筆記本是哪家做的——

下一篇:五子棋vs編程