求下面数列前40项的和，结果保留4位小数。界面自定。1，，，，…
求下面数列前40项的和，结果保留4位小数。界面自定。1，，，，…Private Sub Form_Click()S=0T=0For i=1 to 40T=T+iS=S+1/TNext iPrint“S＝”；Format(S,”0.0000”)End Sub或者S＝0For i=1 to 40T=0For j=1 to iT=T+jNext jS=S+1/TNext iPrint“S＝”；Forma