![[填空题] 设有如下程序：Private Sub Form_Click()Dim n As Integer，s As Integern=8s=0Dos=s+nn=n-1Loop While n＞0Pr](http://www.mshxw.com/aiimages/31/256681.png "[填空题] 设有如下程序：Private Sub Form_Click()Dim n As Integer，s As Integern=8s=0Dos=s+nn=n-1Loop While n＞0Pr")
[填空题] 设有如下程序：Private Sub Form_Click()Dim n As Integer，s As Integern=8s=0Dos=s+nn=n-1Loop While n＞0Print sEnd 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之和。
