编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= (6)
B=Val(Text2.Text)
(7) =A+B
End Sub

带电作业监护应遵守哪些规定？