用VB写设计程序代码，求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。

Function sumD(n As Integer) As Single

s = 1

i = 1

Do

i = i + 1

s = s + 1 / i

Loop Until i >= n

sumD = s

End Function

Function sumF(n As Integer) As Single

s = 0

For i = 1 To n

s = s + 1 / i

Next i

sumF = s

End Function

Private Sub Form_Click()

sum1 = sumD(100)

sum2 = sumF(100)

Print

Print "sum1="; sum1

Print "sum2="; sum2

End Sub

运行结果是：

sum1=5.187377

sum2=5.187377

扩展资料：

一、print是一个打印输出语句。

不带输出项的print即为输出一个空行，如果之前的print语句输出项的最后用了诸如“，”或“；”，则表示其输出是在同一行上。其后面的空的print语句用来消除前面的print语句一直在同一行上输出的效果，使其后面的输出是在下一行。

如：Print()

二、print（DOS命令）

打印文本文件。

Private Sub Command1_Click()

n = CInt(InputBox("N="))

Print "N="; n

For i = 1 To n

t = t + i

s = s + t

Next i

Print "Sum="; s

End Sub

Private Sub Command1_Click() Dim n, s Dim i, j n = Val(InputBox("请输入数据：")) For i = 1 To n For j = 1 To i s = s + j Next j Next i Print s End Sub