本程序演示计算1-1/2+1/3-1/4+.../99-1/100的值，并显示出来

用vb么？

dim i as integer
a = 0
for i = 1 to 100
a = a + ((-1)^(n+1))/n
next i
print a(或label1.caption = a[你用那个label,就写label几，不一定是label1])

1-1/2+1/3-1/4+.../99-1/100
=1/2+1/12+1/30....1/9900
=1/(1*2)+1/(3*4)+1/(5*6)......1/(99*100)
=12054

=12054