问题
填空题
设有如下程序：
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之和。