你把郵箱給我我發(fā)給你 這個簡單!
可是 你覺得你的第一個式子對著嗎? n=90 時 i=100嗎?
Private Sub Command1_Click()
n = InputBox("請輸入n：") '你可以自由的輸入 N 值不想要的話你就把 下面的 n直接改成 90就可以了
b = 1
For u = 2 To n'循環(huán)語句
a = (u + 8) / u' 當(dāng) u=i 時式子的第i 項 為（i+8）/i
b = b + a '累加
Next
Print b ' 輸出結(jié)果
End Sub
Private Sub Command1_Click()
n = InputBox("請輸入n：")
X = InputBox("請輸入X：")
a = 1
For u = 1 To n Step 2
For i = 1 To u
a = a * i
Next
If u Mod 4 = 1 Then
b = (X ^ u) / a
Else
b = -(X ^ u) / a
End If
c = c + b
Next
Print c
End Sub
這是兩個個程序我再給你郵箱發(fā)一份你看看 不懂的話 聯(lián)系我!