设有如下程序： 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 以上程序的功能是【10】。程序进行后，单击窗体，输出结果为【11】。

【参考答案】

[10]计算1到8的和。

设有如下程序： 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 以上程序的功能是 【10】 。程序进行后，单击窗体，输出结果为 【11】 。