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

【正确答案】求整数 1~8 之和 , 36

【答案解析】Do…Loop While 语句，是先执行循环体，然后再判断条件，当条件表达式为 True 时，继续执行循环体，当表达式为 False 时，退出循环。本题中先执行一次循环体，即 s+8，n-1，每执行一次循环体，n 就减 1，当 n<=0 时，则退出循环。所以当 n=0 时，结束循环，此时循环体执行了 8 次 n=8+7+6+5+4+3+2+1=36。所以此程序的功能就是求整数 1~8 之和。