填空题

设有如下程序: 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 以上程序的功能是______。程序运行后,单击窗体,输出结果为______。

【参考答案】

计算8+7+6+5+4+3+2+1