对开挖工作坑的所有作业人员都应严格执行施工管理人员的（）。
A.安全技术交底
B.安全教育
C.现场示范
D.逐级布置工作
参考答案：A
设函数y=f（x）的图象与y=log2（1-x）的图象关于直线x=1对称，则y=f（x）为（ ）
A．y=log2（1+x）
B．y=log2（x-1）
C．y=log2（x-2）
D．y=log2（2-x）
【说明】 在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息。例如，在List列表中存在元素“a01001；a01002”，如果用户输入数据为“a01001”或“a01002”，系统则弹出提示信息，拒绝将新数据加入List列表；如果用户输入的数据不同于List列表中的任何一个元素，则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明，完成程序代码。
【代码5-1】 Begin VB.Form Forml Caption= "List 列表拒绝添加重复信息"//...窗体描述(略) Begin VB.CommandButton Command2 Caption= "退出"//...窗体描述(略) End Begin VB.CommandButton Commandl Caption= "添加"//...窗体描述(略) End Begin VB.TextBox Text1 //...窗体描述(略) End Begin VB.ListBox List1 Height = 1860 ItemData= "Form1.fix": 0000 Left = 1020 List = "Form1.fix": 0002 TabIndex= 0 Top = 525 Width = 2580 End Begin VB.Labe1 Labe11 BackStyle= 0 ’Transparent Caption= "请输入编号" //...窗体描述(略) End End 【代码5-2】 Attribute VB Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB Creatable = False Attribute VB PredeclaredId = True Attribute VB_Exposed = False Private Sub Form Load () List1.AddItem "a01001" List1.AddItem "a01002" End Sub Private Sub Cormnand1 Click () Dim Myval As Long For i=0 To (1) (2) If (3) Then MsgBox "系统不允许重复输入，请重新输入" Exit SubEnd If (4) (5) End Sub
【代码5-1】 Begin VB.Form Forml Caption= "List 列表拒绝添加重复信息"//...窗体描述(略) Begin VB.CommandButton Command2 Caption= "退出"//...窗体描述(略) End Begin VB.CommandButton Commandl Caption= "添加"//...窗体描述(略) End Begin VB.TextBox Text1 //...窗体描述(略) End Begin VB.ListBox List1 Height = 1860 ItemData= "Form1.fix": 0000 Left = 1020 List = "Form1.fix": 0002 TabIndex= 0 Top = 525 Width = 2580 End Begin VB.Labe1 Labe11 BackStyle= 0 ’Transparent Caption= "请输入编号" //...窗体描述(略) End End 【代码5-2】 Attribute VB Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB Creatable = False Attribute VB PredeclaredId = True Attribute VB_Exposed = False Private Sub Form Load () List1.AddItem "a01001" List1.AddItem "a01002" End Sub Private Sub Cormnand1 Click () Dim Myval As Long For i=0 To (1) (2) If (3) Then MsgBox "系统不允许重复输入，请重新输入" Exit SubEnd If (4) (5) End Sub