跪求vb程序（高分追赏）

来源：百度知道 编辑：UC知道 时间：2024/07/08 14:48:15
哪位vb高手能帮我写个vb程序，要原创，不要木马。小弟要教期末作业，不会啊。谢谢了，一定送高分
只要是原创就可以了，不用管什么题目，能应付那个老师的法眼就可以了，老大，帮帮忙啊

1. 1-1/3!+1/5!-1/7!..
Dim i As Integer, j As Integer, aa As Integer, bb As Integer, ss As Double, tt As Double, rr As Double
Dim n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入循环次数小于1000的整数!")
Exit Sub
End If
n = TextBox0.Text
For i = 0 To n
bb = 2 * i + 1
For j = 1 To bb
aa = (-1) ^ i
If rr = 0 Then
rr = j
Else
rr = rr * j
End If
Next
ss = aa / rr
If tt = 0 Then
tt = ss
Else
tt = tt + ss
End If
rr = 0
Next
fz_1.Text = tt

QQ：674236535 送你一个，网上没有！！！