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