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

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

求整数 A~H 之和 , CF

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 之和。