设有如下程序：
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的和。程序运行后，单击窗体，输出结果为【12】。

【参考答案】

36

设有如下程序： 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的和。程序运行后，单击窗体，输出结果为 【12】 。