[填空题] 设有如下程序： Private Sub Form_Click() Dim a As Integer,S As Integer n=8:S=0 Do S=S+n:n=n-1 Lo

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

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) 。