设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _。程序运行后，单击窗体，输出结果为 _。

【参考答案】

求整数 A~H 之和 , CF

设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。