问题
单项选择题
按照《建设项目环境保护管理条例》的规定，需要进行试生产的建设项目，建设单位应当在( )，申请该建设项目需要配套建设的环境保护设施竣工验收。
A．自建设项目投入试生产之日起1个月内
B．自建设项目投入试生产之日起3个月内
C．自建设项目投入正式生产之日起1个月内
D．自建设项目投入正式生产之日起3个月内
答案
参考答案：B
搜题请搜索小程序“爱下问搜题”
按照《建设项目环境保护管理条例》的规定，需要进行试生产的建设项目，建设单位应当在( )，申请该建设项目需要配套建设的环境保护设施竣工验收。
A．自建设项目投入试生产之日起1个月内
B．自建设项目投入试生产之日起3个月内
C．自建设项目投入正式生产之日起1个月内
D．自建设项目投入正式生产之日起3个月内
参考答案：B
[代码7-1] Begin VB.Form form1 BackColor = &H00808080& Caption = "系统登录" //...窗体描述(略)Begin VB.Labe1 Labe12Backstyle = 0 ’TransparentCaption = "密 码: " //…窗体描述(略) End Begin VB.Labe1 Labe11Backstyle = 0 ’TransparentCaption = "操作员: " //...窗体描述(略) End //...窗体描述(略) End [代码7-2] Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sq1 As String Private Sub Form ACdvate ( ) Set mydb=Workspaces (0).OpenDatabase (App.Path&"\CIUID.mdb") ’打开数据库 sq1="select操作员from qxsz" Set myrs=mydb.OpenRecordset (sq1) If (1) Then myrs.MoveLast If (2) Then myrs.MoveFirst For i=0 TO myrs.RecordCount-1 (3) (4) Next i If (5) Then master.Listlndex=0 myrs.Close mydb.Close master.SetFocus End Sub [代码7-3] Private Sub Cmdok_Click ( ) ’确认操作员和密码 Dim MESSAGE As String If master.Text＜＞’’’ThenSet mydb=Workspaces (0) .OpenDatabase (App.Path&"\CIUID.mdb")Set myrs=mydb.OpenRecordset ("qxsz", dbOpenDynaset)myrs.Findfirst"操作员="+Chr(34) +master.Text+Chr(34) +"" ’查找操作员If (6) Then MsgBox ("无此操作员!") Else If password.Text=myrs.Fields("密码") Then ’确认密码 MsgBox"系统登录成功!" ’系统登录成功 Else If TIM=3 Then MESSAGE=MsgBox ("密码输入错误，请向系统管理员查询!",0,"") If MESSAGE=vbOK Then End End If MsgBox ("密码错误，请重新输入密码!") TIM=TIM+1 ’密码输入错误次数 password.SetFocus End IfEnd If End If End Sub