Question

VB编程用循环结构求P=2*(-4)*6*(-8)*10*(-12)*14*(-16)*18*(-20)

Answer 1

P=3.715891E+09
将下列代码复制进窗体代码中，则可实现点击就求出P。

Private Sub Form_click()
Dim sum As Single
Dim item As Single
Dim i As Integer, n As Integer
sum = 1
item = 2
i = 1
Do While i <= 5
sum = item * (-(item + 2)) * sum
item = 4 + item
i = i + 1
Loop
Print "P="; sum
End Sub
可根据需要加入控件或其他代码。

Answer 2

dim i as integer,lngRes as long
lngRes=1
for i=1 to 10
lngRes=lngRes*(i*2)*(-1)^(i+1)
next
print lngRes