填空题

设有如下程序：
Private Sub Form_Click()
Dim n As Integer, s As Integer
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 ______ 。程序运行后，单击窗体，输出结果为 ______ 。