填空题设有如下程序：
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
以上程序的功能是{{U}} {{U}} 5 {{/U}} {{/U}}。程序运行后，单击窗体，输出结果是{{U}} {{U}} 6 {{/U}} {{/U}}。