2013年内蒙古对口升学考试计算机类VB综合题库

2013年内蒙古对口升学考试计算机类VB综合题库 5 若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更VB语言程序设计综合练习一 选择题部分 合适,_______ 1 已知A$=“12345678”，则表达式Val(Left(A$，4)+Mid(A$，4，2)) A)Integer B)Long C)Single D)String 的值为________。 6 以下函数表达式中，其值等于-3的是________。 A) 123456 B) 123445 C) 8 D) 6 A)Int(-3.5)B)Fix(-3.5)C)Round(-3.5)D)Abs(-3.5) 2 在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第7 以下函数表达式中，其值不等于3的是________。 一或第三象限的表达式，以下不正确的是______。 A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(-3) A)(x>=0 and y>=0) and (x<=0 and y<=0) 8 以下函数表达式中，其值不等于-4的是________。 B)(x>=0 and y>=0) and (x<=0 and y<=0) A)Int(-3.5)B)Fix(-4.5)C)Round(-3.5)D)Abs(-3.5) C)x*y>=0 D)x*y=Abs(x*y) 9 以下函数表达式中，其值等于4的是________。 3 语句:Print “Sqr(9)=” ; Sqr(9)的输出结果是_______。 A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5) A)Sqr(9)= Sqr(9) B)Sqr (9)=3C)”3”=3 D)10 以下函数表达式中，其值等于3.5的是________。 3= Sqr(9) A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5) 4 下面程序段的输出结果为________。 11.窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程: X = 10 :Y = 20 Private Sub Command1_Click() Print X ;”+” ;Y ;”= ”; Dim M(10)， N(10) Print X + Y I = 3 A)10 + 20 = 30 B)10 + 20 = 30 C)X+ Y = 30 D)10 + For T = 1 To 5 20 = 30 M(T) = T - 1 - N(I) = 2 * I + T For i=0 To 3 Print a(5 -i); Next T Print N(I); M(I) Next End Sub End Sub 窗体运行后，单击命令按钮，输出结果为______。 程序运行后，单击窗体，则在窗体上显示的是______。 A)3 11 B)3 15 C)11 3 D)15 3 A)4 3 2 1 B)5 4 3 2 C)6 5 4 3 D)7 6 5 4 12. 下列程序段的执行结果为______。 14 在窗体上面画一个命令按钮，其名称为Command1，然后编写如下事件Dim M(10) 过程: For I=0 To 9 Private Sub Command1_Click() M(I)=2*I Dim a1(4，4)，a2(4，4) Next I For I=1 to 4 Print M(M(3)) For j=1 To 4 A)12 B)6 C)0 D)4 a1(I，j)=I+j 13 设有如下程序: a2(I，j)=a1(I，j)+I+j Option Base O Next j Prvate Sub Form_Click() Next I Dim a Print a1(3，3);a2(3，3) Dim i As Integer End Sub a= Array(1，2，3，4，5，6，7，8，9) 程序运行后，单击命令按钮，在窗体上输出的是______。 - 2 - A)6 6 B)10 5 C)7 21 D)6 12 A)8 13 B)0 13 C)7 12 D)0 0 15 有以下程序: 16 在窗体上画一个命令按钮，名称为Command1，然后编写如下代码: Option Base 1 Option Base 0 Dim arr() As Integer Private Sub Command1_Click() Private Sub Form_Click() Dim A(4) As Integer， B(4) As Integer Dim i As Integer， j As Integer For k=0 To 2 ReDim arr(3， 2) A(k+1)=InputBox(“请输入一个整数”) For i=1 To 3 B(3-k)=A(k+1) For j=1 To 2 Next k arr(i，j)=i*2+j Print B(k) Next j End Sub Next i 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结ReDim Preserve arr(3，4) 果为______。 For j=3 To 4 A)0 B)2 C)3 D)4 arr(3，j)=j+9 17 在窗体上画一个命令按钮，然后编写如下事件过程: Next j Private Sub Command1_click() Print arr(3，2);arr(3，4) Dim a(5)as String End Sub For i = 1 to 5 程序运行后，单击窗体，输出结果为______。 a(i)=Chr (Asc(“A”)+(i-1)) - 3 - Next i 有如下程序代码，输出结果是_____。 Dim a() For Each b in a Print b; a=Array(1，2，3，4，5) Next for i=Lbound(A) to Ubound(A) End Sub print a(i); 程序运行后，单击命令按钮，输出结果是______。 next I A)ABCDE B)1 2 3 4 5 C) a b c d e D)出错信息 A)1 2 3 4 5 B)0 1 2 3 4 C)5 4 3 2 1 D)4 3 2 1 18 下面叙述中不正确的是______。 21 窗体上已有命令按钮Command1和标签Label1，下列程序运行后，单A)自定义类型只能在窗体模块的通用声明段进行声明 击Command1按钮，标签Label1中显示的内容是_____。 B)自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的Option base 0 自定义类型 Private Sub Command1_Click() C)在窗体模块中定义自定义类型时必须使用Private关键字 Dim a(5) As Integer， n As Integer D)自定义类型必须在窗体模块或模块的通用声明段进行声明 For i = 1 To 5 19 在设定Option Base 0后，经Dim arr(3，4) As Integer 定义的数组arra(i) = i 含有的元素个数为_____。 n = n + a(i) A)12 B)20 C)16 D)9 Next i 20 用下面语句定义的数组的元素个数是______ 。 Label1 = n Dim A (-3 To 5) As Intege End Sub A) 6B) 7C) 8 D) 9 - 4 - A)5 B)10 C)15 D)程序报错，Label1不能输出结果 Dim arr1 Dim Min As Integer， i As Integer 23 在窗体上画一个名称为Label1的标签，然后编写如下事件过程_____。 866， 43) arr1 = Array(12， 435， 76， -24， 78， 54，Private Sub Form_Click() Min = _____ For i = 2 To 8 Dim arr(10， 10) As Integer If arr1(i) 《 Min Then Min=arr1(i) Dim i As Integer， j As Integer For i = 2 To 4 Next i Print “最小值是:”; Min For j = 2 To 4 arr(i， j) = i * j End Sub Next j A)-24 B)886 C)arr1(1) D)arr1(0) 25 以下程序的输出结果是_____。 Next i Label1.Caption = Str(arr(2， 2) + arr(3， 3)) Option Base 1 End Sub Private Sub Command1_Click() 程序运行后，单击窗体，在标签中显示的内容是_____。 Dim a(10)，p(3) As Integer A)12 B)13 C)14 D)15 k=5 For i=1 To 10 24 设有如下程序，其功能是用Array函数建立一个含有8个元素的数组， 然后查找并输出该数组中的最小值，请选择程序中空处应为_____。 a(i)=I Option Base 1 Next i Private Sub Command1_Click() For i=1 To 3 - 5 - p(i)=a(i*i) a(i)=True Exit For Next I For i=1 To 3 End If k=k+p(i)*2 If i=5 Then Next i flag=True Print k End If End sub Next A) 33 B) 28 C) 35 D) 37 Loop Print j 26 以下程序段运行的结果是________。 A)20 B)7 C)35 D)8 Dim a(-1 To 5)As Boolean Dim flag As Boolean 27 以下有关数组定义的语句序列中，错误的是______。 flag=false A) Static arr1(3) Arr1(1)=100 Dim i As Integer Dim j As Integer Arr1(2)=“Hello” Do Until flag=True Arr1(3)=123.45 For i=-1 to 5 B)Dim arr2() As Integer j=j+1 Dim size As Integer If a(i)=False Then Private Sub Command2_Click() - 6 - size=InputBox(“输入:”) Dim A(10，10) For I=1 To 8 ReDim arr2(size) 。。.。。. For J=6 To 8 End Sub A(I，J)=I*J C)Option Base 1 Next J Private Sub Command3_Click() Next I Dim arr3() As Integer Print A(4，6)+A(3，8)+A(8，7) 。。.。。. A)104 B)114 C)无法输出 D)报错溢出 End Sub D)Dim n As Integer 30 阅读程序 Private Sub Command4_Click() Option Base 1 Dim arr4(n) As Integer Private Sub Form_Click() 。。.。。. Dim arr， Sum End Sub Sum = 0 28 下述语句定义的数组元素有______个。 arr = Array(1， 3， 5， 7， 9， 11， 13， 15， 17， 19) OPTION BASE 1 For i = 1 To 10 DIM A(12，8) If arr(i) / 3 = arr(i) \ 3 Then A)117 B)128 C)96 D)20 Sum = Sum + arr(i) 29 下列程序段的执行结果为______。 End If - 7 - Next i 32 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程: Private Sub Command1_Click() Print Sum End Sub Dim A(10)， B(5) 程序运行后，单击窗体，输出结果为______。 For I = 1 To 10 A)13 B)14 C)27 D)15 A(I) = I 31在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令Next I 按钮，然后编写如下事件过程: For J = 1 To 5 Private Sub Command1_Click() B(J) = J * 20 Dim array1(10，10) As Integer Next J Dim i As Integer，j As integer A(5) = B(2) For i=1 To 3 Print “A(5)=”， A(5) For j=2 To 4 End Sub array1(i，j)=i+j 窗体运行后，单击命令按钮，输出结果是______。 Next j A)A(5)=40 B)A(5)=20 C)A(5)=10 D)A(5)=5 Next i 33 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程: Text1.Text=array1(2，3)+array1(3，4) Option Base 0 End Sub Private Sub Command1_Click() 程序运行后，单击命令按钮，在文本框中显示的值是______。 Dim city As Variant A)15 B)14 C)13 D)12 city = Array(“北京”，“上海”，“天津”，“重庆”) - 8 - Print city(1) A)1 2 3 4 2 4 B)1 2 3 4 6 8 C)1 2 3 2 4 6 D)1 2 3 6 3 6 35 设有命令按钮Command1的单击事件过程 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。 Private Sub Command1_Click() A)空白 B)错误提示 C)北京 D)上海 Dim a(3，3) AS Integer 34 窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程: For i=1 To 3 Private Sub Command1_Click() For j=1 To 3 Dim A(5， 5) a(i，j)=i*j+i For I = 1 To 3 Next j For J = 1 To 4 Next i A(I， J) = I * J Sum=O Next J For i=1 To 3 Next I Sum=Sum+a(i，4-i) For N = 1 To 2 Next i For M = 1 To 3 Print Sum Print A(M， N); End Sub Next M 运行程序，单击命令按钮，输出结果是______。 Next N A)20 B)7 C)16 D)17 End Sub 36 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序: 窗体运行后，单击命令按钮，输入结果是______。 Option Base 1 - 9 - Private Sub Command1_Click() Private Sub Form_Click() Dim i As Integer， j As Integer Dim c As Integer，d As Integer d=0 ReDim arr(3， 2) c=6 For i = 1 To 3 x=Array(2，4，6，8，10，12) For j = 1 To 2 For i=1 To 6 arr(i， j) = i * 2 + j If x(i)>=c Then Next j d=d+x(i) Next i Else ReDim Preserve arr(3， 4) d=d-c For j = 3 To 4 End If arr(3， j) = j + 9 Next i Next j Print d Print arr(3， 2) + arr(3， 4) End Sub End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。 程序运行后，单击窗体，输出结果为 A)10 B)16 C)12 D)20 A)21 B)13 C)8 D)25 37 阅读程序: 38 窗体中新建立一个命令按钮(Command1)，其事件代码如下: Option Base 1 Private Sub Command1_Click() Dim arr() As Integer Dim a(4) As Integer， b(4) As Integer - 10 - For K = 0 To 2 End Sub 程序运行后，单击命令按钮，窗体上显示的是______。 a(K + 1) = Val(InputBox(“请输入数据”)) b(3 - K) = a(K + 1) A)1 2 3 Next K 2 4 6 Print b(K) 3 6 9 End Sub B)2 3 4 窗体运行后，单击命令按钮，依次输入1、3、5，执行结果为______。 3 4 5 A)0 B)1 C)3 D)5 4 5 6 39 在窗体上画一个名称为Command1命令按钮，然后编写如下程序: C)1 4 7 Private Sub Command1_Click() 2 5 8 Dim i As Integer，j As Integer 3 6 9 Dim a(10，10)As Integer D)1 2 3 For i=1 To 3 4 5 6 For j=1 To 3 7 8 9 a(i，j)=(i-1)*3+j 40 对窗体编写如下代码: Print a(i，j); Option Base 1 Next Private Sub Form_KeyPress(KeyAscii As Integer) Print a=Array(237，126，87，48，498) Next i m1=a(1) - 11 - m2=1 VB语言程序设计综合练习二 填空题A If KeyAscii=13 Then For i=2 To 5 1. 在VB中，用来描述一个对象外部特征的量称之为对象的_____。 If a(i)》m1 Then 2. 窗体_____决定了窗体的外观。 m1=a(i) 3. 表达式(?10)^ ?2的值是_____。 m2=i 4. 执行_____语句，可以清除Picture1图片框内的图片。End If Picture1.picture=LoadPicture('' '') Next i 5. 当复选框被选中时，其Value值为_____。 End If 6. 在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Print m1 Private Sub Command1_Click() Print m2 Dim a() End Sub ReDim a(4) 程序运行后，按回车键，输出结果为______。 For i = 1 To 4 A)48 4 a(i) = i B)237 Next i 1 ReDim Preserve a(6) C)498 For k = 1 To 6 5 Print a(k); D)498 Next k - 12 - Print “end” PSet (X, Y) '画点语句 End Sub End If 程序运行后,单击Command1命令按钮,则程序输出的结果是_____. End Sub 7. 在模块文件中的声明部分用Global或_____关键字声明的变量为全局变Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, 量。 Y As Single) 8. 将通用对话框的类型设置为“字体”对话框可以使用_____方法。 _____ 9. 下列程序的功能是:当按下鼠标左键并在窗体上移动时，在鼠标经过的End Sub 位置画点，松开鼠标移动时，不执行画点操作。当单击鼠标右键时，清除填空题B 窗体上的内容。请在横线的上方填入适当的内容，将程序补充完整。 1窗体的扩展名是_____。 Dim flag As Boolean 3日期表达式 #2/24/02# - #2/12/02# 的值为 。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X ! ,Y !) 4.VB的控件分为 、ActiveX控件和可插入对象 flag = True 5.Style属性设置为 ，单选按钮和复选框以图形方式显示 If _____Then 6在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Cls Private Sub Command1_Click() End If Dim s As Integer End Sub Dim arr(3, 1 To 7) As Integer Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As For Each test In arr Single, Y As Single) s = s + 1 If flag Then Next test - 13 - Print s 7. 调用过程时对形参的改变不会导致相应实参变量的改变，则该形参 采用End Sub _____(按值传递/按地址传递)方式。 程序运行后,单击Command1命令按钮,则程序输出的结果是 . 8. 在设计菜单时，可在Visual Basic主窗口的菜单栏中选择_____，单击后7声明Integer类型静态变量x，写作 从它的下拉菜单中选择“菜单编辑器”菜单项。 Static x% 填空题D Static x As Integer 1设置对象的属性有两种办法，一种是在设计时在属性窗口窗口中设置;static x as integer。 另一种是在运行时设置，设置格式为 。大部分8如果把一个菜单项的Visible属性设置为False，则 属性可以用以上两种方法进行设置，而有些属性只能用其中一种方法设置。 9在执行KeyPress 事件过程时，KeyAscii是所按键的 码 2决定窗体标题栏显示内容的属性是 填空题C 3已知a=2.5，b=5.0，c=2.5，d=True，则表达式:a>=0 AND a+c>b+3 OR NOT 1. 面向对象的程序设计是一种以_____为基础，由_____驱动对象的编程技d的值是 术。 4Shape属性决定形状控件的形状，当Shape属性值为0时，它的表现形式2. 一般来说，同一窗体中的各个控件的_____属性应该各不相同;。如果几是 。 个控件具有相同的_____属性，则这些控件称为数组控件。 5 方法用来向列表框中加入列表项 3. 求a与b之积除以c的余数，用Visual Basic表达式可表示为_____。 7在窗体Form1的过程中引用窗体Form2中的全局变量y，写作 4. 如果要每隔15s产生一个计时器事件，则Interval属性应设置为_____。 8将控件CommonDialog1设置为"颜色"对话框，可使用 5. 组合框的Style属性的取值有_____种 CommonDialog1.Action =3 6. 用ReDim语句重新分配动态数组时,如果要保留数组内容,即不清除数组commondialog1.action =3 中的内容,应使用的选择项是_____. CommonDialog1.ShowColor - 14 - 填空题E Print x End Sub 1. 面向对象的程序设计是一种以_____为基础，由_____驱动对象的编程技 Private Sub swap(a%, b%) 术。 1. 控件的Top属性是指控件的_____(上、下)边至窗体标题栏_____(上、 Dim t% t = a 下)边的距离;Left属性是指控件_____(左、右)边到窗体_____(左、 a = b 右)边的距离。 2. 访问键是通过键盘来访问控件，访问键是设置是在控件的_____属性中 b = t End Sub 用_____字符加在访问字符的前面，运行时按_____键+访问字符。 5. 在使用Visual Basic提供的列表框时，当列表框中的项目超过了列表框填空题F 的长度时， 1，VB的对象主要分为窗体和_____两大类。 系统会自动在列表框的边上加上一个_____。 2，在Visual Basic中，要将一个窗体从内存中卸载，应该使用_____语句。 6. 默认情况下,数组下标的下界是_____，若要使下标的下界为1,应该使用3，声明单精度常量PI代表3.1415926的语句是_____。 的语句是_____ 4(要使用鼠标或空格键同时选择列表框中的多个选项，必须把_____属性 设置为1。 7. 下面程序的运行结果为_____。 Private Sub Command1_Click() 5. fee = countl(title) Dim x%, y% Print fee End Sub x = 18 y = 25 Public Function countl(x%) As Single Dim pay! Call swap(x, y) - 15 - If x < 40 Then s2 = 0 pay = x / 2 For k = 1 To 10 Else If (ww(k) > 0) Then pay = 2 * x s1 = _____ End If Else countl = pay s2 = ____ End Function End If 填空题G Next k 1. 要使输入文本框的字符靠右对齐，可修改文本框的_ ___属性。 Print "正数之和为 "; s1 2. 语句Print Not 10>15 And 8<5+2的输出结果为_____。 Print "负数之和为 "; s2 3 在程序运行时，如果将框架的__ ___属性设为False，则框架的标题是灰End Sub 色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。 5.当列表框的MultiSelect属性值为1时，单击列表项或按空格键可以实现4. 以下程序的功能是:分别计算给定的10个数中正数之和与负数之和。复选。 请将程序补充完整。 6. 若已建立了Form1、Form2两个窗体，默认启动窗体设置为Form1。通Option Base 1 过_____菜单的_____的_____选项卡，可将启动窗体设置为Form2。 Private Sub Command1_Click() 7用类型说明符来标识数据类型时，表示单精度使用的符号是 Dim ww 8.如果工具箱中还没有CommonDialog控件，则应从 菜单中选定部件， ww = Array(12, ?6, 15, 34, ?32, 47, 13, 9, 6, ?3) 并将控件添加到工具箱中。 s1 = 0 9.要使一个控件不可用，应将该控件的enabled属性设为 - 16 - 10.假设a="A"，表达式:a>="0" and a<="9" and a>="A" and a<="Z" 的值 23. VB 应用程序中标准模块文件的扩展名是 。 11.列表框中第一项的索引值是 24. 若用户单击了窗体Form1，则启动的事件名为 12.选择了一个新的目录路径后，为了及时更新文件列表框的显示，可选用25.设从键盘上输入 20，下面程序的运行结果为 目录列表框的 事件来驱动。 Private Sub Form_Click() Dim title%, fee! 13.由Visual Basic 预先设置好的、能够被对象识别的动作叫 。 title = Val(InputBox("请输入一个数")) 14.一个变量未被显示定义，末尾也没跟类型说明符，则变量的默认类型是 变体类型。 fee = countl(title) Print fee 15.图片框内可使PictureBox根据图片调整大小的属性为autosize;图像框 为stretch，若使Image控件可根据图片调整大小，该属性值应为_____。 End Sub 16.设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类Public Function countl(x%) As Single Dim pay! 型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句 为 。 If x < 40 Then 17.过程形参为整型，对应实参为5.64，传递给形参的值为 。 pay = x / 2 18. VB是一种面向对象的可视化程序设计语言，采取 Else 了 。 pay = 2 * x 19. 定时器的Interval属性值为 时，表示计时器停止工作 End If 20. 用 方法只能隐藏一个窗体，不能从内存中清除该窗体。。 countl = pay 21.长整型变量(Long类型)占用 个字节。 End Function 22.列表框的最后一项的索引号是 。 26.multiline属性决定文本框是否可以接受多行文本。 - 17 - 27.alignment属性设置为 单选按钮和复选框的标题显示在左边。. Option Explicit Private Sub Form_Click() 28. 设a$ = "Visual Basic Programing": b$ = "Turbo" Dim M As Integer，N As Integer，K As Integer c$ = b$&Space(1)&UCase(Mid$(a$, 12, 1)) & Right(a$, 11) N=-3 则变 For M=6 To 1 Step N 量c$的值是 M=M+1 29. 下面程序的运行结果为 Private Sub Command1_Click() N=N-M Dim x%, y% K=K+1 x = 18 Next M y = 28 Print K Call swap(x, y) Print N Print x End Sub End Sub 31(执行下面程序，第一行输出结果是 ，第三行输出结果是 。 Private Sub swap(a%, b%) Private Sub Form_Click() Dim t% Dim N As Integer，I As Integer t = a N=2 a = b For I=9 To 1 Step-1 b = t Call Sub2(I,N) 30(执行下面程序，第一行输出结果是 第二行输出结果是 。 Print I，N - 18 - Next I VB语言程序设计综合练习三 End Sub Private Sub Sub2(X As Integer,Y As Integer) 程序填空题 Static N As Integer 1. 题目:文本框txtin输入一个十进制整数将其转化为二进制数。程序运Dim I As Integer 行界面如下图所示。单击“转换”按钮，标签lblre中输出二进制数。 For I=3 To 1 Step-1 N=N+X X=X-1 Next I Y=Y+N End Sub 32.执行下面程序，单击窗体，则在窗体上显示的内容是__。 Private Sub Command1_Click() Private Sub Form_Click(0 Dim n As Long Dim a As Integer, b As integer, c As Integer lblre.Caption = "" b=6:c=6.5 n = Val(txtin.Text) a=b=c DO While n <> 0 Print a r = End Sub lblre.Caption = r & lblre.Caption - 19 - LOOP Tab(10 + i); "*"; End Sub End Sub 2. 题目:单击“打印”按钮command1在图片框picture1中输出如图下所3. 题目: 单击form1窗体:重新定义坐标系为(-10，300)-(300，-10);示的图形。(涉及的循环要求用for循环) 在窗体上按公式: 2y=x?255，其中x=0~255。 用Pset方法绘制如图所示图形，其中线宽为3。(要求for循环实现) Private Sub command1_Click() For i = 1 To 5 picture1.Print Tab(10 + i); "$"; For j = Private Sub Form_Click() picture1.Print "*"; Scale (-10, 300)-(300, -10) Next j DrawWidth = 3 picture1.Print "$"; Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10) picture1.Print For x = Next i y = - 20 - PSet (x, y) End If Next Next x End Sub If Then 4(题目:判断文本框text1中输入的字符是否全是字母,并在标签label1中 Label1.Caption = "全是字母" 显示判断结果:“全是字母”或“不全是字母”。.运行结果参考下图。(涉Else 及的循环用for循环) Label1.Caption = "不全是字母" End If End Sub 5. 题目: 求1～+2～+3～+… +10～的值，程序运行界面如图下所示。单 击“计算”按钮command1在标签lblre中输出结果。(要求for循环实现) Private Sub Command1_Click() Dim s As String s = Text1.Text For i = 1 To Len(s) Private Sub Command1_Click() If LCase(Mid(s, i, 1)) < "a" Or Then Dim s As Long Exit For Dim n As Long - 21 - s = 0: n = 1 Private Sub Command1_Click() lblra.Caption = "" For i = 1 To 10 For i = 1 To 5 s(i) = Next i lblra.Caption = lblra.Caption & Str(s(i)) lblre.Caption = s Next i End Sub End Sub 6(题目:数据由小到大排序。窗体运行如下图。单击“产生数据” 按钮Private Sub Command2_Click() Command1，产生5个10~99之间的随机整数放入数组s，并显示在图示的lblre.Caption = "" 标签lblra上;单击“排序” 按钮Command2，将数组排序后的数据输出到For i = 1 To 4 图示的标签lblre。(要求for循环实现) Min = i For j = If Then Min = j Next j t = s(Min): : s(i) = t Next i For i = 1 To 5 lblre.Caption = lblre.Caption & Str(s(i)) Dim s(1 To 5) As String Next i - 22 - End Sub 7. 题目: 用公式e = 1+ 1/1～+1/2～+1/3～+ … + 1/n～+ …，计算e的近 LOOP -7似值，直到当前累加项小于10为止。运行界面如下图所示。单击“计算”lblre.Caption = e 按钮在标签lblre中输出结果。(要求用while…wend循环) End Sub 8(题目:在窗体上放置一个文本框和一个标签，并建立如下菜单: 菜单项 菜单名称 说明 操作(O) mnuop 一级菜单 ….产生随机数 mnura 二级菜单 ….判断 mnupd 二级菜单 单击“产生随机数”菜单项，产生1个60,90之间的随机整数，显示在文Private Sub Command1_Click() 本框中。单击“判断”菜单项，判断该随机数能否被3整除，判断结果显Dim t As Single 示在标签上。窗体运行如下图。 Dim i As Integer Dim e As Single t = 1: i = 1: e = 1 DO While 1 / t >= 0.0000001 t = t * i - 23 - 9. 题目:单击“画图”命令按钮Command1:重新定义坐标系为(-1，1) -(1，-0.3)。在窗体上按公式: 2，其中x=-0.9~0.9。 y=x 用Pset方法绘制如图所示图形，其中线宽为3。(要求for循环实现) Private Sub mnupd_Click() If Then Label1.Caption = "能被3整除" Else Label1.Caption = "不能被3整除" Private Sub Command1_Click() End If Scale (-1, 1)-(1, -0.3) End Sub DrawWidth = 3 Line (-1, 0)-(1, 0): Line (0, 1)-(0, -0.3) Private Sub mnura_Click() For x = Text1.Text = y = End Sub PSet (x, y) - 24 - Next x Next i End Sub End Sub 10. 题目: 数组元素值逆置。单击“产生字母”按钮Command1，产生10 个随机小写字母存放到数组中，并显示在标签lblra中。单击“逆置”按钮Private Sub Command2_Click() Command2，将数组中的字母按相反顺序存放，然后输出到标签lblre。运lblre.Caption = "" 行界面如下图所示。(要求for循环实现) For i = 1 To 5 temp = s(i): s(i) = : s(11 - i) = temp Next i For i = 1 To 10 lblre.Caption = lblre.Caption & s(i) Next i End Sub 11.题目:单击“打印”按钮在图片框pics中输出如下图所示的图形。(要Dim s(1 To 10) As String 求for循环实现) Private Sub Command1_Click() lblra.Caption = "" For i = 1 To 10 s(i) = lblra.Caption = lblra.Caption & s(i) - 25 - Next i End Sub 12. 题目:在窗体上放置一个文本框txts和一个标签lbla，并建立如下菜单: 菜单项 菜单名称 说明 操作(O) mnuop 一级菜单 . ….产生随机数 mnura 二级菜单 Private Sub command1_Click() ….计算 mnujs 二级菜单 Dim i As Integer 单击“产生随机数”菜单项，产生10个两位随机整数，显示在文本框txtsDim j As Integer 中。单击“计算”菜单项，计算所产生数的平均值，并显示在标签lbla上。For i = 1 To 5 窗体运行如下图。(涉及的循环要求用for循环) pics.Print Tab(10); For j = 1 To pics.Print Spc(1); Next j For j = pics.Print "*"; Next j pics.Print Dim a(1 To 10) As Integer - 26 - Private Sub mnujs_Click() 在label2上。运行界面如图所示。(涉及的循环要求用for循环) Dim sum As Integer For i = 1 To 10 Next i lbla.Caption = sum / 10 End Sub Private Sub mnura_Click() Label1.Caption = Int(Rnd * 101) + 100 Private Sub mnura_Click() End Sub txts.Text = "" For i = 1 To 10 Private Sub mnurun_Click() a(i) = Dim x As Integerx = Val(Label1.Caption) txts.Text = For i = 2 To Next i If Then End Sub Label2.Caption = "不是素数" 13. 题目: 制作顶级菜单(标题是:操作，名称是:mnuop)，二级子菜单 Exit For (标题:产生，名称:mnura)和二级子菜单(标题:运行，名称:mnurun)。 End If 点击子菜单“产生”时，生成一个100~200之间的随机整数，显示在label1 Next 中;点击子菜单“运行”时，判断该随机数是否是素数，将判断结果显示 If Then - 27 - Label2.Caption = "是素数" s = 1: n = 1 End If t = End Sub Do While t > 0.000001 x14(题目:在文本框text1中输入x的值，编程求e 的近似值，要求最后s = s + t 一项的值小于等于0.000 001 时停止计算，结果显示在标签label3中。 xx23ne 的展开式为:e=1+x/1!+x/2!+ x/3!+„+ x/n!。程序运行界面如图所t = 示。(要求用do while„„loop实现) Loop Label3.Caption = s End Sub 15. 题目: 单击“运行”按钮Command1，求出100~150之间，能被5整除， 但不能被3整除的数。并求这些数之和，存入变量SUM中。程序运行界面 如下图。(要求for循环实现) Private Sub Command1_Click() Dim x As Integer Dim s As Double Dim n As Integer x = Val(Text1.Text) Private Sub Command1_Click() - 28 - Dim i As Integer Private Sub Command1_Click() For i = 150 To 200 For i = 100 To 150 If Then For j = 2 To i - 1 Print i; If Then Exit For Sum = Next j End If If Then lblpr.Caption = lblpr.Caption & Str(i) Next i Next i End Sub Print Print "和为:" & Sum; "" 17. 题目:单击窗体，产生10个20~80之间的随机正整数，排序后在窗体End Sub 上输出。运行界面如图所示。(要求用for循环) 16. 题目:求出150,200之间的素数，程序运行界面如图下所示。单击“输 出素数”按钮在标签lblpr中输出结果。(要求for循环实现) Private Sub Form_Click() Dim s(1 To 10) As Integer Dim max As Integer Dim t As Integer Randomize - 29 - Print "原始数据:" For i = 1 To 10 Print s(i); " "; For i = 1 To 10 s(i) = Next Print s(i); " "; End Sub Next 18. 题目:在窗体上放置一个文本框Text1和一个标签Label1，并建立如下Print 菜单: For i = 1 To 9 菜单项 菜单名称 说明 max = i 操作(O) mnuop 一级菜单 For j = ….产生随机数 mnura 二级菜单 If s(max) < s(j) Then max = j ….判断 mnupd 二级菜单 Next 单击“产生随机数”菜单项，产生1个10,99之间的随机整数，显示在文 t = s(max) 本框中。单击“判断”菜单项，判断该随机数的个位数是否是奇数。如果 s(max) = 是奇数在标签中显示“是奇数”，否则标签上显示“不是奇数”。窗体运行 如下图。 s(i) = t Next Print "排序后的数据:" - 30 - Text1.Text = End Sub 19. 题目: 数组元素值逆置。单击“产生字母”按钮Command1，产生10 个随机大写字母存放到数组中，并显示在标签中lblr。单击“逆置”按钮 Command2，将数组中的字母按相反顺序存放，然后输出到标签lblre。运 行界面如下图所示。(要求for循环实现) Private Sub mnupd_Click() Dim d As Integer d = Val(Text1.Text) Mod 10 If Then Label1.Caption = "是奇数 " Else Dim s(1 To 10) As String Label1.Caption = "不是奇数" Private Sub Command2_Click() lblre.Caption = "" End If End Sub For i = 1 To 5 temp = s(i) Private Sub mnura_Click() s(i) = - 31 - s(11 - i) = temp Next i For i = 1 To 10 lblre.Caption = lblre.Caption & s(i) Next i End Sub Private Sub Command1_Click() Dim s(1 To 10) As String lblr.Caption = "" Private Sub Command1_Click() For i = 1 To 10 lblu.Caption = "" s(i) = For i = 1 To 10 lblr.Caption = lblr.Caption & s(i) s(i) = Next i lblu.Caption = lblu.Caption & s(i) End Sub Next i End Sub 20. 题目:字母由小到大排序。窗体运行如下图。单击“产生随机字母” 按 钮Command1，产生10个大写的随机字母放入数组，并显示在图示的标签Private Sub Command2_Click() lblu上;单击“排序” 按钮Command2，将排序后的字母输出到图示的标签lblsort.Caption = "" lblsort。(涉及的循环要求用for循环) For i = 1 To 9 - 32 - Min = i For j = If s(j) < s(Min) Then Min = j Next j t = s(Min): s(Min) = : s(i) = t Next i For i = 1 To 10 Private Sub Command1_Click() lblsort.Caption = lblsort.Caption & s(i) Next i Dim x(1 To 10) As Integer End Sub Cls Print 21(题目:随机产生10 个100~200 之间的正整数，将它们按从大到小的顺Randomize 序排列。运行界面如图所示。(要求用for循环) Print "原始数据:" For i = 1 To 10 x(i) = Print x(i); Next i Print: Print Print "排序数据:" - 33 - For i = 1 To 9 Private Sub Command1_Click() Max = i Dim p As Single, s As Single For j = p = If x(Max) < x(j) Then s = 0 For i = 1 To 10 Next j s = t = x(Max): x(Max) = : x(i) = t Next i p = For i = 1 To 10 Next i Print x(i); Print "p=" & p Next i End Sub End Sub 22(题目:单击“计算”按钮Command1求P 的值。23. 题目:在窗体上放置一个文本框txts和一个标签lbla，并建立如下菜单: P=1+1/(1+2)+1/(1+2+3)+„+1/(1+2+3+„+10)。(要求for循环实现)运行 界面如图: 菜单项 菜单名称 说明 操作(O) mnuop 一级菜单 ….产生随机数 mnura 二级菜单 ….统计 Mnupd 二级菜单 单击“产生随机数”菜单项，产生1个60,90之间的随机整数，显示在文 本框txts中。单击“判断”菜单项，判断所产生数是否是奇数，并显示在 - 34 - 标签lbla上。窗体运行如下图。 txts.Text = "" a = txts.Text = a End Sub 24(题目:单击“打印”按钮Command1窗体显示出具有9行的“杨辉三角形”。 运行效果如下图所示。(要求for循环实现) . Dim a As Integer Private Sub mnupd_Click() If Then lbla.Caption = "是奇数" Else lbla.Caption = "非奇数" Private Sub Command1_Click() End If Dim a(1 To 9, 1 To 9) As Integer End Sub For i = 1 To 9 a(i, 1) = 1: Private Sub mnura_Click() Next i - 35 - For i = 3 To 9 n = For j = 2 To s = 0 For i = 1 To 10 a(i, j) = n = Next j s = s + n Next i Next For i = 1 To 9 Print s For j = 1 To End Sub Print Tab(j * 5 - 4); Next j 26(题目:单击窗体，在窗体中打印九九乘法表，用for循环完成。运行 Print 效果见下图。 Next i End Sub 25. 题目:单击窗体，求1!+2!+3!+„„+10!的值，并在窗体上输出。(要 求用for循环) Private Sub Form_Click() Dim n As Long Dim s As Long Private Sub Form_Click() - 36 - Dim se As String Print Tab(35); " 九九乘法表 " Print Tab(35); "---------------" For i = 1 To 9 For j = 1 To se = i & "×" & j & "=" & i * j Print ; se; Next j Print Private Sub Command1_Click() Next i For i = 1 To 10 For j = 1 To End Sub picture1.Print Spc(1); 27. 题目:单击“打印”按钮command1在图片框picture1中输出如下图Next 10行10列的图形。(涉及到的循环要求用for循环) For j = 1 To 10 picture1.Print "*"; Next Next End Sub - 37 - 28. 题目:题目:已知C的公式表示如下: Dim m As Integer, n As Integer m = Val(InputBox("请输入一个整数(m):")) ' n! ' C=------------------ n = Val(InputBox("请输入一个整数(n):")) ' (n-m)!*m! Print "C="; C '函数过程fac( )求k～函数,在Fomr_Click事件中完成运算， End Sub 29.题目:程序功能为打印下列图形: '------------------------------------------------ ' * Option Explicit ' ** Private Function fac(k As Integer) As Single ' *** Dim x As Single, j As Integer ' **** ' ***** For j = 1 To k '------------------------------------------------ Next j Option Explicit fac = x Private Sub Form_Click() End Function Cls Private Sub Form_Click() Dim i As Integer Dim C As Single Dim j As Integer - 38 - Print "数据:" For i = For I = 1 To N Print "*"; Print X(I); Next I Print Print Next i Print "排序:" End Sub For I = 0 To N - 1 30题目: For J = I + 1 To N 本程序的功能是随机产生的10个两位正整数，并进行递减排序。 Then '------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer End If Dim I As Integer Next J Dim N As Integer Print X(I); Dim X(10) As Integer Next I Dim J As Integer Print N = 10 End Sub - 39 - Print End If Private Sub Command1_Click() CreateRND End If End Sub Loop 31.题目: End Sub 随机产生并输出100以内大于50的20个整数，输 32.题目: 出时每5个数一行。 以下程序段用于计算5的N次方。 '----------------------------------------------- Option Explicit '------------------------------------------------ Private Sub Form_Click() Option Explicit Randomize Timer Private Sub Form_Click() Dim i As Integer, ma As Integer Dim n As Integer, k As Integer, s As Long n = InputBox(" Input n ") Do Until ma = Rnd() * 100 \ 1 If ma > 50 Then Do While k <= n Print ma; s = s * 5 i = i + 1 k = k + 1 Then - 40 - Print "5的"; "n次方是"; s Next j Print End Sub 33.题目:下面程序可输出如下图形: ' * ' *** Next i ' ***** End Sub ' ******* 34题目: ' ********* 用自定义函数的方法求sum(x)，求当-1?x?1时， '------------------------------------------------ ' sum(x)=x/2～+x^2/3!+x^3/4!+„„+x^n/(n+1)!， Option Explicit ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 Private Sub Form_Click() ' 据错误。X、N都是由用户输入。 Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 '------------------------------------------------ m = 1 Option Explicit s = "*" Private Sub Command1_Click() For i = 5 To 1 Step -1 Dim s As Single Dim n As Integer, x As Single, k As Integer For j = 1 To 2 * m - 1 n = Val(InputBox("Please input a integer value:")) Print s; x = Val(InputBox("Please input a single value:")) - 41 - If n <= 0 Then End If End Function k = MsgBox("数据输入错误～", vbRetryCancel + vbExclamation, "数据输入") 35.题目:以下程序功能是输入三个数，由大到小排序。 Exit Sub ------------------------------------------------ End If Option Explicit s = Sum(x, n) Dim A As Integer Print s Dim B As Integer End Sub Dim C As Integer Function Sum(x As Single, n As Integer) Private Sub Form_Click() Dim i As Integer, ss As Long Dim nTemp As Integer ss = 1 A = Val(InputBox("Please input first integer", "输入正整数")) Sum = 0 B = Val(InputBox("Please input second integer", "输入正整数")) If x > 1 Or x < -1 Then C = Val(InputBox("Please input third integer", "输入正整数")) Else nTemp = A A = B ss = ss * i B = nTemp End If Next i - 42 - nTemp = A r = m Mod n A = C Do While r <> 0 C = nTemp End If n = r r = m Mod n Loop nTemp = B B = C C = nTemp End Function End If Private Sub Form_Click() Print "The integers in order is"; A; B; C Dim a As Integer, b As Integer, c As Integer End Sub a = InputBox("输入一个整数") 36.题目: b = InputBox("输入一个整数") 用辗转相除法求两个整数的最大公约数。 a = Val(a) b = Val(b) '------------------------------------------------ Option Explicit Print a, b, c Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer End Sub Dim r As Integer 37.题目:下面的程序用“冒泡”法完成数组a中的10个整数 - 43 - 按升序排列，请修正程序中错误。 End Sub '------------------------------------------------ 38.题目: Option Explicit 程序功能为求解一元二次方程的实根，请修正程序中错误。 Private Sub Command1_Click() '------------------------------------------------ Dim a Option Explicit Dim i As Integer, j As Integer, a1 As Integer Private Sub Form_Load() a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) Dim a!, b!, c!, root1#, root2#, work As Double For i = 1 To 9 a = Val(InputBox(" 请输入系数a的值")) b = Val(InputBox(" 请输入系数b的值")) c = Val(InputBox(" 请输入系数c的值")) a1 = a(i) a(i) = a(j) If work >= 0 And a <> 0 Then End If Next j Debug.Print "有二个实根" + Str$(root1) + "," + Str$(root2) Else Next i For i = 0 To 9 Debug.Print "无实根!" Print a(i) End If Next i End Sub - 44 - 39.题目: 下面程序的作用是产生100以内的全部素数，并 k = k + 1 按每行5个数据输出。 '------------------------------------------------ End If Option Explicit Next i Private Function prime(ByVal n As Integer) End Sub Dim i As Integer 40.题目: prime = 1 输出40以内能够被3整除的数，要求输出结果为5 If n <= 1 Then prime = 0 个数一行。 '------------------------------------------------ If n Mod i = 0 Then prime = 0 Option Explicit Next i Private Sub Form_Click() End Function Cls Dim x As Integer Private Sub Form_Click() Dim i As Integer Dim i As Integer, k As Integer k = 0 For x = 1 To 40 For i = 1 To 100 If (x / 3) = (x \ 3) Then If prime(i) = 1 Then - 45 - i = i + 1 Do End If s = s + i If Then Loop Print Print "从1 到:"; i; "的和是"; s End If End Sub Next x 42.题目: End Sub 以下程序段用于输出100-300的所有素数 41.题目: '------------------------------------------------ 程序功能:求1+2+3……，直到其和超出3000为 Option Explicit 止，并输入结果。 Private Sub Form_Click() '------------------------------------------------ Dim n As Integer, k As Integer, i As Integer, swit As Integer Option Explicit For n = 101 To 300 Step 2 Private Sub Form_Click() k = Int(Sqr(n)) Cls i = 2 Dim i As Integer Dim s As Single i = 1 If n Mod i = 0 Then swit = 1 - 46 - Else N = 10 Print "数据 :" End If For I = 1 To N Wend If swit = 0 Then Print X(I); Print n; Next I End If Print Next n Print "排序:" End Sub For I = 0 To N - 1 43.题目: For J = I + 1 To N 本程序的功能是随机产生的10个两位正整数，并进行递减排序。 '------------------------------------------------ Option Explicit X(J) = X(I) Private Sub CreateRND() X(I) = Temp Dim Temp As Integer End If Dim I As Integer Next J Dim N As Integer Print X(I); Dim X(10) As Integer Next I Dim J As Integer Print - 47 - End Sub End Sub 45(题目: Private Sub Command1_Click() 下面程序将10个整数从大到小排序 CreateRND '------------------------------------------------ End Sub Option Explicit 44.题目:输入两个正整数m和n，求其最大公约数。 Private Sub Form_Click() Dim t%, m%, n%, w% '------------------------------------------------ Dim a(10) As Integer Option Explicit For m = 1 To 10 Private Sub Form_Click() a(m) = Int(10 + Rnd() * 90) Dim m As Integer, n As Integer, r As Integer Print a(m); " "; m = InputBox("输入m的值:") Next m n = InputBox("输入n的值:") Print For m = 1 To 9 Do While n <> 0 t = m m = n Loop Next n Print "两数的最大公因子为:"; - 48 - w = a(m) s = s + i a(m) = a(t) a(t) = w Print s End If End Sub Next m 47.题目: For m = 1 To 10 下面程序用于将十个数字从小到大排序 Print a(m) '------------------------------------------------ Next m Option Explicit End Sub Option Base 1 46题目: Private Sub Form_Click() 求s=72+102+132+……+832的值。 Cls '------------------------------------------------ Dim a(10) As Integer Option Explicit Dim i As Integer, j As Integer, temp As Integer Private Sub Form_Click() If i Mod 2 = 0 Then a(i) = i Else a(i) = -i Cls Print a(i); Dim s As Long Dim i As Integer Next Print For i = 1 To 10 - 49 - For j = 1 To 10 - i temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If For i = 1 To 10 Print a(i); Next End Sub 48.编制应用程序，计算公式为K=2～+4～+6～+ „„ +(2n!)。运行f = 1 该程序后，在文本框中输入项数，单击“计算”按钮，在另一个文本 For j = 1 To i 框中显示结果。单击“清除”按钮，清除二个文本框中的内容，光标 f = f * j 聚焦在“输入项数”文本框中。单击“退出”按钮，结束应用程序的 Next j 运行。 s = Private Sub Command1_Click() Next i Dim f As Double, s As Double, n As Integer Text2.Text = Str(s) Dim i As Integer, j As Integer End Sub n = Val(Text1.Text) Private Sub Command2_Click() Text1.Text = "" For i = 2 To 2 * n - 50 - Text2.Text = "" Next i Print End Sub max = com(1) Private Sub Command3_Click() min = com(1) Unload Me For i = 2 To 10 End Sub If com(i) > max Then 49.本程序可以随机产生十个10 – 99的二位数并存放于数组 Com中， max = com(i) 之后从中找出一个最大数Max与最小数Min，结果在窗体上显示出来, ElseIf Then 请填空。 min = Option Explicit End If Next i Option Base 1 Private Sub Command1_Click() Print " 最大数是:"; max Dim com(10) As Integer, i As Integer Print " 最小数是:"; min Dim max As Integer, min As Integer End Sub Randomize Private Sub Command2_Click() For i = 1 To 10 Form1.Cls com(i) = End Sub Print com(i); 50.执行下面程序，第一行输出结果是(5)，第二行输出结果是(6)。 If i Mod 6 = 0 Then Option Explicit - 51 - Private Sub Form_C1ick() Dim A As Integer A=2 Call Sub1(A) End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X) End If X=X*2+1 Print X End Sub - 52 - 2013 C类安全员 复习 判断 单选 多选 案例—— 案例题 1. C类 对负责人处罚 1、企业是安全生产管理的主体。企业负责人或项目经理违反 安全生产法有关规定将受到处罚。作为一名企业负责人或项 目负责人应熟悉和了解《安全生产法》有关安全生产法处罚 规定，更自觉地遵守有关法律法规。 (1) 不依照安全生产法规定保证安全生产所必需的 资金投入，致使生产经营单位不具备安全生产条件的， 责令限期改正，提供必需的资金;逾期未改正的，责 令生产经营单位停产停业整顿。(多选题) A、生产经营单位的决策机构 B、生产经营单位的主要负责人 C、个人经营的投资人 D、不含个体经营的投资人 E、施工项目负责人 答案:ABCE-P65 (2) 生产经营单位未按照规定设立安全生产管理机构或者配 备安全生产管理人员，责令限期改正;逾期未改正的，责 令停产停业整顿，可以并处 的罚款。(单选题) A、2万元以下 B、10万元以下 C、2万元以上10万元以下 D、2万元以上20万元以下 案例题1. C类 对负责人处罚 答案:A-P52八十二条 (3) 生产经营单位的主要负责人有违法行为，导致发生生产安 全事故，尚不够刑事处罚的，给予撤职处分或者处 的罚款。 (单选题) A、2万元以下 B、10万元以下 C、2万元以上10万元以下 D、2万元以上20万元以下— 答案:D-P65八十一条 案例题1. C类 对负责人处罚 (4) 生产经营单位的主要负责人有违法行为， 导致发生生产安全事故，构成犯罪的，依 照刑法有关规定追究刑事责任。(判断题) A、正确 B、错误 答案:A-P52八十一条 (5) 生产经营单位的主要负责人受刑事处罚或 者撤职处分的，自刑罚执行完毕或者受处分之 曰起， 不得担任任何生产经营单位的主 要负责人。(单选题) A、2年内 B、3年内 C、5年内 D、10年内答案:C-P65八十一条 2、国家建设主管部门提出了加强企业安全生产条件动 态监管的有关文件精神。取得安全生产许可证的企业 应当继续完善安全生产条件，遵守有关法律法规，自 觉接受有关部门及社会的监督。否则，企业将受到相 应的处罚。所以，企业主要负责人应当熟悉和掌握有 关企业安全生产条件动态监管的有关文件精神。试回 答如下问题: (1)、企业转让安全生产许可证的，没收违法所得， 处10万元以上50万元以下的罚款，并暂扣其安全生 产许可证。(判断题) A、正确 B、错误案例题2 C类安全生产许可证动态监管 答案:B-P62 二十一条 (2)、 有关部门将提出暂扣企业安全生产许可证 的建议，并附具企业及有关工程项目违法违规事实和证明 安全生产条件降低的相关询问笔录或其它证据材料。(多 选题) A、在12个月内，同一企业同一项目被两次责令停止施工 的 B、对在12个月内，同一企业同一个项目被三次责令停止 施工的 C、对在12个月内，同一企业在同一市、县内二个项目被 责令停止施工的 D、在12个月内，同一企业在同一市、县内三个项目被责 令停止施工的 E、施工企业承建工程经责令停止施工后，整改仍达不到 要求或拒不停工整改的 案例题2 C类安全生产许可证动态监管答案:ADE-P63 第十条 (3)建筑施工企业瞒报、谎报、迟报或漏报事故的， 在有关处罚时限规定的基础上，再处延长暂扣期30日 至60日的处罚;其暂扣时限超过120日的，吊销安全 生产许可证。(判断题)A、正确 B、错误 (4) 建筑施工企业在12个月内第二次发生生产安全事故的，视事 故级别和安全生产条件降低情况，按 处罚。(多选题) A、发生一般事故的，暂扣时限为在上一次暂扣时限的基础上再增加 30日 B、发生较大事故的，暂扣时限为在上一次暂扣时限的基础上再增加 60日 C、事故等级为一般事故的，累计处罚暂扣时限超过120日的，吊销 安全生产许可证 D、事故等级为较大事故的，累计处罚暂扣时限超过120日的，吊销 安全生产许可证 E、事故等级为重大事故的，吊销安全生产许可证 案例题2 C类安全生产许可证动态监管答案:A-P63 第十六条 答案:ABCDE-P63 第15条 53 案例题2 C类安全生产许可证动态监管 (5)建筑施工企业安全生产许可证暂扣期满前 10个工作日，企业需向颁发管理机关提出发还 安全生产许可证申请。颁发管理机关接到申请 后，应当对被暂扣企业 进行复查，复查 合格的，应当在暂扣期满时发还安全生产许可 证;复查不合格的，增加暂扣期限直至吊销安 全生产许可证。(单选题) A、安全生产设施 B、安全生产条件 C、安全生产机构 D、安全生产答案:B-P64 第二十条 案例题3 C类 临时用电 3、某工地为了防止发生触电事故，购买了漏电保护 器，并安排专人进行了安装，但不久却发生了一起 触电事故，导致触电者死亡，后分析发现，事故原 因是漏电保护器安装使用不当所致。请回答下列问 题: (1)按《施工现场临时用电技术规范》(JGJ46-2005) 规定，下列必须编制《用电组织设计》的情况有 。(多选题) A、用电设备在5台及以上时 B、设备总容量在50KW及以上时 C、用电设备在10台及以上时 D、设备总容量在100KW及以上时 E、以上都不是答案:AB-P153 (1)(2)按《施工现场临时用电案例技术规范》(JGJ462005)规定，建筑施工现场应采用的系统有 。(多选 题) A、三级配电系统 B、TN-S接零保护系统 C、二级漏电保护系统 D、TN-C保护系统 E、三相五线制系统 答案:ABCE-P153 倒7行 案例题3 C类 临时用电 201306 (3)施工现场临时用电设置的依据是____。(单 选题) A、项目经理的要求 B、施工现场的规定 C、用电人员的要求 D、施工用电组织设计答案:D-P153 (4)建筑施工现场的开关箱内选用的漏电保护器正确的有 (多选题) A、额定动作电流不应大于30mA B、额定漏电动作时间不应大于0.1s C、潮湿或有腐蚀介质场所应采用防溅型漏电保护器 D、潮湿或有腐蚀介质场所，漏电保护器的额定动作电流不应大于 15mA E、潮湿或有腐蚀介质场所，额定漏电动作时间不应大于0. 1s 案例题3 C类 临时用电 201306 答案:ABCDE-缺失 (5)临时用电工程必须经____共同验收，合格后方可投 入使用。 A、编制 B、审核 C、批准部门 D、使用单位 E、建设单位答案:ABCD-P153 4、某企业专职安全生产管理人员通过学习安全生产法律责任有关知 识，更加清醒地认识到安全生产法律责任的重要性。为了履行安 全生产管理责任，规避不必要的法律责任，就应熟悉掌握安全生 产法律责任。请专职安全生产管理人员回答如下有关问题: 案例4 C类 安全生产法律责任答案:DE-P38第6行 (1)坚持责任自负原则 。(多选题) A、应排除在民法某些特殊情况下，允许有连带责任或者责任 转移的存在 B、应排除在行政法的某些特殊情况下，允许有连带责任或者 责任转移的存在 C、应排除在任何情况下，允许有连带责任或者责任转移的存 在 D、不排除在民法的某些特殊情况下，允许有连带责任或者责 任转移的存在 E、不排除在行政法的某些特殊情况下，允许有连带责任或者 责任转移的存在 (2)根据违法行为的不同性质， 为法律责任。 (单选题) A、违纪责任 B、行政责任 答案:B-P38第6行 C、违法责任 D、以上三者 案例4 C类 安全生产法律责任 (3)公民和法人因违反行政管理法律、法规 的行为而应承担的行政处罚，其主要形式 有: 。(多选题) A、警告 B、罚款 C、暂扣或者吊销许可证、暂扣或者吊销执照 D、拘留 E、追究刑事责任答案:ABCD-P38(2) 案例4 C类 安全生产法律责任 (4)刑事责任的主体主要是公民，不包 括法人。(判断题)A、正确 (5)侵权责任是指行为人 任。(多选题) A、侵犯国家的财产权利 B、侵犯集体的财产权利 C、侵犯公民的财产权利 D、侵犯法人名称 E、侵犯自然人的人身权 B、错误 答案:B-P40第6行 时所应承担的责 答案:ABCDE-P38倒5行 5、 2011年10月20日，某单位施工总承包的一工程工地，发生一起高处坠 落事故，1人死亡;另2011年5月22日，该单位施工总承包的另一工程工地， 发生一起高处坠落死亡事故，致1人死亡。该单位在不到一年的时间内先后 发生两起安全生产事故，根据《中华人民共和国行政处罚法》规定，该省 住建厅向该单位发出了《行政处罚听证告知书》，在规定的时间内未收到 该单位要求听证的申请。 依据《安全生产许可证条例》等文件规定，决定 对该单位处以暂扣安全生产许可证60天的行政处罚，时间从本决定送达之 日起计算。并请该单位在本处罚决定书送达之日起3日内将安全生产许可证 正 (副) 本全部交至省住建厅，逾期不交，将视情节延长暂扣期限。从这一 案例我们了解到违反安全生产管理有关规定，将受到 54 相应的行政处罚。作 为施工现场项目负责人，应学习和掌握安全生产处罚的有关知识，避免触 犯有关法规。请你根据所学的有关法律法规知识，回答如下问题: 案例5 C类 行政处罚 (1)警告处罚可以口头形式作出。(判断题) A、正确 B、错误 答案:B-P42第4行 (2)没收非法财物和非法所得是指 等。(多选题) A、实施违法行为的工具 B、违禁物品 C、其他与违法行为有关的财物 D、违法经营所获得的非法利润 E、赔偿受害人的资金 答案:ABCD-P42第10行 (4)暂扣许可证和执照是 。(多选题) A、行政主体 B、对持有许可证和执照的相对人 C、因持有许可证和执照的相对人有违法行为 C、在一定期限内暂行扣押有许可证和执照 D、使持有许可证和执照的相对人暂时失去从事该类活动资格 E、使持有许可证和执照的的相对人不再具有从事该类活动资 格 案例5 C类 行政处罚答案:ABCD-P42(5)案例5 C类 行政处罚 (5)吊销许可证和执照是 。(多选题) A、行政主体 B、对持有许可证和执照能从事该类活动的相 对人 C、永久性地取消其许可证和执照 D、使其暂时失去从事该类活动资格 E、使其不再具有从事该类活动资格的处罚 答案:ABCE-P42(5)第2款 6、2010年我国发生了多起火灾事故。以建筑施工火灾英法的事故就有:2010 年2月9日中央电视台在建的附属文化中心大楼工地发生火灾;5月3日内蒙古自 治区呼和浩特市隧道施工的中铁十九局民工居住的工棚发生火灾;7月19日新 疆维吾尔自治区乌鲁木齐市新市区一栋三层居民自建房(地上两层、地下一 层)发生火灾;7月28日原南京塑料四厂旧址，平整拆迁土地过程中，挖掘机 挖穿了地下丙烯管道，丙烯泄漏后遇到明火发生爆燃;11月13日，修缮中的 清华大学百年标志性建筑之一“清华学堂”发生火灾; 11月15日上海胶州路 发生特大火灾。这些事故的主要原因是安全生产管理措施没有到位、违反施 工工艺所致。作为施工现场安全生产管理第一责任人的项目经理更应认真学 习建筑施工预防火灾安全管理有关知识，防范建筑施工火灾事故的发生。请 问: 案例6 C类 安全防火(消防) (1)电焊、气割动火采取: 。(多选题) A、定时(时间) B、定位(层、段、档) C、定人(操作人、看火人) D、定措施(应当采取的具体防火措施) E、定责任(与相关人员进行安全责任交底)答案:ABCDE-P171第1-3行 (2)电焊操作应注意: 。(多选题) A、电焊机应当有单独开关，装在防火、防雨的闸箱内 案例6 C类 安全防火(消防) B、焊割部位应当与氧气瓶、乙炔瓶、乙炔发生器及 各种易燃、可燃材料隔离，与明火之间不得小于5m C、电焊机应当设专用接地线，直接放在焊件上，接 地线不准接在建筑物、机械设备、各种管道、避雷引 下线和金属架上借路使用 D、电焊机一、二次线应当用线鼻子压接牢固，同时应 当加装防护罩，防止松动、短路放弧等，引燃可燃物 E、严格执行防火规定和操作规程，操作时采取相应 的防火措施，与看火人员密切配合，防止火灾答案:ACDE-P172 (2),(6)(3)施工工地防火安全管理要求:当工程施工高度 超过 时，应当配备有足够扬程的消防水源和必须 保障畅通的疏散通道。(单选题) A、10米 B、20米 C、30米 D、50米 答案:C-P168第13行 (4)焊割现场应当配备灭火器材，危险性较大的应当有专人现场监护。监护 人员应清理焊割部位附近的易燃、可燃物品， 。(多选题) 案例6 C类 安全防火(消防) A、对不能清除的易燃、可燃物品或用水浇温，以隔绝火星 B、对不能清除的易燃、可燃物品或者盖上石棉布等非燃材料， 以隔绝火星 C、高空焊割时，要用非燃材料做成接火盘和风挡 D、在隐蔽场所或者部位焊、割操作完毕后，0.5小时内要反复检 查，以防阴燃起火 E、备好适用的灭火器材和防火设备(石棉布、接火盘、风挡等)，做好灭火准备 答案:ABCE-P171第13倒9行 案例6 C类 安全防火(消防) (5)该起事故中电焊工无证施工，因而引起 火灾，应承担主要责任。(判断题) A、正确 B、错误答案:B 7、绿色施工管理是当今世界大力提倡的一项管理活 动，作为专职安全生产管理人员更应学习和掌握 绿色施工有关知识。请回答如下有关绿色施工管 理知识和技术要点: 案例7 C类 绿色施工管理 (1)绿色施工是指工程建设中，在保证质量、 安全等基本要求的前提下，通过科学管理和 技术进步，最大限度地节约资源与减少对环 境的负面影响，实现 的施工活动。(多选题) A、节能 B、节地 C、节水 D、节材 E、环境保护答案:ABCDE-187倒6行 (2)绿色施工总体框架由 组成。(单选题) A、施工管理 B、环境保护 C、节材、节水、节能、节地 D、以上三者 答案:D-188第11行 (3)绿色施工的水污染控制要求有 。(多选题) A、在施工现场应针对不 55 同的污水，设置相应的处理设施 B、施工现场污水排放应委托有资质的单位进行废水水质检测， 提供相应的污水检测报告 C、施工现场应采用隔水性能好的边坡支护技术，保护地下水 环境 D、在缺水地区或地下水位持续下降的地区，基坑降水尽可能 少地抽取地下水 E、当基坑开挖抽水量大于100万m3时，应进行地下水回灌， 并避免地下水被污染案例7 C类 绿色施工管理 答案:ABCD-190倒6行 (4)《绿色施工导则》要求:施工现场应加强建筑 垃圾的回收再利用，力争建筑垃圾的再利用和回收 率达到60%。(判断题)A、正确 B、错误 答案:B-191第15行 (5)绿色施工的地下设施、文物和资源保护管理要求有 。 (多选题) A、施工前应当调查清楚地下各种设施，做好保护 B、施工现场应保证施工场地周边的各类管道、管线、建筑物、 构筑物的安全运行 C、施工过程中一旦发现文物应主动移走后方可施工 D、施工场区及周边遇有古树名木应主动移植它处，防止损坏 E、施工现场应逐步开展统计分析施工项目的CO2排放量以及 各种不同植被和树种的CO2固定量的工作 案例7 C类 绿色施工管理答案:ABE-191倒10行 8、某年8月5日10时50分左右，某路段改扩建及雨水、绿化等工程，施工单位作业 人员杨某在该路中段新建地下污水管道检查井内进行抹灰作业。此时井内北侧一根 直径50cm的铸铁旧污水管道因锈蚀老化，加之雨水聚积过多导致管道内压力过大 突然发生爆裂。管道内的污水与硫化氢气体同时涌出，正在井内作业的杨某瞬间被 硫化氢气体熏倒掉进污水井中。一同作业的孙某、王某、马某等3人先后下到井内 救人，均被熏倒。后经众人及时营救和999急救中心的救护，孙、王、马等3人全部 脱离危险。杨某被污水冲入新建下水管道，3个小时后在下游第4个污水检查井内捞 到杨某时已经死亡。 【问题】回答以下问题: 案例8 C类 有毒有害 (1)(硫化氢，是可燃性无色气体，具有典型的臭鸡蛋味。 一同作业的孙某、王某、马某等3人先后下到井内救人是 值得表扬和正确的。(判断题)A、正确;B、错误 答案:B (2)污水井中有害气体的主要成分是____。(多选题) A、硫化氢 B、一氧化碳 C、甲烷 D、二氧化硫 E、氯气 答案:ABCD-180第2段 (3)采取以下____措施可以有效的预防硫化氢中毒事故的发生。 (多选题) A、建立、健全管井疏通作业操作规程，并定期对职工进行职 业卫生安全教育 B、企业要为从事管井疏通作业人员配备职业病危害防护设备 及有效的个人防护用品，如防毒口罩、安全绳等 C、企业要配备快速气体检测仪，及时掌握井下有毒有害气体 种类及浓度 D、定期安排井下作业人员进行职业性健康检查 E、建立、健全本单位职业病危害事故应急救援预案 案例8 C类 有毒有害 答案: ABCDE-180第2段 (2)污水井中有害气体的主要成分是____。(多选题) A、硫化氢 B、一氧化碳 C、甲烷 D、二氧化硫 E、氯气 答案:ABCD-180第2段案例8 C类 有毒有害 (4)根据江苏省建筑施工安全事故应急救援预案管理规定，建筑 施工安全事故应急救援预案应包括下列____的内容。(多选题) A、建设工程的基本情况，含规模、结构类型、工程开工、峻 工日期 B、建筑施工项目经理部基本情况，含项目经理、安全负责人、 安全员等姓名、证书号码等 C、施工现场安全事故救护组织，包括具体责任人的职务、联 系电话 D、求援器材、设备的配备 E、安全事故救护单位，包括建设工程所在市、县医疗救护中 心、医院的名称、电话、行驶路线等 答案:ABCDE-缺失 (5)建筑施工安全事故应急预案由工程承包单位编制。 实行工程总承包的，由总承包单位和分包单位共同编 制。 (判断题) A、正确; B、错误答案:A-86 多选题1、江苏省住房和城乡建设厅提出了关于加强全省建 筑安全生产责任追究13项意见的目的有 。 A、实现控制一般事故 B、实现杜绝较大事故 C、实现减少一般事故 D、实现控制较大事故 E、实现杜绝重特大事故 答案:CDE-P51第16行 2、江苏省在国家住房和城乡建设部确定的建筑施工特种 作业工种设置的基础上增加的特种作业工种有: 。 A、建筑焊工 B、建筑施工机械安装质量检验工 C、桩机操作工 答案:ABCDE-P123第7行始 D、建筑混凝土泵操作工 E、建筑施工现场场内机动车司机 C类 多选题 201306 3、安全带使用 。 答案:ABCD-P136倒6行 A、不宜低挂高用 B、不应将绳打结使用，以免绳结受力后剪断 C、不应将挂钩直接挂在不牢固物和直接挂在非金属绳上，防 止绳被割断 D、使用安全带应做垂直悬挂，高挂低用较为安全 E、使用安全带应做垂直悬挂，低挂高用较为安全 4、危险 56 性较大的分部分项工程是指建设工程在施工过程中 的分部分项工程。(多选题) A、存在的个别意外伤害 B、存在的导致作业人员群死群伤 C、可能导致作业人员群死群伤 D、存在的造成重大不良社会影响 E、可能造成重大不良社会影响 C类 多选题 201306答案:BCDE-P138倒8行答案:ACE-P137第6行 5、临边洞口管理的要求有 。 A、对水平孔洞短边尺寸大于2.5cm的要进行防护 B、对水平孔洞短边尺寸大于2.Ocm的要进行防护 C、对竖向孔洞高度大于80cm的要进行防护 D、对竖向孔洞高度大于65cm的要进行防护 E、工作面边沿无防护设施或者围护设施高度低于80cm时，都要 按规定搭设临边防护栏杆，栏杆搭设应符合规范要求 6、安全生产条件诸多特征表明 。 A、必须采取强制手段约束(规范)企业的安全生产条件 B、安全生产条件是变化的，所以要加强安全生产条件的动态监管 C、安全生产条件虽然具有动态特征和难以掌握的规律，但是可以掌 控的 D、忽视任何一个条件，都有可能造成重大的生产安全事故，给安全 生产管理造成重大的影响 E、安全生产条件是动态的，所以难以控制C类 多选题 201306 答案:ABCD-P80倒8行答案:ABCDE-P43第1行 7、简易程序 。 A、是当场实施处罚的一种简便程序 B、手续简单 C、时间快 D、效率较高 E、只能针对案情简单、清楚、处罚较轻的违法案件 8、安全标志根据使用目的，可以分为 。 A、防火标志(有发生火为危险的场所，有易燃易爆危险的物 质及位置，防火、灭火设备位置) B、禁止标志(所禁止的危险行动) C、危险标志(有直接危险性的物体和场所并对危险状态作警 告) D、注意标志(由于不安全行为或不注意就有危险的场所) E、救护标志、小心标志、放射性标志、方向标志和指导标志 C类 多选题 201306 答案:ABCDE-P135倒11行 10、坚持责任自负原则 。 A、应排除在民法某些特殊情况下，允许有连带责任 或者责任转移的存在 B、应排除在行政法的某些特殊情况下，允许有连带 责任或者责任转移的存在 C、应排除在任何情况下，允许有连带责任或者责任 转移的存在 D、不排除在民法的某些特殊情况下，允许有连带责 任或者责任转移的存在 E、不排除在行政法的某些特殊情况下，允许有连带 责任或者责任转移的存在 答案:DE-P38第5行C类 多选题 201306 C类 多选题 201306 11、民事责任的形式主要包括 等。 A、停止侵权 B、排除妨碍 C、消除危险 D、返还财产E、恢复原状 答案:ABCDE-P38倒2行 12、安全生产条件基本特征有 。 A、约束性 B、动态性 C、可控性 D、均衡性 E、不可控性 答案:ABCD-P80倒8行4,7 13、行政处罚的种类有 。 答案:ABCDE-P42第1行 A、警告 B、罚款、没收非法财物和违法所得 C、责令停产停业、暂扣或者吊销许可证和执照 D、行政拘留 E、法律、行政法规规定的其他行政处罚 14、在企业建立的“五项基本制度”中安全生产责任 制度是安全生产管理的 管理制度。 A、一般的 B、最重要 C、较为重要 D、最基础 E、最核心 答案:BDE-P103第1行C类 多选题 201306 15、禁止性规范在法律条文中多以 词来表述。 A. 必须 B.不得 C.不许 D.禁止 E.不准 答案:BCDE-P34倒8行 16、施工现场专职安全生产管理人员配备的基本要求是:____。 A、总承包单位配备项目专职安全生产管理人员可以按照建筑面积或工程合 同价配备 B、专业承包单位应当配置至少1人，并根据所承担的分部分项工程的工程 量和施工危险程度增加 C、劳务分包单位按照施工人数配备专职安全生产管理人员，并根据所承担 的分部分项工程施工危险实际情况增加，不得少于工程施工人员总人数的 10‰ D、采用新技术、新工艺、新材料或致害因素多、施工作业难度大的工程项 目，项目专职安全生产管理人员的数量应当根据施工实际情况，在以上规 定的配备标准上增加 E、施工作业班组可以设置兼职安全巡查员，对本班组的作业场所进行安全 监督检查 C类 多选题 201306 答案:ABDE-P120(二) (三) 17、企业安全生产责任制应做到 。(多选题) A、写在纸上 B、挂在墙上 C、责任人签字确认 D、安全检查应重点检查责任制落实情况 E、安全生产责任制应与经济考核挂钩 C类 多选题 201306 答案:ABCDE-P102 18、企业安全生产教育培训符合相关法律规定的做法是 。 A、对管理人员和作业人员每年至少进行一次安全生产教育培 训 B、对管理人员和作业人员每两年至少进行一次安全生产教育 培训 57 C、在作业人员进入新的岗位或者新的施工现场前，必须进行 安全生产教育培训 D、进入新岗位和新的施工现场的作业人员，未经教育培训或 者教育培训考核不合格的人员，不得上岗作业 E、在采用新技术、新工艺、新设备、新材料时，对作业入员 进行相应的安全生产教育培训答案:ACDE-P108(四) 19、安全生产涵盖了 等管理要求。 A、劳动保护 B、职业健康安全 C、职业健康卫生 D、企业生产活动 E、社会进步发展 答案:ABCDE-P17倒7行 20、建筑施工企业应依据承包工程的类型、特征、规模及自身 管理水平等情况， 。 A、对危险源识别，列出危险源清单，并对达到一定规模的危 险源进行评价 B、对危险源识别，列出危险源清单，并对危险较大的危险源 进行评价 C、重大危险源档案一旦建立不得更新 D、对危险源的识别与评价必须有文件 E、对重大危险源制定应急预案，预案应能指导企业进行施工 现场的具体操作 答案:DE-P138第二段C类 多选题 201306 返回 单选题1、依据江苏省住房和城乡建设厅《关于加强全省建筑安全生 产责任追究若干意见的通知》(苏建质安(2011) 847号文)， 建筑施工企业发生建筑施工较大安全生产事故，死亡3-5人 的，对其有责任的“三类人员”(企业法人除外)，暂扣其 年安全生产合格证。 A、1年 B、2年 C、3年 D、4年 答案:B-P76第8行 C类 单选题 201306 2、 ，我们称之为危险源。 A、可能导致死亡、伤害、职业病、财产损失、工作环境 破坏或者上述情况的组合所形成的根源或者状态 B、对人造成伤亡或者对物造成突发性损害的因素 C、对影响人的身体健康，导致疾病，或者对物造成慢性 损害的因素 D、以上三者 答案:A-P138第一段C类 单选题 201306 3、在建筑施工企业， 是企业操作层的安全 生产管理负责人。 A、企业负责人 B、项目负责人 C、专职安全生产管理人员 D、班组长 答案:C-P101倒12行 4、 适用于混合结构、框架结构、排架结构、 钢结构和各类基础、地下构筑物工程。 A、人工拆除 B、机械拆除 C、爆破拆除 D、以上三者 答案:B-P183 3、机械拆除C类 单选题 201306 5 施工人员进入有毒有害危险场所作业低于地下 作业时，作业人员必须使用安全带并便于 井上监护人员救护。 答案:C-P181第10行 A、1米 B、1.5米 C、2米 D、3米 6、安全生产检查制度是落实安全生产责任、全面 提高安全生产管理水平和操作水平的重要管理制度。 安全生产检查的最终目的是 。 A、对“物的安全因素”进行检查 B、对“人的安全因素”进行检查 C、对“物的安全因素”和“人的安全因素”进行 检查 答案:D-P108 倒1行D、消除隐患 7、 安全生产的三大基本措施是 。 A、法律法规措施、安全教育措施和安全管理措施 B、资金保障措施、安全教育措施和安全管理措施 C、安全技术措施、安全教育措施和安全管理措施 D、安全技术措施、安全教育措施和资金保障措施 答案:C-P24倒4行 8、开挖深度超过 基坑(槽)支护、降水工程属 于危险性较大的深基坑工程。(单选题) A、2米(含2米) B、3米(含3米) C、4米(含4米) D、5米(含5米 答案:B-P143 第11行C类 单选题 201306 9、 在申请领取施工许可证或者办理安全监督手 续时，应当提供危险性较大的分部分项工程清单和 安全管理措施。 A、建设单位 B、施工单位 C、监理单位 D、专业承包单位 答案:A-P141第9行 10、用人单位对于首次取得资格证书的人员，应当 在其正式上岗前安排不少于 的实习操作。 A、1个月 B、2个月 C、3个月 D、半年 答案:C-P123/125 倒2行C类 单选题 201306 11、 是所有法律责任中性质最为严重、制裁最为 严厉的一种。 A、违宪责任 B、行政责任 答案:C-P141倒12行 C、刑事责任 D、民事责任 12、强令他人违章冒险作业，因而发生重大伤亡事 故或者造成其他严重后果情节特别恶劣的， 。 A、处3年以下有期徒刑或者拘役 B、处5年以下有期徒刑或者拘役 C、处3年以上7年以下有期徒刑 D、处5年以上有期徒刑 答案:D-P69 倒3行C类 单选题 201306 13、建筑施工专项应当由施工单位技术部门组织 本单位 等部门的专业技术人员进行审核。 A、施工技术 B、安全 答案:D-P141 4、 C、质量 D、以上三者 14、《中华人民共和国宪法》规定:“ ”，这 是国家和企业安全生产所必须遵循的基本原则。 A、安全第一，预防为主 B、安全第一，预防为主，综合治理 C、加强劳动保护，改善劳动条件 D、以上三者 答案:C-P23 58 第7行C类 单选题 201306 15、建筑施工企业应对危险源识别，列出危险源清 单， 。 答案:A-P138 (二)第3 行 A、一一进行评价 B、只对危险较大的危险源进行评价 C、视危险源的危险程度进行评价 D、只对达到一定规模的危险源进行评价 16、在应急管理中， 阶段的目标是尽可能地抢 救受害人员、保护可能受威胁的人群，并尽可能控 制并消除事故。 A、预防 B、准备 C、响应 D、恢复 答案:C-安全知识竞赛C类 单选题 201306 17、 “四不放过”原则之一就是 。 A、没有经济处罚不放过 答案:B-P24 第4 行 B、没有防范措施不放过 C、有关领导没有追究刑事责任不放过 D、有关责任者没有追究刑事责任不放过 C类 单选题 201306 18、激励原理就是 。 A、用科学的手段 B、激发人的内在潜力 C、充分发挥人的积极性和创造性 D、以上三者 答案:D-P22第14行—— 19、 等有关能级原理的说法是正确的。 A、能级原理是指管理系统必须是由若干相同能级处于不 同层次合理地组合而成 B、在实际管理中决策层、执行层、操作层设置就是利用 能级原理的体现 C、相同能级处于不同层次有利于加强低层管理的力量 D、以上三者 21、根据《关于进一步加强全省建筑施工企业安全生产 管理人员考核工作的通知》(苏建质安【2011】 507号) 文件精神，省住房城乡建设厅定期在网上公布考试作弊 者名单，被公布名单的考生在 内不得参加安全生产 知识考试。 A、3个月 B、6个月 C、1年 D、2年 C类 单选题 201306 答案:B-P22 (7) 答案:C-P22第14行C类 单选题 201306 23、最高人民法院审判委员会和最高人民检察院 根据刑法有关规定，认为: ，应当认定为 “情节特别恶劣”。 A、造成死亡1人以上的 答案:C-P71 第11行 B、造成重伤3人以上的 C、造成死亡3人以上 D、造成直接经济损失100万元以上的答案:A 24、建筑施工企业在“五大高危企业”中， 事故起数频率排 。 A、第一 B、第二 C、第三 D、第四C类 单选题 201306 25、 ，考核发证机关应当注销资格证书。 A、持证人弄虚作假骗取资格证书或者办理延期复 核手续的 B、依法不予延期的 C、考核发证机关工作人员违法核发资格证书的 答案:B-P77 第8行 D、以上三者 26、在建筑施工企业， 是企业操作层的安 全生产管理负责人。 A、企业负责人 B、项目负责人 C、专职安全生产管理人员 D、班组长答案:C-P22倒12行C类 单选题 201306 28、建筑施工现场包括 。 A、施工区 B、办公区 C、生活区 D、以上三者 答案:D-P130 倒11行 29、超过一定规模的危险性较大的分部分项工程 专项方案专家论证会的专家组成员应当由 ， 以上符合相关专业要求的专家组成。 A、3名 B、4名 C、5名 D、7名 答案:C-P141倒9行答案:A-P42倒13行 返回 30、司法拘留有严格的期限限制，最多不超过 A、15日 B、20日 C、25日 D、30日 。判断题 A.正确 B.错误 返回4、依照《工伤保险条例》的规定，对因生产安全事故 造成的职工死亡，其一次性工亡补助金标准调整为按 全国上一年度城镇居民人均可支配收入的10倍计算。 答案:B-P130 第13行 2、 在满足环境、职业健康与安全及文明施工要求的 前提下尽可能减少废弃地和死角，临时设施占地面积 有效利用率大于90%。 答案:A-P195倒11行 3、施工现场的扬尘控制在土方作业阶段，采取洒水、 覆盖等措施，达到作业区目测扬尘高度小于1.5米， 不扩散到场区外。答案:A-P189倒9行 C类 判断题 201306 1.江苏省建设厅印发《江苏省建筑施工起重机械设备 安全监督管理规定》，要求在本省行政区域内从事建 筑施工起重机械设备的购置、租赁、安装、拆卸、使 用、维修、检验检测及实施监督管理，应当遵守这一 规范性文件的规定。 答案:A-P198 第一段 5、“五同时”原则决定了在计划、布置、检查、总 结、评比生产经营工作等项活动中，有关专职安全生 产管理人员必须自始至终地参加这五个工作环节，且 有发言权和否定权。 答案:A-P24第8行 6、江苏省住房和城乡建设厅在《关于加强全省建筑安 全生产责任追究若干意见的通知》中提出了关于加 强全省建筑安全生产责任追究13项意见。答案:A-P60倒11行 C类 判断题 201306 C类 判断题 201306 7、管理是指管理主体采用一定的方式、方法作 用于客体，使其朝着一定的目标发展所进行的 活动。 答 59 案:A-P18 第二段 8、建设工程实行施工总承包的，建筑施工总 承包企业应当依法将工程分包给具有安全生产 许可证的专业承包企业或者劳务分包企业，并 加强对分包企业安全生产条件的监督检查。 答案:A-P82第10行 9、危险性控制的原则有消除、预防、减弱、隔 离、连锁、薄弱环节和减少暴露等原则。 答案:A-P24倒13行— C类 判断题 201306 10、 危险性控制的原则有合理布局、加强、替 代、冗余、警告和个体防护等原则。 答案:A-P24倒18行 11、行政法律责任主要包括行政处罚、行政处 分两个方面。 答案:A-P39倒9行 12、根据违法行为的不同性质，法律责任可分 为违宪责任、违纪责任、刑事责任和违法责 任。 答案:B-P38第12行 C类 判断题 201306 13、行政处罚的程序，指处罚主体机关实施行 政处罚的步骤和方式。 答案:A-P42倒2行 14、行政处罚的程序主要包括简易处罚程序、 普通处罚程序、听证程序和执行程序。 答案:A-P42 倒1行 15、正确佩戴安全帽的要求有:必须系紧下颚 系带，防止安全帽坠落失去防护作用。 答案:A-P136 60