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命令）

列印文字檔案。