一、6 5 4 3
二、70
三、
W
WWW
WWWWW
五、
1.填空:
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer
n = InputBox("请输入N的值:")
s = 0
p = -1
q = n
For i = 1 To n
p = -p
q = -q
s = s + p * i / q
next
Print s
……
End Su
一、6 5 4 3
二、70
三、
W
WWW
WWWWW
五、
1.填空:
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer
n = InputBox("请输入N的值:")
s = 0
p = -1
q = n
For i = 1 To n
p = -p
q = -q
s = s + p * i / q
next
Print s
……
End Su