[填空题] 设有如下程序：Private Sub Form_Click()Dim n As Integer，s As Integern=8s=0Dos=s+nn

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