[填空题] 设有如下程序： Private Sub Form_Click() Dim a As Integer， s As Integer n=8 s=0 Dos=s+nn=n-1

[填空题] 设有如下程序：

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

以上程序的功能是______。程序运行后，单击窗体，输出结果为______。