设有如下程序：
Private Sub Form_Cliok()
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。

在有（）、管道及光缆等地下设施的地方进行土石方开挖时，应事先取得有关管理部门的书面同意，并有相应的安全措施且派有专人监护；严禁用冲击工具或机械挖掘。