vb程序设计教程参考答案
第一章
1、 B
2、 A
3、 B
4、 答:属性:红色、充满氢气;事件:松手、针刺;方
法:飞走、爆破。
5、 答:事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件
对应有相应的程序代码，仅在该事件发生时，该段代码才
会被执行。事件发生的顺序决定了代码执行的顺序，因此
每次执行应用程序时，程序代码并不是按照程序编写的顺
序来执行的。
6、 答:VB是一个包括界面设计、程序编码、调试、编译
并创建可执行程序的集成开发环境。VB的集成开发环境的
主界面中包含:标题栏、菜单栏、工具栏、控件箱、工程
资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、
代码编辑器等元素组成。
7、 答: VB菜单条通常情况下有:文件、编辑、视图、工
程、格式、调试、运行、查询、图表、工具、外接程序、
窗口、帮助等13项菜单项组成。
8、 答:工具栏可自行定义。标准工具栏中通常情况下有:
添加标准exe工程、添加窗体、菜单编辑器、打开工程、
保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、 答:创建VB应用程序的一般步骤为:创建界面;设置窗体和控件属性;编写代码;保存工程;运行并调试程序;检查并排除错误;创建可执行文件。
10、
Private Sub Command1_Click()
Label1.Caption = "I love vb,I hate vb"
End Sub
第二章
1、 2、
开始 开始
否
输入x、y b>a?
是
temp=x
交换a、b
x=y
否 c>a?
y=temp 是
交换a、c 输出新的x、y
c>b? 结束 否
是
交换b、c
输出a、b、c
结束
3、S1 输入待判断自然数: N,N>=2,,
S2 i=2,
S3 判断i是否小于N-1～若不是转S5
S4 判断N除以i的余数是否为0,如果不是则i=i+1转S3,
S5 判断i是否等于N～若是输出“是素数”～否则输出“不是素数”。
4、S1 输入待判断自然数: N,
S2 将N转换成字符S～计算S的长度K,
S3 i=1,
S4 判断i是否小于K-1～若不是转S6,
S5 判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4～如果不是则转S6,
S6 判断i是否是中间位数～若是输出“是回文数”～否则输出“不是回文数”。
5、S1 输入待判断自然数: a,
S2 i=1,
S3 判断i是否小于a-1～若不是转S5
S4 判断a除以i的余数是否为0,如果是则保留因子i～否则i=i+1转S3,
S5 输出所有因子。
6、
开始
否 边长>0?
是
否 是否能组 出错信息 成三角形
是
计算
输出
结束
第三章
1、窗体的属性主要分为杂项、外观、行为、字体、位置等五
类。Caption是窗体标题，出现在窗体标题栏的文本内容;
而Name是窗体名称，在程序代码中被作为窗体的标识名。 2、ABDE
4、改变窗口的工作状态会引发Activate事件，改变窗口大小
会引发resize事件。
5、forecolor和backcolor属性首先选择系统中的选项，然
后在调色板中设置相应的颜色;font属性设置好以后，在
窗体上放置的任何控件都会继承窗体的font属性。 6、C
7、Label、optionbutton、checkbox、commandbutton有caption
属性，没有text属性;text、combobox有text属性，没
有caption属性
8、对象的属性可以在设计界面时在属性窗口中和运行中在代
码中设置;属性窗口中的属性列表并没有包括对象的所有
属性。
9、picturebox、frame等
10、optionbutton和checkbox。Optionbox的Value可以取
true,选中和false,未选中，checkbox的Value可以取0
,未选中，1,选中，2,变灰，表示暂时不能访问。 11、text、commandbutton可以获得焦点。在设计界面时第一
个放在窗体上的文本框或命令按钮将得到焦点。 12、C
13、把Value的值设为2，表示暂时不能访问复选框，点击复
选框后就可以访问了，而把enabled属性设为false则是
复选框变灰，完全不能访问。若把一个控件的Visible属
性设为false则在程序运行时看不到该控件。 14、用additem来添加列表项，用removeitem删除已有的列
表项，用clear删除所有列表项。
15、
16、
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label2.Font.Italic = True
ElseIf Check1.Value = 0 Then
Label2.Font.Italic = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label2.Font.Bold = True
ElseIf Check2.Value = 0 Then
Label2.Font.Bold = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
If Option1.Value Then Label2.Font.Size = 12
Label2.Refresh
End Sub
Private Sub Option2_Click()
If Option2.Value Then Label2.Font.Size = 14
Label2.Refresh
End Sub
Private Sub Option3_Click()
If Option3.Value Then Label2.Font.Size = 16
Label2.Refresh
End Sub
Private Sub Option4_Click()
If Option4.Value Then Label2.Font.Name = "宋体"
Label2.Refresh
End Sub
Private Sub Option5_Click()
If Option5.Value Then Label2.Font.Name = "隶书"
Label2.Refresh
End Sub
Private Sub Option6_Click()
If Option6.Value Then Label2.Font.Name = "黑体"
Label2.Refresh
End Sub
17、
18、
第四章
1. B
2. 见
教材
民兵爆破地雷教材pdf初中剪纸校本课程教材衍纸校本课程教材排球校本教材中国舞蹈家协会第四版四级教材
P40-41
3. 不对，通用过程也可以存在于窗体模块中
4. 见教材P43
5. 字符串型常量的界定符是双引号"，日期型数据的界定符
是磅号#。A、B是字符型，C、D是日期型，E、F不属于任
何类型。
6. 合法变量名有:A、C、D (VB中合法变量名只能由字母、
数字和下划线构成，并且只能以字母开头)
7. 见教材P46
8. (1) a/(b+c/d) (2)
(sqr(x^2+1)+x)^(1/3)
(3) (2*y)/((a*x+b*y)*(a*x-b*y)) (4) 1+1/(1+1/m)
(5) (d/3)^(2*x)/2 (6) log(y+cos(x)^2)
(7) fabs((exp(x)+sin(x)^3)/(x+y))
(8)log((exp(x*y)+fabs(tan(z)^-1+cos(x)^3))/(x+y-z
))
9. (1)(2) (A+B)/(A-B)
(3)(4) A*B*C/((D+1)*Y)
(5)(6) (X*Y)^5
10. A x+y<10 and x-y>0
B x*y>0 and x=fix(x) and y=fix(y)
C A=0 XOR B=0
D C1+C2+C3>=255 and C1>90 and C2>90 and C3>80
11. T F F F F
12. BCDE (A会发生溢出的错误)
13. (1) "3548" (2) 3548 (3) "3548" (4)
3548
(5) "83" (6) 83 (7) "3548" (8)
3548
14. 以2为底的X的对数:log(x)/log(2) 15. C
16. z=Inputbox("输入一个数:"，"程序示例"，1.5) 17. Msgbox "Z的值1.5大于0"，48，"程序示例" 18.
Option Explicit
Const PI As Single = 3.14159
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, area
As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text) * PI / 180 '角度角转换
为弧度角
area = a * b * Sin(c) / 2
Text4 = CStr(Format(area, "0.00")) '使纯小数能
出现整数位的0
End Sub
Private Sub
Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
第五章
1.
Option Explicit
Private Sub
Command1_Click()
Dim a As Integer, b As Integer
a = 1: b = 0
Do While a <= 5
b = b + a * a
a = a + 1
Loop
Print a, b
End Sub
Private Sub Command2_Click()
Dim ch As String, i As Integer
ch = "DEF"
For i = 1 To Len(ch) '循环的上界不会变
ch = Mid(ch, 2 * i - 1, 1) & Left(ch,
Len(ch))
Print ch
Next i
End Sub
Private Sub Command3_Click()
Dim p As Integer, i As Integer
p = 1
For i = 1 To 5
p = p + (2 * i - 1) / (2 * i + 1)
If p >= 20 Then Exit For '跳出循环前执行不到这一句
Next i
Print i, p
End Sub
Private Sub Command4_Click()
Dim p As Integer, i As Integer, n As Integer
p = 2: n = 20
For i = 1 To n Step p '计数循环的初值、终
值和步长都不会变
p = p + 2
n = n - 3
i = i + 1
If p >= 10 Then Exit For
Next i
Print i, p, n
End Sub
2.
Option Explicit
Dim n1 As Integer, n2 As Integer, n3 As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 10
For j = 1 To 10
k = Int(Rnd * 90 + 10)
Print k;
If k <= 40 Then
n1 = n1 + 1
ElseIf k <= 70 Then
n2 = n2 + 1
Else
n3 = n3 + 1
End If
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
Print "小于等于40的数据个数为:" & n1 & "个"
Print "大于40小于等于70的数据个数为:" & n2 & "个"
Print "大于70的数据个数为:" & n3 & "个" End Sub
Private Sub Command3_Click()
Cls
End Sub
3.
Option Explicit
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Text1.Text
If x <= 0 Then
y = 2 - x
ElseIf x <= 2 Then
y = x + 2
ElseIf x <= 5 Then
y = x ^ 2
Else
y = 25 - x
End If
Text2.Text = y
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2 = ""
End Sub
4.
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 2
For j = 1 To 10
k = Int(Rnd * 900 + 100)
Picture1.Print k;
If k Mod 2 <> 0 Then
List1.AddItem k
Else
List2.AddItem k
End If
Next j
Picture1.Print
Next i
End Sub
5.
Option Explicit
Private Sub Command1_Click()
Dim m As Integer, n As Integer, r As Integer
m =
Val(Text1.Text)
n =
Val(Text2.Text)
Do
r = m Mod n
If r <> 0 Then
m = n
n = r
Else
Exit Do
End If
Loop
Text3.Text = Val(Text1.Text) *
Val(Text2.Text) / n End Sub
6.
Option Explicit
Dim r1 As Integer, r2 As Single 'r2可能是个很大的数，最好定义成单精度型
Private Sub Command1_Click()
Dim i As Integer, k As Integer
r1 = 0: r2 = 1 'r2一定要初始化为1，否则积为0
For i = 1 To 10
k = InputBox("请输入第" & i & "个数")
Picture1.Print k;
r1 = r1 + k
r2 = r2 * k
Next i
End Sub
Private Sub Command2_Click()
Text1 = r1
End Sub
Private Sub Command3_Click()
Text2 = r2
End Sub
7.
Option Explicit
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String,
i As Integer
s1 = Text1.Text
For i = 1 To Len(s1)
s = Mid(s1, i, 1)
If s >= "0" And s <= "9" Then
s2 = s2 & s
End If
Next i
Text2.Text = s2
End Sub
8.
Option Explicit
Private Sub
Command1_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command2_Click()
Dim n As Integer, r As String, s As String
n = Val(Text1.Text)
Do
r = n Mod 2
s = r & s
n = n \ 2
Loop Until n = 0 '当商为0时则跳出循环
Text2.Text = s
End Sub
9.
Option Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
If a * a + b * b = c * c Then
List1.AddItem a & "," & b &
"," & c
End If
Next c
Next b
Next a
End Sub
10.
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, r1 As Integer, r2 As Integer,
r3 As Integer
For i = 100 To 999
r1 = i \ 100
r2 = (i \ 10) Mod 10 '或者r2 = (i mod 100)\10
r3 = (i Mod 100) Mod 10
If r1 < r2 And r2 < r3 Then
List1.AddItem i
End If
Next i
End Sub
11.
Option Explicit
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = 0: b = 1
c = (a + b) / 2
Do
If f(a) * f(c) > 0 Then
a = c
Else
b = c
End If
c = (a + b) / 2
Loop Until Abs(b - c) <= 0.00001
Text1.Text = Format(c, "0.########") End Sub
Private Function f(x As Single) As Single
f = x ^ 3 - x ^ 4 + 4 * x ^ 2 - 1 End Function
第六章
6-1 请同学上机运行代码。
6-2
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, t As Integer
Dim a(15) As Integer
Randomize
For i = 1 To 15
a(i) = Int(100 * Rnd)
Text1 = Text1 & Str(a(i))
Next i
For i = 1 To 7
t = a(i)
a(i) = a(16 - i)
a(16 - i) = t
Next i
For i = 1 To 15
Text2 = Text2 & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
6-3
Option Explicit
Dim a(20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 20
a(i) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, f As Boolean
Dim n As Integer
For i = 1 To 20
f = True
For j = i + 1 To 20
If a(i) = a(j) Then f = False
Next j
If f = True Then n = n + 1
Next i
Text2 = n
End Sub
Private Sub Command3_Click()
Text1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
6-4
Option Explicit
Dim a(20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 20
a(i) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, max As Integer
Dim n As Integer, w As Integer, p As Integer
For i = 1 To 20
n = 0: p = i
For j = 1 To 4
If i > 20 Then p = p - 20
n = n + a(p)
Next j
If n > max Then
max = n
w = i
End If
Next i
Text2 = max
Picture1.Print w & "--" & w + 4
End Sub
Private Sub Command3_Click()
Text1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
6-5
Dim a(5, 5) As Integer
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(9 * Rnd) + 1
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 5
s = 0
For i = 1 To 4
s = s + a(i, j)
Next i
Text1 = Text1 & Str(s)
Next j
End Sub
Private Sub Command3_Click()
For i = 1 To 4
s = 0
For j = 1 To 5
s = s + a(i, j)
Next j
Text2 = Text2 & Str(s) & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Command4_Click()
Text1 = ""
Text2 = ""
Picture1.Cls
End Sub
Private Sub Command5_Click()
End
End Sub
6-6
Option Explicit
Private Sub Command1_Click()
Dim a(5, 5), i As Integer, j As Integer
Dim n As Integer, m As Integer, t As Integer
Randomize
For i = 1 To 5
For j = 1 To 5 - 1
a(i, j) = Int(40 * Rnd) * 2 + 10
Next j
Next i
For i = 1 To 5
For j = 5 To 6 - i Step -1
a(i, j) = Int(40 * Rnd) * 2 + 11
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Text1 = Text1 & Str(a(i, j))
Next j
Text1 = Text1 & vbCrLf
Next i
End Sub
6-7 同6-4
6-8
Dim a(5, 5) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(100 * Rnd) + 1
Picture1.Print Right(" " & a(i, j), 4);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 5
For j = 1 To 5
s = s + a(i, j)
Next j
Next i
Text1 = Str(s)
End Sub
Private Sub Command3_Click()
For i = 1 To 5
For j = 1 To 5
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then
s = s + a(i, j)
End If
Next j
Next i
Text2 = Str(s)
End Sub
Private Sub Command4_Click()
For i = 1 To 5
For j = 1 To 5
If i = j Or j = 6 - i Then
s = s + a(i, j)
End If
Next j
Next i
Text3 = Str(s)
End Sub
6-9
Option Explicit
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, j As Integer
Dim max As Integer, k As Integer, f As Boolean
Dim n As Integer, m As Integer, t As Integer
n = InputBox("输入矩阵的行数:")
m = InputBox("输入矩阵的列数:")
ReDim a(n, m)
Randomize
For i = 1 To n
For j = 1 To m
a(i, j) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i, j))
Next j
Text1 = Text1 & vbCrLf
Next i
For i = 1 To n
max = 0
For j = 1 To m
If a(i, j) > max Then
max = a(i, j)
t = j
End If
Next j
For k = 1 To n
If a(k, t) < max Then Exit For
Next k
If k > n Then
Picture1.Print "鞍点:"; a(i, t); "第"; i; "行"; t; "列"
f = True
End If
Next i
If f = False Then Picture1.Print "没有鞍点"
End Sub
Private Sub Command2_Click()
Text1 = ""
Picture1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
6-10
Option Explicit
Private Sub Form_Click()
Dim a() As Integer, n As Integer
Dim i As Integer, j As Integer
n = InputBox("层数")
ReDim a(n, n)
For i = 1 To n
Print Tab(20 - 2 * i);
For j = 1 To i
If i = 1 Or i = j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Print Left(a(i, j) & " ", 4);
Next j
Print
Next i
End Sub
6-11
Option Explicit
Private Sub Command1_Click()
Dim a(4, 5), i As Integer, j As Integer
Dim b(4) As Integer, max As Integer, min As Integer
Dim n As Integer, m As Integer, t As Integer
Randomize
max = 0: min = 32767
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i, j))
b(i) = b(i) + a(i, j)
Next j
Text1 = Text1 & vbCrLf
If max < b(i) Then
max = b(i): m = i
ElseIf min > b(i) Then
min = b(i): n = i
End If
Next i
Label1.Caption = "max行和: " & max & " min行和 :" & min & vbCrLf & "max行: " & m & " min行: " & n & " 交换这两行"
For j = 1 To 5
t = a(m, j)
a(m, j) = a(n, j)
a(n, j) = t
Next j
For i = 1 To 4
For j = 1 To 5
Text2 = Text2 & Str(a(i, j))
Next j
Text2 = Text2 & vbCrLf
Next i
End Sub
6-12
Option Explicit
Private Sub Command1_Click()
Dim a(), i As Integer, j As Integer
Dim b(4) As Integer, max As Integer, min As Integer
Dim n As Integer, m As Integer, t As Integer
Randomize
n = InputBox("矩阵阶数n:")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
a(i, j) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i, j))
Next j
Text1 = Text1 & vbCrLf
Next i
For i = 1 To n
For j = 1 To n
Text2 = Text2 & Str(a(j, i))
Next j
Text2 = Text2 & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
6-13
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
Dim max As Long, k As Long, f As Integer
Dim n As Integer, m As Integer
Randomize
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i, j))
Next j
Text1 = Text1 & vbCrLf
Next i
For i = 1 To 3 '主对角线方向
m = i
k = 1
For j = 1 To 3
k = k * a(m, j)
m = m + 1
If m > 3 Then m = 1
Next j
If k > max Then
max = k
n = i
f = 1
End If
Next i
For i = 1 To 3 '辅对角线方向
m = i
k = 1
For j = 1 To 3
k = k * a(j, m)
m = m - 1
If m < 1 Then m = 3
Next j
If k > max Then
max = k
n = i
f = 2
End If
Next i
Picture1.Print "最大组元素:"
If f = 1 Then
For i = 1 To 2
Picture1.Print "a("; n; ","; i; ")="; a(n, i); " ";
n = n + 1
If n > 3 Then n = 1
Next i
Picture1.Print "a("; n; ","; i; ")="; a(n, i)
ElseIf f = 2 Then
For i = 1 To 2
Picture1.Print "a("; i; ","; n; ")="; a(i, n); " ";
n = n - 1
If n < 1 Then n = 3
Next i
Picture1.Print "a("; i; ","; n; ")="; a(i, n)
End If
Picture1.Print "乘积="; max
End Sub
Private Sub Command2_Click()
Text1 = ""
Picture1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
6-14
Option Explicit
Private Sub Command1_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
Dim k As Integer
i = 3: j = 2: a(i, j) = 1: k = 1
Do Until k > 9
k = k + 1
If i + 1 > 3 And j + 1 <= 3 Then
i = 1: j = j + 1
ElseIf i + 1 <= 3 And j + 1 > 3 Then
i = i + 1: j = 1
ElseIf i + 1 > 3 And j + 1 > 3 Then
i = i - 1
ElseIf i + 1 <= 3 And j + 1 <= 3 And a(i + 1, j + 1) <> 0 Then
i = i - 1
Else
i = i + 1: j = j + 1
End If
a(i, j) = k
Loop
For i = 1 To 3
For j = 1 To 3
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim a() As Integer, i As Integer, j As Integer
Dim k As Integer
Dim n As Integer
n = InputBox("幻方阶数:")
ReDim a(n, n)
i = n: j = (n + 1) / 2: a(i, j) = 1: k = 1
Do Until k > n * n
k = k + 1
If i + 1 > n And j + 1 <= n Then
i = 1: j = j + 1
ElseIf i + 1 <= n And j + 1 > n Then
i = i + 1: j = 1
ElseIf i + 1 > n And j + 1 > n Then
i = i - 1
ElseIf i + 1 <= n And j + 1 <= n And a(i + 1, j + 1) <> 0 Then
i = i - 1
Else
i = i + 1: j = j + 1
End If
a(i, j) = k
Loop
For i = 1 To n
For j = 1 To n
Picture1.Print Right(" " & a(i, j), 4);
Next j
Picture1.Print
Next i
End Sub
6-15
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, j As Integer
Dim max As Long, k As Long, f As Integer
Dim n As Integer, m As Integer
Randomize
f = InputBox("输入方阵阶数:")
ReDim a(f, f)
For i = 1 To f
For j = 1 To f
a(i, j) = Int(90 * Rnd) + 10
Text1 = Text1 & Str(a(i, j))
Next j
Text1 = Text1 & vbCrLf
Next i
For i = 1 To f '副对角线方向
m = i
k = 0
For j = 1 To f
k = k + a(j, m)
m = m - 1
If m < 1 Then m = f
Next j
If k > max Then
max = k
n = i
End If
Next i
Picture1.Print "max:"; max
For i = 1 To f
Picture1.Print "a("; i; ","; n; ")="; a(i, n)
n = n - 1
If n < 1 Then n = f
Next i
End Sub
Private Sub Command2_Click()
Text1 = ""
Picture1.Cls
End Sub
Private Sub Command3_Click()
End
End Sub
第七章
1(在过程中声明的局部变量其生命期只到本次过程执行结束就终止了，但是在过程中声明的静态变量其生命期是只有当包含此过程的窗体被终止的时候才终止。
2(有三种形式，传值、传址和利用全局变量向过程传递数据。
传值:给过程传递的是变量的值，不会有副作用。
传址:给过程传递的是变量的地址，有副作用
利用全局变量:有副作用，
3(
Private Sub C1_Click()
Dim i As Integer, j As Integer
i = 8: j = 8
Call aa(i, j)
Print i
Print j
End Sub
Private Sub aa(ByVal m As Integer, ByRef n As Integer)
m = m + 1
n = n + 1
End Sub
4((1) BASIC
(2) 第一行: 6 26;第二行: 2 62;第三行: -2 98
(3) 第一行: 23 ; 第二行: 47
(4) 第一行: 10 8; 第二行:12 -10;第三行:5 2;第四行:12 -10
5(
Private Sub Command1_Click()
Dim ss As Single, hs As Single
ss = Text1
Text2 = tra(ss)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Public Function tra(ByVal C As Single) As Single
Dim F As Single
F = (C * 9) / 5 + 32
tra = F
End Function
6.
Private Sub Command1_Click()
Dim data_one As Integer
data_one = InputBox("请输入要判断的数:", "素数判断")
If Prime(data_one) Then
sushu = Str(data_one) + " 是素数"
else
sushu = Str(data_one) + " 不是素数"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Public Function Prime(ByVal N As Integer) As Boolean
Dim k As Integer
For k = 2 To Sqr(N)
If N Mod k = 0 Then Exit Function
Next k
Prime = True
End Function
7.
Private Sub Command1_Click()
Dim ss As String
Dim i As Integer
For i = 1 To 100
If Prime(i) And Prime(i + 2) Then
ss = ss & Chr(13) & Chr(10) & i & Str(i + 2)
End If
Next i
Text1 = ss
End Sub
Public Function Prime(ByVal N As Integer) As Boolean
Dim k As Integer
For k = 2 To Sqr(N)
If N Mod k = 0 Then Exit Function
Next k
Prime = True
End Function
8.
Option Explicit
Option Base 1
Private Sub Form_Click()
Dim a As Integer, n As Integer
Dim i As Integer
Randomize
Dim aa(20) As Integer
a = Int(100 * Rnd() * 1)
n = 1
Do
For i = 1 To n - 1
If a = aa(i) Then
Exit For
End If
Next i
If i >= n Then
aa(n) = a
n = n + 1
End If
a = Int(100 * Rnd() * 1)
Loop While n <= 20
For i = 1 To 20
Print aa(i);
Next i
End Sub
9.
Dim a(19) As Integer
Private Sub Command1_Click()
a(0) = Int(100 * Rnd) + 1 For i = 1 To 19
a(i) = Int(100 * Rnd) + 1
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
If j = i Then Print a(i);
Next i
End Sub
Private Sub Command2_Click()
Max = a(0) + a(1) + a(2) + a(3)
maxi = 0
For i = 0 To 19
s = a(i) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20)
If s > Max Then
Max = s
maxi = i
End If
Next i
Print Str(a(maxi)) & "+" & Str(a(maxi + 1)) & "+" & Str(a(maxi + 2)) & "+" &
Str(a(maxi + 3)) & "=" & Str(Max) End Sub
10.
Private Sub Command1_Click()
Dim a(5, 5) As Integer
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(100 * Rnd) + 1
Print a(i, j);
Next j
Print
Next i
Call fmax(a)
End Sub
Private Sub fmax(a() As Integer)
Max = a(1, 1)
maxi = 1
maxj = 1
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then
Max = a(i, j)
maxi = i
maxj = j
End If
Next j
Next i
Print "最大元素为:a(" + Str(maxi) + "," + Str(maxj) + ")=" + CStr(Max)
End Sub
11 .
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 6
Text1 = Text1 & Str(fab(i))
Next i
End Sub
Private Function fab(n As Integer) As
Long
If n = 1 Or n = 2 Then
fab = 1
Else
fab = fab(n - 1) + fab(n - 2)
End If
End Function
12 .
Private Sub Command1_Click()
Dim i As Integer
a = InputBox("请输入一个大于2的偶数:")
n = Val(a)
If n = 4 Then
Print "4 = 2 + 2"
Exit Sub
End If
For i = 3 To n - 1 Step 2
If prime(i) And prime(n - i) Then
Print Str(n) + "=" + Str(i) + "+" + Str(n - i)
Exit Sub
End If
Next i
Print "歌德巴赫猜想不对～"
End Sub
Private Function prime(ByVal n As Integer) As Boolean
For i = 2 To n - 1
If n Mod i = 0 Then
prime = False
Exit Function
End If
Next i
prime = True
End Function
13.
Private Sub Command1_Click()
Dim i As Integer
For i = 10 To 9999
Call arm(i)
Next i
End Sub
Private Sub arm(j As Integer)
a = CStr(j)
n = Len(a)
For k = 1 To n
b = Mid(a, k, 1)
s = s + Val(b) ^ n
Next k
If s = j Then
Print j
End If
End Sub
14.
Private Sub Command1_Click()
Dim n As Integer, m As String, b As Integer
n = InputBox("请输入原始数的进制(2-16):")
m = InputBox("请输入原始数:")
Label1.Caption = Str(n) + "进制数"
Text1 = m
b = trans(m, n)
Text2 = Str(b)
End Sub
Private Function trans(m As String, n As Integer) As Integer
Dim k As Integer, t As String, r As Integer, s As Integer
k = Len(m)
For i = 1 To k
t = UCase(Mid(m, i, 1))
If t >= "A" And t <= "F" Then
r = Asc(t) - 55
Else
r = Val(t)
End If
s = s + r * n ^ (k - i)
Next i
trans = s
End Function
15.
Form1:
Dim b(5) As Single
Private Sub Command1_Click()
Dim a As Single
Randomize
For i = 0 To 5
a = (Int(61 * Rnd) + 40) / 10
b(i) = a
Text1(i) = Str(a)
Next i
End Sub
Private Sub Command2_Click()
Min = b(0)
Max = b(0)
Sum = b(0)
For i = 1 To 5
If b(i) > Max Then Max = b(i)
If b(i) < Min Then Min = b(i)
Sum = Sum + b(i)
Next i
Sum = Sum - Max - Min
Text2 = Str(Sum / 4)
End Sub
Private Sub Command3_Click()
For i = 0 To 5
Text1(i) = ""
Next i
Text2 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Form2:
Dim b(5) As Single
Private Sub Command1_Click()
Dim a As Single
Randomize
For i = 0 To 5
a = (Int(61 * Rnd) + 40) / 10
b(i) = a
List1.AddItem Chr(65 + i) + ":" +
Str(a)
Next i
End Sub
Private Sub Command3_Click()
List1.Clear
Text1 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command2_Click()
Min = b(0)
Max = b(0)
Sum = b(0)
For i = 1 To 5
If b(i) > Max Then Max = b(i)
If b(i) < Min Then Min = b(i)
Sum = Sum + b(i)
Next i
Sum = Sum - Max - Min
Text1 = Str(Sum / 4)
End Sub
16.
Private Sub Command1_Click()
Dim i As Integer, k As Integer, m As Integer
Dim s As Single, t As Single
i = 1
Do
t = 1
For k = 1 To i
m = 2 * k
t = t * m
Next k
s = s + 1 / t
If 1 / t < 0.00001 Then Exit Do
i = i + 1
Loop
Print s
End Sub
17.
Private Sub Command1_Click()
Dim n As Integer, t As Single, s As Single, x As Single
n = 2: s = 0
x = InputBox("input x:")
Do
t = (x ^ f(n)) / (f(n - 1) * f(n))
s = s + t
If t < 0.00001 Then Exit Do
n = n + 1
Loop
Print s
End Sub
Private Function f(n As Integer) As Integer
If n = 1 Or n = 2 Then
f = 1
Else
f = f(n - 1) + f(n - 2)
End If
End Function
18.
Private Sub Form_Click()
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 20) + 1
Debug.Print a(i);
Next i
Debug.Print
Call insertion(a)
For i = 1 To 10
Debug.Print a(i);
Next i
Debug.Print
End Sub
Private Sub insertion(sort() As Integer)
Dim mid As Integer, left As Integer, right As Integer
ub = UBound(sort)
If sort(1) > sort(2) Then
temp = sort(1)
sort(1) = sort(2)
sort(2) = temp
End If
For i = 3 To ub
flg = False
flg1 = False
temp = sort(i)
If temp < sort(1) Then
flg = True
mid = 0
End If
left = 1
right = i - 1
Do While left <= right And Not flg
mid = Int((left + right) / 2)
If sort(mid) = temp Then
flg1 = False
Exit Do
ElseIf sort(mid) < temp Then
left = mid + 1
flg1 = False
Else
right = mid - 1
flg1 = True
End If
Loop
If flg1 Then mid = mid - 1
For j = i - 1 To mid + 1 Step -1
sort(j + 1) = sort(j)
Next j
sort(mid + 1) = temp
Next i
End Sub
19.
Option Explicit
Option Base 1
Dim aa(2, 25) As Integer
Dim bb(25) As Integer
Private Sub C1_Click()
Dim v As Integer, y As Integer
Dim s As String
For v = 1 To 25
If XXX(v) = Val(T1) Then
For y = 1 To 25
s = s & Str(bb(y))
Next y
End If
Next v
T2 = s
End Sub
Public Function XXX(ByVal num As Integer) As Integer
Dim i As Integer, j As Integer, m As Integer, n As Integer
Dim ct As Integer, cnt As Integer
Dim flag As Boolean
'给数组赋初值
For i = 1 To 25
aa(2, i) = 1
Next i
For j = 1 To 25
aa(1, j) = j
Next j
'依次取数，记录取数的序列，并返回最后取到的数值
m = 1
ct = 1
Do
If aa(2, num) = 1 Then
bb(m) = aa(1, num)
m = m + 1
If m > 25 Then Exit Do
aa(2, num) = 0
cnt = 0
End If
ct = ct + 1
Do While ct <> cnt
num = num + 1
If num > 25 Then num = num Mod 25
cnt = aa(2, num) + cnt
Loop
Loop
XXX = bb(25)
End Function
20.
Option Explicit
Dim ss As String
Private Sub C1_Click()
Call great_zs
T1 = ss
End Sub
'产生6个不同的数
Public Sub great_zs()
Dim shu_1 As Integer, shu_2 As Integer, shu_3 As Integer, shu_4 As Integer,
shu_5 As Integer, shu_6 As Integer
Dim shu As Single
For shu_1 = 1 To 9
For shu_2 = 1 To 9
For shu_3 = 1 To 9
For shu_4 = 1 To 9
For shu_5 = 1 To 9
For shu_6 = 1 To 9
shu = Val(CStr(shu_1) & CStr(shu_2) &
CStr(shu_3) & CStr(shu_4) & CStr(shu_5) & CStr(shu_6))
If lala(shu) And zhishu(shu) Then ss = ss +
Str(shu) '把满足要求的数记录到变量 ss 中
Next shu_6
Next shu_5
Next shu_4
Next shu_3
Next shu_2
Next shu_1
End Sub
'判断相邻的两个数是否为素数
Public Function zhishu(ByVal zss As Single) As Boolean
Dim i As Integer, jud As Integer
For i = 1 To 5
jud = Val(Mid(CStr(zss), i, 1)) + Val(Mid(CStr(zss), i + 1, 1))
If Not Prime(jud) Then Exit Function
Next i
If Not Prime(Val(Mid(CStr(zss), 6, 1)) + Val(Mid(CStr(zss), 1, 1))) Then
Exit Function
zhishu = True
End Function
'判断素数
Public Function Prime(ByVal N As Integer) As Boolean
Dim k As Integer
For k = 2 To Sqr(N)
If N Mod k = 0 Then Exit Function
Next k
Prime = True
End Function
'判断数列中的数是否各不相同
Public Function lala(ByVal la As Single) As Boolean
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 6
If Mid(CStr(la), i, 1) = Mid(CStr(la), j,
1) And i <> j Then Exit Function
Next j
Next i
lala = True
End Function
21.
Private Sub Command1_Click()
Dim i As Integer, x As Double, y As Double, z As Double, a As String
a = "574396281"
Dim s As String
For i = 1 To Len(a)
If i = 9 Then
x = Val(CStr(Mid(a, i, 2)) & CStr(Left(a, 1)))
Else
x = Val(Mid(a, i, 2))
End If
'//////////////////////////////////
If i + 2 <= 7 Then
y = Val(CStr(Mid(a, i + 2, 3)))
ElseIf i + 2 <= 9 Then
y = Val(Mid(a, i + 2, 3) & Left(a, 3 - (9 - (i + 2) + 1)))
ElseIf i + 2 > 9 Then
y = Val(Mid(a, (i + 2) - 9, 3))
End If
'/////////////////////////////////////////
If i + 5 <= 6 Then
z = Val(Mid(a, i + 5, 4))
ElseIf i + 5 <= 9 Then
z = Val(Mid(a, i + 5, 4) & Left(a, 5 - (9 - (i + 5) + 2)))
ElseIf i + 5 > 9 Then
z = Val(Mid(a, (i + 5) - 9, 4))
End If
'////////////////////////////////////////////////////////
If x * y = z Then s = s & Str(x) & "*" & Str(y) & "=" & Str(z) + Chr(13)
+ Chr(10)
Next i
Text1 = s
End Sub
第八章
1、参见教材P180
2、参见教材P186
3、
Option Explicit
Option Base 1
Dim a(10) As Integer
Private Sub cmd读文件_Click()
Dim s As String, i As Integer Open "D:\DATA.TXT" For Input As #1
For i = 1 To 10
Input #1, a(i)
s = s & a(i) & " "
Next i
Text1 = s
Close
End Sub
Private Sub Cmd排序_Click()
Dim i As Integer, j As Integer, Temp As Integer
Dim s As String
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
Temp = a(i)
a(i) = a(j)
a(j) = Temp
End If
Next j
Next i
For i = 1 To 10
s = s & a(i) & " "
Next i
Text2 = s
End Sub
Private Sub Cmd写文件_Click()
Dim i As Integer
Open "D:\DATA1.TXT" For Output As #2
For i = 1 To 10
Write #2, a(i);
Next i
Close
End Sub
Private Sub Cmd退出_Click()
End
End Sub
第九章
1、参见教材P202
2、参见教材P204
3、参见教材P205
4、参见教材P205-206
5、参见教材P207-208
6、参见教材P208-209
7、略
8、下划线为修改后代码
Option Explicit
Option Base 1
Private Sub Cmd1_Click()
Dim a(10) As Integer, I As Integer, J As Integer
Dim b(10) As Integer, K As Integer
For I = 1 To 10
a(I) = Int(Rnd * 100) + 1
Picture1.Print a(I);
Next I
Picture1.Print
J = 1: K = 10 '原 K = 5
For I = 1 To 10
If a(I) Mod 2 = 1 Then '原a(I) Mod 2 = 0
b(J) = a(I)
J = J + 1
Else
b(K) = a(I)
K = K - 1 '原 K = K + 1
End If
Next I
For I = 1 To 10
Picture2.Print b(I);
Next I
Picture2.Print
End Sub
9、(1)(2)正确，(3)错误,下划线为修改后代码
Private Function prime(n As Integer) As Boolean
Dim I As Integer
prime = False
For I = 2 To Sqr(n)
If n Mod I = 0 Then Exit For
Next I
If I > Sqr(n) Then prime = True
End Function
10、下划线为修改后代码
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, st As Long, fi As Long
Dim i As Long 'Integer改为long
n = Text1
st = 10 ^ (n - 1): fi = 10 ^ n - 1
For i = st To fi
If increase(i) Then List1.AddItem i
Next i
End Sub
Private Function increase(ByVal n As Long) As Boolean '加ByVal
Dim k As Integer, a() As Integer, i As Integer
k = Len(CStr(n))
ReDim a(k)
For i = k To 1 Step -1 '加step-1
a(i) = n Mod 10
n = n \ 10
Next i
For i = 1 To k - 1
If a(i) >= a(i + 1) Then Exit Function '将Exit For 改为 Exit Function
Next i
increase = True
End Function
原文已完。下文为附加文档，如不需要，下载后可以编辑删除，谢谢～
施工组织设计
本施工组织设计是本着“一流的质量、一流的工期、科学管理”来进行编制的。编制时，我公司技术发展部、质检科以及项目部经过精心研究、合理组织、充分利用先进工艺，特制定本施工组织设计。
一、 工程概况:
##西夏建材城生活区27、30住宅楼位于银川市新市区，橡胶厂对面。
本工程由宁夏燕宝房地产开发有限公司开发，银川市规划建筑设计院设计。
本工程耐火等级二级，屋面防水等级三级，地震防烈度为8度，设计使用年限50年。
#2#2本工程建筑面积:27楼3824.75m;30楼3824.75 m。室内地
##坪?0.00以绝对标高1110.5 m为准，总长27楼47.28m;30楼
##47.28 m。总宽27楼14.26m;30楼14.26 m。设计室外地坪至檐口高度18.6 00m，呈长方形布置，东西向，三个单元。
本工程设计屋面为坡屋面防水采用防水涂料。外墙水泥砂浆抹面，外刷浅灰色墙漆。内墙面除卫生间200×300瓷砖，高到顶外，其余均水泥砂桨罩面，刮二遍腻子;楼梯间内墙采用50
1
厚胶粉聚苯颗粒保温。地面除卫生间200×200防滑地砖，楼梯间50厚细石砼1:1水泥砂浆压光外，其余均采用50厚豆石砼毛地面。楼梯间单元门采用楼宇对讲门，卧室门、卫生间门采用木门，进户门采用保温防盗门。本工程窗均采用塑钢单框双玻窗，开启窗均加纱扇。本工程设计为节能型住宅，外墙均贴保温板。
本工程设计为砖混结构，共六层。基础采用C30钢筋砼条形基础，上砌MU30毛石基础，砂浆采用M10水泥砂浆。一、二、三、四层墙体采用M10混合砂浆砌筑MU15多孔砖;五层以上采用M7.5混合砂浆砌筑MU15多孔砖。
本工程结构中使用主要材料:钢材:I级钢，II级钢;砼:基础垫层C10，基础底板、地圈梁、基础构造柱均采用C30，其余均C20。
本工程设计给水管采用PPR塑料管，热熔连接;排水管采用UPVC硬聚氯乙烯管，粘接;给水管道安装除立管及安装IC卡水表的管段明设计外，其余均暗设。
本工程设计采暖为钢制高频焊翅片管散热器。
本工程设计照明电源采用BV,2.5铜芯线，插座电源等采用BV,4铜芯线;除客厅为吸顶灯外，其余均采用座灯。
二、 施工部署及进度
计划
项目进度计划表范例计划下载计划下载计划下载课程教学计划下载
1、工期安排
本工程
合同
劳动合同范本免费下载装修合同范本免费下载租赁合同免费下载房屋买卖合同下载劳务合同范本下载
计划开工日期:2004年8月21日，竣工日期:2005年7月10日，合同工期315天。计划2004年9月15日前
2
完成基础工程，2004年12月30日完成主体结构工程，2005年6月20日完成装修工种，安装工程穿插进行，于2005年7月1日前完成。具体进度计划详见附图,1(施工进度计划)。
2、施工顺序
?基础工程
工程定位线(验线)?挖坑?钎探(验坑)?砂砾垫层的施工?基础砼垫层?刷环保沥青 ?基础放线(预检)?砼条形基础?刷环保沥青 ?毛石基础的砌筑?构造柱砼?地圈梁?地沟?回填工。
?结构工程
结构定位放线(预检)?构造柱钢筋绑扎、定位(隐检)?砖墙砌筑(，50cm线找平、预检)?柱梁、顶板支模(预检)?梁板钢筋绑扎(隐检、开盘申请)?砼浇筑?下一层结构定位放线?重复上述施工工序直至顶。
?内装修工程
门窗框安装?室内墙面抹灰?楼地面?门窗安装、油漆?五金安装、内部清理?通水通电、竣工。
?外装修工程
外装修工程遵循先上后下原则，屋面工程(包括烟道、透气孔、压顶、找平层)结束后，进行大面积装饰，塑钢门窗在装修中逐步插入。
三、 施工准备
3
1、 现场道路
本工程北靠北京西路，南临规划道路，交通较为方便。
场内道路采用级配砂石铺垫，压路机压。
2、机械准备
?设2台搅拌机，2台水泵。
?现场设钢筋切断机1台，调直机1台，电焊机2台，1 台对焊机。
?现场设木工锯，木工刨各1台。
?回填期间设打夯机2台。
?现场设塔吊2台。
3、施工用电
施工用电已由建设单位引入现场;根据工程特点，设总配电箱1个，塔吊、搅抖站、搅拌机、切断机、调直机、对焊机、木工棚、楼层用电、生活区各配置配电箱1个;电源均采用三相五线制;各分支均采用钢管埋地;各种机械均设置接零、接地保护。具体配电箱位置详见总施工平面图。
3、施工用水
施工用水采用深井水自来水，并砌筑一蓄水池进行蓄水。楼层用水采用钢管焊接给水管，每层留一出水口;给水管不置蓄水池内，由潜水泵进行送水。
4、生活用水
生活用水采用自来水。
4
5、劳动力安排
?结构期间:
瓦工40人;钢筋工15人;木工15人;放线工2人;材料1人;机工4人;电工2人;水暖工2人;架子工8人;电焊工2人;壮工20人。
?装修期间
抹灰工60人;木工4人;油工8人;电工6人;水暖工10人。
四、主要施工方法
1、施工测量放线
?施工测量基本要求
##A、西夏建材城生活区17、30住宅楼定位依据:西夏建材城生活区工程总体规划图，北京路、规划道路永久性定位
B、根据工程特点及,建筑工程施工测量规程,DBI01,21,95，4、3、2条，此工程设置精度等级为二级，测角中误差?12，边长相对误差1/15000。
C、根据施工组织设计中进度控制测量工作进度，明确对工程服务，对工程进度负责的工作目的。
?工程定位
A、根据工程特点，平面布置和定位原则，设置一横一纵
##两条主控线即27楼:(A)轴线和(1)轴线;30楼:(A)轴
#线和(1)轴线。根据主轴线设置两条次轴线即27楼:(H)轴
5
#线和(27)轴线;30楼:(H)轴线和(27)轴线。
B、主、次控轴线定位时均布置引桩，引桩采用木桩，后砌一水泥砂浆砖墩;并将轴线标注在四周永久性建筑物或构造物上，施测完成后报建设单位、监理单位确认后另以妥善保护。
C、控轴线沿结构逐层弹在墙上，用以控制楼层定位。
D、水准点:建设单位给定准点，建筑物?0.00相当于绝对标高1110.500m。
?基础测量
A、在开挖前，基坑根据平面布置，轴线控制桩为基准定出基坑长、宽度，作为拉小线的依据;根据结构要求，条基外侧1100mm为砂砾垫层边，考虑放坡，撒上白灰线，进行开挖。
B、在垫层上进行基础定位放线前，以建筑物平面控制线为准，校测建筑物轴线控制桩无误后，再用经纬仪以正倒镜挑直法直接投测各轴线。
C、标高由水准点引测至坑底。
?结构施工测量
A、首层放线验收后，主控轴一引至外墙立面上，作为以上务层主轴线竖身高以测的基准。
B、施工层放线时，应在结构平面上校投测轴线，闭合后再测设细部尺寸和边线。
C、标高竖向传递设置3个标高点，以其平均点引测水平线折平时，尽量将水准仪安置在测点范围内中心位置，进行测
6
设。
2、基坑开挖
本工种设计地基换工，夯填砂砾垫层1100mm;根据此特点，采用机械大开挖，留200mm厚进行挖工、铲平。
开挖时，根据现场实际土质，按规范要求1:0.33放坡，反铲挖掘机挖土。开挖出的土，根据现场实际情况，尽量留足需用的好土，多余土方挖出，避免二次搬运。
人工开挖时，由技术员抄平好水平控制小木桩，用方铲铲平。
挖掘机挖土应该从上而下施工，禁止采用挖空底脚的操作方法。机械挖土,先发出信号，挖土的时候，挖掘机操作范围内，不许进行其他工作，装土的时候，任何人都不能停留在装土车上。
3、砌筑工程
?材料
砖:MU15多孔砖，毛石基础采用MU30毛石。
砂浆:?0.00以下采用M10水泥砂浆，一、二、三、四层采用M10混合砂浆，五层以上采用M7.5混合砂浆。
?砌筑要求
A、开工前由工长对所管辖班组下发技术交底。
B、砌筑前应提前浇水湿润砖块，水率保持在10,,15,。
C、砌筑采用满铺满挤“三一砌筑法“，要求灰浆饱满，
7
灰缝8,12mm。
D、外墙转角处应同时砌筑，内外墙交接处必须留斜槎，槎子长度不小于墙体高度的2/3，槎子必须平直、通顺。
E、隔墙与墙不同时砌筑又不留成斜槎时可于墙中引出阳槎或在墙的灰缝中预埋拉结筋，每道不少于2根。
F、接槎时必须将表面清理干净，浇水湿润，填实砂浆，保持灰缝平直。
G、砖墙按图纸要求每50mm设置2φ6钢筋与构造柱拉结，具体要求见结构总说明。
H、施工时需留置临时洞口，其侧边离交接处的墙面不少于500mm，顶部设边梁。
4、钢筋工程
?凡进场钢筋须具备材质证明，原材料须取样试验，经复试合格后方可使用。
?钢筋绑扎前应仔细对照图纸进行翻样，根据翻样配料，施工前由工长对所管辖班组下发技术交底，准备施工工具，做好施工的准备工作。
?板中受力钢筋搭接，I级钢30d，II级钢40d，搭接位置:上部钢筋在跨中1/3范围内，下部钢筋在支座1/3范围内。
?钢筋保护层:基础40mm，柱、梁30mm，板20mm。保护层采用50mm×50mm的水泥砂浆块。板上部钢筋用马凳按梅花状支起。
8
?所有钢筋绑扎，须填写隐检记录，质评资料及目检记录，验收合格后方可进行下道工序。
5、砼工程
?水泥进场后须做复试，经复试合格后由试验室下达配合比。施工中严格掌握各种材料的用量，并在搅拌机前进行标识，注明每立方米、每盘用量。同时搅拌时，须车车进磅，做好记录。
? 浇筑前，对模板内杂物及油污、泥土清理干净。
?投料顺序:石子?水泥?砂子。
?本工程均采用插入式振捣器，一次浇筑厚度不宜超过振捣器作用部分长度的1.25倍，捣实砼的移动间距不宜大于振捣器作用半径的1.5倍。
?砼浇筑后1昼夜浇水养护，养护期不少于7d，砼强度未达到1.2MP之前不得上人作业。 a
6、模板工程
?本工程模板采用钢木混合模板。模板支搭的标高、截面尺寸、平整度、垂直度应达到质量验收标准，以满足其钢度，稳定性要求。
?模板支撑应牢固可靠，安装进程中须有防倾覆的临时固定措施。
?本工程选用851脱模剂，每拆除一次模板经清理后涂刷脱模剂，再重新组装，以保证砼的外观质量。
9
6、架子工程
?本工程采用双排架子防护，外设立杆距墙2m，里皮距墙50cm，立杆间距1.5m，顺水间距1.2m，间距不大于1m。
?架子底部夯实，垫木板，绑扫地杆。
?为加强架子的稳定性，每七根立杆间设十字盖，斜杆与
。o地面夹角60
?为防止脚平架外倾，与结构采用钢性拉接，拉接点间距附和“垂四平六“的原则。
?外防护架用闭目式安全网进行封闭，两平网塔接和网下口必须绑孔紧密。
?结构架子高出作业层1m，每步架子满铺脚手板，要求严密牢固并严禁探头板。
7、装饰工程
装饰工程施工前，要组织质监部门、建设、设计、施工单位四方参加的主体结构工程核验收，对已完全体分部工程进行全面检查、发现问题及时处理，清除隐患，并做好装饰前材料、机具及技术准备工作。
1、根据预算所需材料数量，提出材料进场日期，在不影响施工用料的原则下，尽量减少施工用地，按照供料计划分期分批组织材料进场。
2、将墙面找方垂直线，清理基层，然后冲筋，按照图纸要求，分层找平垂直，阴阳角度方正，然后拉线作灰饼。底子
10
灰应粘结牢固，并用刮杠刮平，木抹子抹平。
3、罩面应均匀一致，并应在终凝前刮平压光，上三遍灰抹子。
4、油漆、涂料施工:
油漆工程施工时，施工环境应清洁干净，待抹灰、楼地面工程全部完工后方可施工，油漆涂刷前被涂物的表面必须干燥、清洁，刷漆时要多刷多理不流坠，达到薄厚均匀，色调一致，表面光亮。
墙面涂料基层要求现整，对缝隙微小孔洞，要用腻子找平，并用砂纸磨平。
为了使颜色一致，应使用同一配合比的涂料，使用时涂料搅匀，方可涂刷，接槎外留在阴阳角外必须保证涂层均匀一致表面不显刷纹。
8、楼地面工程
楼地面工程只作50厚豆石砼垫层。
做垫层必须先冲筋后做垫层，其平整度要控制在4mm以内，加强养护4,5天后，才能进行上层施工。
10、层面工程
1、屋面保温层及找平层必须符合设计要求，防水采用防水卷材。
2、做水泥砂浆找平层表面应平整压光，屋面与女儿墙交接处抹成R?150mm圆角。
11
3、本工程屋面材料防水，专业性强，为保证质量，我们请专业人员作防水层。
4、原材料在使用前经化验合格后才能使用，不合格材料严禁使用。
11、水、暖、电安装工程
?管道安装应选用合格的产品，并按设计放线，坡度值及坡向应符合图纸和规范要求。
?水、暖安装前做单项试压，完毕后做通、闭水后试验和打压试验，卫生间闭水试验不少于24小时。
?电预埋管路宜沿最近线路敷设，应尽量减少弯曲，用线管的弯曲丝接套丝，折扁裂缝焊接，管口应套丝用堵头堵塞。油漆防腐等均符合图纸各施工规范及质量评定标准。
? 灯具、插座、开关等器具安装，其标高位置应符合设计要求，表面应平直洁净方正。
?灯具、插座、开关等器具必须选用合格产品，不合格产品严禁使用。
?做好各种绝缘接地电阻的测试和系统调整记录，检查配线的组序一定要符合设计要求。
五、预防质量通病之措施
本工程按优质工程进行管理与控制，其优质工程的目标体系与创优质工程的保证措施在本工程施工组织设计中做了详述。本措施不再述。
12
创优质工程除对各分部、分项、工序工程施工中，精心操作，一丝不苟、高标准严要求作业外，关键是防止质量通病。为此，提出防止通病的作业措施如下:
1、砖墙砌体组砌方法:
?、组砌方法:一顺一丁组砌，由于这种方法有较多的丁砖，加强了在墙体厚度方向的连结，砌体的抗压强度要高一些。
?、重视砖砌体水平灰缝的厚度不均与砂浆饱满度:
?、水平灰缝不匀:规范规定砖砌体水平灰缝厚度与竖向灰缝宽度一般为10mm，但不应小于8mm，也不应小于12mm。砂浆的作用:一是铺平砖的砌筑表面，二是将块体砖粘接成一个整体。规范中之所以有厚度和宽度要求，是由于灰缝过薄，使砌体产生不均匀受力，影响砌体随载能力。如果灰缝过厚，由于砂浆抗压强度低于压的抗压可度。
在荷载作用下，会增大砂浆的横向变形，降低砌体的强度。试验研究表明，当水平灰缝为12mm时，砖砌体的抗压强度极限，仅为10mm厚时的70,75,，所以要保证水平灰缝厚度在8,12mm之间。怎样确保水平灰缝的厚度呢,
A、皮数杆上，一定将缝厚度标明、标准。
B、砌砖时，一定要按皮数杆的分层挂线，将小线接紧，跟线铺灰，跟线砌筑。
C、砌浆所用之中砂，一定要过筛，将大于5mm的砂子筛掉。
13
D、要选砖，将过厚的砖剔掉。
E、均匀铺灰，务使铺灰之厚度均匀一致。坚持“一块砖、一铲灰、一揉挤“的“三一“砌砖法“。
?砂浆必须满铺，确保砂浆饱满度。
规范规定:多孔砖砌体，水平灰缝的砂浆饱满度不得低于80,，这是因为，灰缝的饱满度，对砌体的强度影响很大。比如:根据试验研究，当水平灰缝满足80,以上，竖缝饱满度满足60,以上时，砌体强度较不饱满时，要提高2,3倍，怎样保证灰缝饱满度呢,
A、支持使用所述的“三一“砌砖法，即“一块砖、一铲灰、一揉挤“。
B、水平缝用铺浆法(铺浆长度?50cm)砌筑，竖缝用挤浆法砌筑，竖缝还要畏助以加浆法，以使竖向饱满，绝不可用水冲灌浆法。
C、砂浆使用时，如有淅水，须作二次拌合后再用。绝不可加水二次拌合。拌好的砂浆，须于3小时之内使用完毕。
D、不可以干砖砌筑。淋砖时，一般以15,含水率为宜。(约砖块四周浸水15mm左右)。
?注意砌砖时的拉结筋的留置方法:
砖砌体的拉结筋留置方法，按设计要求招待。如设计没有具体规定时，按规范执行。规范规定“拉结筋的数量每12cm厚墙放1根Ф6钢筋，沿墙高每50cm留一组。埋入长度从墙
14
的留槎处算起，每边均,100cm，末端应有弯钩”见图。规范还规定:“构造柱与墙连拉处，宜砌成马牙槎，并沿墙高每50cm设2Ф6拉结钢筋，每边伸入墙内,100cm。
2、预防楼梯砼踏步掉角:
楼梯踏步浇筑砼后，往往因达不到砼强度要求，就因施工需要提前使用，既便有了足够强度，使用不慎，都会掉楞掉角。而且有了掉角，修补十分困难，且不定期牢固。为此宜采用两种方式予以防治:
?踏步楞角上，在浇筑砼时增设防护钢筋。
?踏步拆模时，立即以砂袋将踏步覆盖。(水泥袋或用针织袋装砂)既有利于砼养护，又可保护踏步楞角。
3、楼梯弊端的预防:
防止踏步不等高:
踏步不等高，既不美观，又影响使用。踏步不等高现象，一般发生在最上或最下一步踏步中。产生的原则，一是建筑标高与结构标高不吻合。二是将结构标高误为建筑标高。三是施工粗心，支模有误。为此，浇筑楼梯之间:
?仔细核查楼梯结构图与建筑图中的标高是否吻合。经查核与细致计算无误后，再制作安装模板。
?浇筑砼中，往往由于操作与模板细微变形，也会使踏步有稍话误差。这一个误差，要在水泥砂浆罩面时予以调整。为使罩面有标准。在罩面之前，根据平台标高在楼梯侧面墙上弹
15
出一道踏步踏级的标准斜线。罩面抹灰时，便踏步的外阳角恰恰落在这一条斜线上。这样做，罩面完成后，踏步的级高级宽就一致了。
?如果，施工出现踏步尺寸有较大误差，一定要先行剔凿，并用细石砼或高强度水泥砂浆调整生，再做罩面。
4、堵好脚手眼:
堵脚手眼做得好坏，直接影响装修质量。一是影响墙面抹灰之脱落、开裂也空鼓;二是洒水可沿已开裂的脚手眼进入室内。因此，堵脚手眼的工作万不可忽视、大意:
?将脚手眼孔内的砂浆、灰尘凿掉，清除洁净，洒水湿透眼内孔壁。
?将砖浸水湿透。脚手眼内外同时堵砌，绝不准用干砖堵塞。
?用“一砖、一铲灰、一挤塞“三一砌砖法堵塞，绝不准用碎块碴堵塞。
?砂浆必须饱满(最后的一块砖堵完后，用竹片或扁平钢筋将砂浆塞实，刮平，灰缝要均匀、实心实意，不准不刮浆干塞砖块)。
5、散水砼变形缝的做法:
砼散水的变形缝，常规做法是镶嵌木条，砼浇筑有足够强度后将此木条取出，再灌以沥青砂浆。其缺点是L散水板块相邻高差平整不易保证，木嵌条不可取净，取木条将板块楞角碰
16
坏，不灌沥青砂浆而灌热沥青等。
好的做法是:
?、事先按变形的长短、高度(板块砼厚)的制作厚为20mm的沥青砂浆板条;
?砼板块浇筑前，第一块板的断缝处支设模块，砼有足够强度(1.2Mpa)后，拆除侧模板，将预制沥青砂浆板条贴粘在砼板块侧缝表面，接着浇筑第二块板块砼。集资或跳浇散水板块。(靠墙身处不支模板，直接将沥青砂浆板条粘贴)。
?当板块砼都有了足够强度后，再用加热后的铁铬子，将缝处沥青砂浆板条予以慰汤，使其缝隙深浅一致，交角平顺。
6、卫生间地面漏水的预防:
?现浇砼楼板:沿房间四周墙上翻150mm。
?找平层:施工前，清理面层须洁净，并湿润砼楼板表面，之后刷一层TG胶素水泥浆。
?找坡层用细石砼，并找出排队水坡度，坡向地漏，要平整光洁。上刷冷底油一道。
?防水层:用一布四涂。但沿四周墙上150mm，遇向口时，伸向口外300mm。
?粘结层:用1:20水泥砂浆厚?20mm，沿墙四周上翻150mm并粉光。注意排水坡度与坡向或做C20细石砼。
7、管道根部的渗漏预防:
?、浇筑钢筋砼楼板，用时准确地将位置、尺寸预留楼板
17
管道孔。或埋设预留套管。
?、如为预留孔洞时，要预留万不可事后凿孔或扩孔。如为预留套管进，位置一定要准确。套管要焊上止水钢环。
?、预留孔洞的模盒或套管一棕要与楼板的模板固定防止错位。浇筑砼时派专人看护，以利及时修正。
?、地面的做法按设计要求进行或建议甲方按上述“地面漏水防预“中所提做法处理，但防水层必须沿套管或给排水管上翻150mm并与管子贴粘牢固。
?、如为预留孔洞，等管道安装就位并校正固定后，对预留洞要用与楼板同标号的砂浆(或1:2,1:2.5的水泥砂浆等)填实、捣固，使其与砼结合密实，决不许以碎砖、碎石、杂物随意堵塞。
?、做地面时，切切注意地面排水坡度与坡向。
8、门窗固定用木砖的改进:
木门传统的固定方法是:用钉子将木门框固定在预先埋设在砖内的木砖上。每边固定点不少于2处，间距?1.2m。
这种传统做法的弊端是:木砖容易松动，木砖漏留，木砖大小倒放等，致使门窗的安装质量受到影响。改进方法是以用C20砼制成120mm及240mm的预制块，内预埋木砖。
?、木砖埋入预制块模具前，须以防腐处理。
?、120预制块用于370墙及120墙中。240预制块用于240墙中。
18
9、塑钢窗之固定:
?、塑钢窗与墙体的固定用连接点的设置:
距框角?180mm;
间距?600mm。
眼下存在的问题是:设置连接点不足，甚或漏设，这不仅影响门窗板动不稳，更有甚者会影响日后擦窗人的生命安全。为此，日后一定要按图示之要求设置固定杠用连接点。
?、连接点的钉固方法:
墙体砌筑时，将C20砼预制块，不论砖墙、砼墙、加气块墙、都用射钉将铁板连接条钉在墙上，更有将普通铁钉钉在墙上者，都是极不安全，极不妥的操作方法。
?、固定门窗框用的连接铁板与钉接:
?、连接铁板条:其规格为:(长×宽×厚)?140mm×20mm×1.5mm
射钉规格为:(直径×长)?3.7mm×42mm
或金属胀锚螺栓:(直径×长)?8mm×65mm
施工中，常常见到连接铁板条规格过小(厚不到1mm)，甚至有的用0.5mm的镀锌铁皮剪成条状做连接铁板条用，用直径4mm的螺钉固定连接铁板条，都不是妥的，或直接用铁钉钉更为不妥。
?、连接铁板条与塑钢之连接，用塑钢抽芯铆钉，其直径?5mm，不用5mm螺钉或4mm的自攻螺丝。
19
?、预防塑钢与铁制连接铁板条之间的电偶腐蚀L:
为了防止塑钢和连接铁板条之间的电偶腐蚀，采取下列措施:
?、采用镀锌钢板制作连接铁板条。
?、或将连接用铁板条与塑钢之间用塑料膜隔开。
?、或用密封漆将塑钢与铁板条之间，窗框与墙之间予以封闭以免雨水浸入。
10、给水管道施工
给水管道安装施工比较简单。便是它是承压管，将受较高水压力，如粗心施工，也会带来管道渗漏，为此:
?、管子接口:
?、丝口连接:加工丝扣时要做到:丝扣光滑、端正、不抖丝、不乱扣、有椎度。这五点都要达到。有一点不符合要求，剔出重新加工或切去此端重做。
?、焊接接口:设计要要求坡口焊时，坡口加工的形式须符合设计要求。不需坡口焊时，在焊前用砂布将管口打磨干净，两管对口间要均匀，不可一侧大，一侧小。焊接时，焊缝高度要符合规范要求。
?、安装
?、 安装前弄清图纸，查清管子位置，走向、标高。并做现场查验当实际尺寸与图纸不符合时，提出修正，以免与土建产生矛盾。
20
?、安装时，管子必须找正后再拧紧，不得倒拧，以免损坏丝扣。
?、下料:
管道不料时，尺寸一定要准确，给水管误差?5mm。为确保下料时尺寸准确，对实际安装位置与尺寸进行实测实量，不要按图纸尺寸下料。同时，必须逐根管道都要实测实量。
?、水压试验:
?、把好水压试验关，是控制管道安装质量的关键。
?、压力表必须精确，使用前要进行校验。
?、试验时，第一要查看压力表的压力降，第二要逐房间察看管道的渗漏情况。
?、渗水的接头、管子必须返工。大面积漏水的管段必须换掉或修理，并至不再出现“跑、冒、漏、渗“为止。
11、注意配电箱的产品质量验收:
市场采购的配电箱，不少是不符合国家标准的新产品。除新产品的外观质量外，突出的质量缺点是:
?、不设零线;
?、没有设置零线与保护接地汇流排。
这种缺陷的存在，在接线时，往往将箱上的所有插座的零线串接，保护接地串接。这样，当前面的插座坏了，接在后面的几个插座就会发生零线断线或地线断线，造成搞插座没有电，或在发生漏电事故时，漏电开关不动作，严重者造成人员
21
伤亡。
为此，在采购配电箱时和安装配电箱之前，对其质量进行检查。查看是否分别设置了零线和保护地线汇流排。不合格者，不得使用。
12、插座接线:
?、单相二线插座:原则是“开关永远控制相线“。
?、单相三线插座:面对插座的右孔接相线，左孔接零线。
13、电器的接地
电器安装中，首先考虑的就是用电安全。低压系统地接地保护最优形式就是“三相五线制供电形式“，它非常适用于分散的民用建筑，也适用于施工现场的临时供电。
从电源时入配电箱之后，从接地板的引上线和电源中性点的焦点处，向室内分出保护线PE和进入电路的零线N，在建筑物地也不得混淆，困为，一旦线进入电路，就有电源通过，混淆后，就会引起漏保护器跳闸，影响正常使用。所以在用户配电线路中，插座中的线和线应该统一有颜色的区别。
六、工程进度计划
工期控制:
要工程计划自2004年8月15日开工，2005年7月10日竣工，总工期330天。
为保证工期目标的实现，将施工过程划分为五个阶段。
1、基础施工阶段:
22
自2004年8月15日至9月30日为基础工程施工阶段，本阶段需要完成定位放线、挖工、砂砾垫层、条形基础砼、毛石基础、地圈梁等项目。同时，安排人员按图纸设计要求预制门、窗梁主体结构钢筋制作，模板配制，主体施工做好准备工作。
2、主体施工阶段:
自2004年10月1日至2004年12月30日是主体施工阶段，本阶段要完成墙体砌筑，预制过梁安装，现浇钢筋砼，梁、板的支模、砼等项目。
主体施工阶段组织流水施工，每层主体施工15天。施工期间，水、暖、电施工人员密切配合，作好预留、预埋工作，避免事后在墙体上打洞。
3、装修施工阶段:
自2005年3月1日至2005年6月20日为装修工程施工阶段。
4、安装工程施工阶段:
自基础工程至装修工程，安装工程施工贯穿始终，从时间上虽然与土建同步进行，但本工程设计有给排水、采暖、一般电照处还有电话、有线电视，所以说，是一个水暖、电等较齐全的工程。为此，在劳动力安排上专门有水暖工、电工施工班组与土建施工密切配合，相对独立地完成水暖、电安装工程施工任务。
23
5、工程收尾交工阶段:
本阶段主要做好成品保护及清理等工作。
七、施工平面布置(见附图)
施工平面布置原则是:
1、尽最大可能少占施工用地，对划定的施工用地，作合理安排;
2、塔吊固定后，主要材料及搅拌机械的布置，以其服务业范围为准，紧凑布置。
3、根据工程进度，动态管理施工总平面，该高速时及时调整;
4、交通道路、供水、供电、消防一次到位进行布置，确保道路通畅，供水供电空耗小，供应充足，并确保工地消防安全。
5、建立文明施工现场:材料、配件、工棚、厕所、大宗材料按施工平面图严格要求就位管理，周转材料堆放有序。
八、施工组织措施
本工程采取项目管理法，按目标进行管理与控制，以目标计划来指导管理与控制行动，变以往以行动来实现目标的被动管理方式为以目标指导行动的主动的主动管理方式。将主动管理与被动管理相结合、前馈控制与反馈控制相结合，事先控制与事中、事后控制相结合。
?、确保工程进度、实现合同工期的措施:
24
1、工期目标:(平面流水、主体交叉施工)
控制工期目标330天;
其中:?0.00以下工期目标45天;
主体结构工期目标:90天;
内、外装饰工期目标:80天;
水暖电安装工期目标:90天;
收尾工期目标:10天。
2、确保工期目标的措施:
?、组建职能完善、人员配套、分工明确的施工项目管理组:
项目经理:统筹工期目标，制定工期目标施工措施，决策生产要素供应与优化配置，检查平衡工期目标的实施;
技术负责人:制定工期目标计划实施的技术措施，监督按工艺程序施工，解决施工技术措施实施中工期目标计划之失衡;
解决施工技术措施实施中工期目标计划之实施，协调工种之穿插，布置与平衡生产要素，做好施工计划之安排与统计;
料具供应员:组织材料、构配件、机具之供应，根据生产进度编制料具供应计划;
财务管理员:根据工期安排与施工进度计划落实资金之供应，提出月奖金之收支计划，按期收取工程进度款;
?、按分部分项工程进度制定施工技术措施，制定合理施
25
工流水程序，严格要求操作程序与操作要点之管理，保证工期目标计划之顺利实施;
?、以日调度日平衡为手段，项目经理及有关人员跟踪检查工期目标计划之实施，对工期目标计划做动态管理与监控;
?、采取激励措施，对工期、工程质量、安全生产、文明施工的管理者与操作者有上好成绩者予以奖励。
?、确保工程质量，实现人同质量目标措施:
1、质量目标:
工程质量总目标:合格，按合格目标进行控制与管理。
其中:基础分部工程质量目标:合格;
主体工程质量目标:合格;
装饰工程质量目标:合格;
屋面工程质量目标:合格;
门窗工程质量目标:合格;
地面楼地面工程质量目标:合格;
给排水及供暖工程质量目标:合格;
电气、照明工程质量目标:合格;
2、确保工程质量目标计划实现的措施:
?、项目经理部职能组织人员分工明确、职责分明
项目经理:施工项目的本权负责人，是质量第一负责人。主管质量之制定，监控质量目标计划之实施评价与激励;
技术负责人:主持质量目标实施的技术措施之制定，确保
26
质量目标与技术措施对有关工长、作业班长之技术交底、监督技术措施之执行、作好跟踪检查与操作生产调查、建议项目经理与总工长调整作业布置与调换不良作业人员;
总工长:监督施工技术措施之履行、调整不良作业人员之岗位、作好材料构配件事先检查、监控配合比的严格执行;
有关工长:跟踪检查操作要点之执行、纠正不良作业事件。作好自检、与检、交接质量检查。作好工序、分项工程、分部工程质量进行检查、验收。建议对不良作业人员进行岗位调整;
有关班组长与班组质量检查员:对本班人员进行班前操作交底，进行班后作业自检与奖评，监督本班组人员严格操作要点进行作业，参与互检与交接检查，调换不良作业人员岗位;
?、针对本工程特点与本公司的质量通病，由技术负责人设置质量控制点，并制定操作要点与防治措施，实行重点监控;
?、工程质量是企业生命，工程质量人人有责，工层层确保工程质量的技术交流;
?、对工程质量施行“开路“、“一票否决“、“挂牌作业“。工程质量与进度发生矛盾，以质量为主;工程质量与人员安排发生矛盾，以质量为主调换人员;工程质量与材料发生矛盾，以质量为主调换材料;工程质量与机具发生矛盾，以质量为主调换机具;工程质量与工资挂钩，施行优质优奖;
?、作好材料、构配件的事先检验与控制，把好三关:
把好材料、构配件进场验收关:不合格者不准进场;
27
把好材料复试关:对主材料(钢材、水泥、骨料、砖、装饰材料)作好复验，不合格材料不准使用;
把好材料使用关:正确执行配合比，做好材料计量、正确按规格、品种、数量、强度使用材料，劣材不充好材用，好材不做劣材用，物尽其用;
?、作好反馈工作:事先了解可能出现质量的部位与质量事件以及可能出现质量风险，并制定防范措施，予以事先控制;
?、完善项目经理部的质量保证体系与质量管理的法规体系。
?、确保安全目标实现，保证安全施工的措施:
1、安全目标计划:本项目施工全过程中
?、消灭重伤事故
?、消灭伤亡事故
?、消灭多人事故
?、轻伤事故率:2‰
2、确保安全生产的措施
?、项目经理部有关要员与职能机构，对确保安全生产分工明确，职责分明;
项目经理:是企业法人代表在本项目施工管理听全权委托代理人，是安全生产的第一负责人，主持安全措施之制定，组织安全教育与培训，组织安全设施之搭设，组织现场安全宣传与监控，组织项目安全交底，审核五种人员安全作业资格(电
28
气、起重、焊接、机动驾驶、商空作业)，组织劳动保护用品之购置与保证，监督安全措施之实施。
技术负责人:负安全生产的技术责任，制定安全措施，主持安全教育的培训，监督安全措施之实施，对有关工长、专业工种、班组长作好安全交底，建议调换不重视安全生产的管理人员与作业人员。
总工长:对有关工长、班组长作安全交底，监督安全措施之实施，调换不重视安全作业人员，监督设施搭设，组织施工平面之布置，监督违章作业，组织与监督有关工长与班组长安全程序施工。
有关工长:对本工种作业班组及人员作安全作业交底，监督本工种有关作业规程施工操作，调换不重视安全的作业人员并作专项安全检查交底与检查。
专职安全检查员:监督有关工种按作业规程作业，跟踪检查安全作业与安全设施之搭设防，建议调换违章工作人员，时时事事宣传安全作业的重要性，检查劳动保护用品之发放与使用。
班组长与班组安全检查员:作好班前安全作业交底班后安全作业奖评，随时检查本班组作业人员按安全检查规定作业，建议奖励安全生产有功人员，随时纠正违章作业，调换不重视安全生产作业人员之岗位。
?、按工种特点制定工种安全作业交底与作业规程，并进
29
行两级安全交底(技术人对总工长、工长交底;总工长、工长对班组长及作业人员交底)。
?、编制现场安全措施，并贯彻在施工全过程。
?、作好安全教育及现场安全宣传。安全教育分为新工人入场教育(项目经理及技术负责人负责)分部分项工程开工前教育(总工长、有关工长负责)工序施工的班前教育与班后奖评(有关工长、班组长负责)。现场安全宣传内容为安全标志、现场安全规则、“三宝”、“四口”利用，标志等，安全检查员负责监督实施。
?、 每个月，项目经理组织一次现场安全大检查。由有关工长、总工长、专职安全员参加，随检查随整改随奖评。
?、五大专业工种持证上岗
?、本工程开工前，对施工机械、施工用电等重点编制安全技术措施。
?、现场文明施工措施:
1、现场文明施工指标:
?、按施工平面图布置材料、机械、电路及管路铺设、临时设修建、道路修建、防火消防设施安设、交通要道防护;
?、工完场清、随时清、时时清、班后清、使现场整洁有序。食堂、宿舍清洁卫生;
?、现场文明标志，安全标志，施工责任标志等设齐全完整。
30
2、确保现场文明责任制:
?、明确现场文明施工责任制;
项目经理:负布置;
有关工长:负清场责任、督促、奖评责任;
有关班组长:负责场清、时时清、班后清责任;
总工长:负机械按平面图就位责任、监督施工平面图严格执行责任。
?合理利用现场，科学布置施工总平面图，务使平面图规划合理，物资设备有序。
?、与每个月安全检查之同时，项目经理组织有关人员对文明施工进行检查，随检查、随纠偏、随整改、随奖评。
?、综合考评
按区建议厅96年4月22日颁发的“工程现场综合考评办法”，每月末对本工地现场进行一次综合考评检查，并认真打分，由项目经理组织公司派人参加。
九、工程质量控制标准
?、质量标准
1、分项工程
(1)、合格:
?、保证项目，必须符合相应评定标准的规定
?、检验批项目，抽查点应符合相应质量评定标准的合格规定;
31
?、实测项目，抽查点数中，建筑工程有80,以上，建安工程有80,以上的实测值应基本在到相应质量检验评定标准的规定。
(2)、注意:当分项工程质量不符合相应质量检验评定标准合格的规定时，必须及时处理，并以按以下规定确定其质量等级。
?、返工重作的，可重新评定质量等级;
?、经加固补强或经法定
检测
工程第三方检测合同工程防雷检测合同植筋拉拔检测方案传感器技术课后答案检测机构通用要求培训
单位鉴定能够达到设计要求时，其质量仅能评为合格;
?、经法定检测单位鉴定达不到原设计要求，但经设计单位签认，可满足结构安全和使用功能要求，可不加固补强的，或经加固有补强改变外形尺寸或造成永久性缺陷的，其质量可定为合格。
2、分部工程
?、合格:所含分项工程的质量全部合格;
3、单位工程:
?、合格:?所含分部工程的质量全部合格;?质量保证资料应符合本标准的规定;?观感质量评定得分率达到90,以上。
?质量保证资料应符合本标准的规定;
?观感质量评定得分率达到90,及其以上。
?、工程分解体系:(见附图)
32
?、目标体系:
1、目标保证体系:
工序作业质量目标(保证)保证分项目标(保证)分部质量目标(保证)单位工程质量目标。
2、目标体系:由工序作业质量目标完成，首先制定工序作业质量目标，其次制定分项质量目标，再其次制定分部工程质量目标，最后制定单位工程质量目标，这样就形成了一个单位工程的完整的目标体系。
本住宅楼，其目标体系制定如下:
?、这一单位工程，由下列分部工程组成:地基与基础工程、主体结构工程、装饰工程、层面工程、上下水与采暖、电气六个分部工程。
?、地基与基础分部工程由下列分项组成:挖坑、砂砾垫层、C10砼垫层、条形基础、毛石基础、C30钢筋砼地梁、防潮层、回填土七道分项工程组成。
?、主体结构分部工程，由下列分项组成:砌体、梁、板、C20构造柱，C20圈梁等分项工程。
?、装饰分部工程由下列分项组成:一般室内抹灰、外墙抹灰墙面、刷涂料、楼地面、门窗五道分项工程。
?、屋面分部工程由下列分项组成:屋面找水平、保温层、卷材防水层、瓦屋面四道分项工程组成。
?、上下水与采暖分部工程由下列分项组成:上水管道安
33
装`上水管道附件与卫生器具安装、采暖管道安装、采暖器附件安装四个分项工程。
?电气分部工程由下列分项组成:配管及管内穿线、护套配线、电气照明灯具及配电箱安装、接地装置四道分项工程。
3、质量目标制定:
?、首先确定单位工程的质量目标;工程质量目标，就是单位工程的质量评定等级，这个目标，在工程承包合同中已做了明确界定(是合格);其次，规划六个分部工程的质量目标;要明确哪几个分部工程质量必须达到合格标准，才能确保单位工程达到合格。
?、质量目标制定依据:
?、两个承包合同:工程承包合同中规定的本单位工程的目标;项目经理经营承包合同中明确的质量责任目标;
?、有关法规、标准、定额;
?、有关图纸、招标文件、施工组织设计、资料;
?、生产要素的实际状况与动态;
?、设计要求与有关说明。
?、以地其基础分部工程为例，其质量目标如下:
?、基础分部工程的分项工程质量目标如下图:
?、其他分部工程的分项工程的质量目标，中标后由项目经理部制定。
?、目标控制与管理:
34
1、目标控制:项目中在实现所定目标过程中，按预定目标计划实施(也就是将所定目标做为管理活动的中心)，在实施管理的过程中，由于各因素会对之产生干扰，项目经理部就要通过检查，获取目标实施中信息，将之与原目标计划进行比较，发现偏差，采取相应措施纠正偏差，确保目标计划的正常实施，最终获得预定目标计划之实施。这是一种将经济活动和管理活动的任务，转换为具体目标加以实施和控制的主动管理法，它的精华就是以目标来指导行动。
2、实行目标管理或控制，要有两个条件
其一:有一个明确的目标计划体系，如上所述，首先，将施工项目进行分解，形成一个工程分解体系，其次根据工程项目的分解体系，从单位到有关工序制定目标计划，使这形成一个目标计划体系。这样就便于实行目标控制与管理了。
其二:有一个合格的控制与管理体系。我们的控制与管理主体就是项目经理与其相应在的有关作业层(工程队)，直到作业班组，这就形成了一个控制与管理的工作体系。
?、工程施工体系(生产体系):
?、质量控制与管理体系(组织体系):
?、质量控制与管理法规体系:
3、施工阶段质量控制的全过程:
4、施工阶段质量控制原则:
?、以预防为主，重点做好事前控制，防患于未然，将质
35
量问题消除在萌芽状态;
?、坚持质量标准，严格检查，热情帮助;
?、结合工程特点，结合实际确定控制范围深度与采取的控制方法;
?、尊重事实，尊重科学，以理服人处理质量问题。
5、施工阶段质量控制依据:
?、有关原材料技术标准;
?、有关构配件取样试验标准;
?、有关技术鉴定书;
?、有关操作规程;
?、有关规范及验收标准。
?、施工阶段工程质量管理与控制方法:
1、有关技术文件的编制与审核:
这是对施工阶段工程质量进行全面管理与控制的重要手段。
?、审核进入施工现场各分包单位的技术资质证明;
?、编写开工报告并审核上报;
?、编写施工
方案
气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载
或施工组织设计，对确保工程质量有可靠技术措施，审核后上报;
?、编写分部分项工程及重点部位的技术与安全操作要点，并做了全面交底;
?、原材料、构配件取样送验，并审查试验报告;
36
?、进行图纸会审送签署会审记录;
?、对生产五要素(材料、机械、人员、资金、施工方法与环境)进行事先审查。
2、质量监督与检查:
?、检查内容:
?、开工之前检查:目标是检查是否具备开工条件，开工后能否保证工程质量，能否确保工程连续正常施工。
?、工序作业检查:检查是否按规范、规程与施工方案，交底文件进行作业;
?、工序交接检查:在自检、交接检、专职检的基础上，对主要工序和对工程质量有重大影响的工序，由有关工长、专职检查员、甲方代表、监理工程师做工序交接验收检查;
?、隐蔽工程检查:凡属隐蔽工程，必须由专职检查员，甲方代表或监理工程师会同一起隐蔽检查验收，并经监理工程师或甲方代表签证后，方能掩盖;
?、停工后再复工前的检查:需经监理工程师或甲方代表检查认可后，方能下复工令复工;
?、分项、分部工程，均应经监理工程师或甲方代表检查认可后，方能下复工令复工;
?、随班跟踪检查:对主要工序容易产生质量事故或通病的工序，专职检查员及有关工长，随班跟踪检查。
?、检查方法:
37
?、目测法:看、摸、敲、照
看:根据质量标准，进行外观目测;
摸:手感检查;
敲:以工具敲击，进行音感检查;
照:对暗阴部位以镜子反光检查;
?、实测法:吊、量、套、靠
吊:以托线板、线锤检查垂直度;
量:以测量工具、计量仪表对断在尺寸、轴线、标高、湿度、湿度检查;
套:以方尺套方，辅以塞尺检查;
靠:以直尺辅以塞尺进行检查;
?、试验检查:
必须通过试验，才能对质量进行判断，此时使用此方法。
3、工序的质量控制:
工程项目的施工过程:由一系列相互关联，相互制约的工序所构成。工序的质量是工程项目整体质量的基础。为把工程项目的产品质量管理好，以预防为主，首先就是将工序质量管理好。
工序质量包括两个内容:其一是工序活动条件的质量(即每道工序之投入的五要素:人、材、机、资金、技术)要符合要求;其二是工序活动效果的质量(即每道工序施工完成的工程产品要达到有关质量标准)要符合标准要求。
38
?、工序质量控制的内容:
?、确定工序质量控制流程:
每道工序完成后(工序产品)?施工自检、互检?会同工长检查验收?通知监理工程师或甲方代表进行工序检查，并办理工序质量验收签证?下道工序施工。
?、如上所述，工序活动条件，是指影响工程质量的诸要素(五要素)。找出影响工程质量的重要因素，并加以控制，才可达到工序质量控制之目的。
?、及时检查工序质量，并进行分析判断。
?、设置工序质量控制点:
质量控制点是指:为了保证工序质量而需要控制的重点或部位，或者是薄弱环节，对设之质量控制点可以首先析其可能赞成质量隐患的原因，再针对隐患原因，制定出对策予以预先控制。
?、工序质量控制点的设置:
设置工序质量控制点，并对之进行控制，是对工序质量进行预检的有效措施，要根据工程特点、重要性、复杂程度、准确性、质量标准与要求，全面合理的选定质量控制点，它可能是结构复杂的某一工程项目，也可能是技术要求高，施工难度最大的某一结构构件，也可能是某一分部工程，也可能是影响工序质量的某一个环节。技术操作、材料、机械、施工顺序、技术参数、自然条件、工程环节都可以作为质量
39
控制点来设置，主要视其对质量性之影响的大小及危害程度而定。举例如下:
?、人的行为:避免人的行为失误赞成质量事故。对高空、高温、水下、危险作业，易燃易爆作业，吊装作业，动作复杂而快速运转的机械作业，精密度及技术要求高的作业，都应从人的生理缺陷、心理活动、技术能力、思维方法、思想素质等方面进行考核，反复交底，以免由于行为的错误，导致违章作业，产生质量事故;
?、物的状态:有的工序质量控制中，以物的状态为控制重点如施工精密与施工机具有关;如计量不准与计量仪表或计量设备有关，又如主体义叉或多工种密集作业与作业有关等。
?、材料质量与性能:材料性能与质量直接影响到工程质量。
?、施工顺序:有的工序作业，必须严格控制相互之间的操作施工顺序，如有违背，将出现对质量不利影响。
?、技术间歇:有的工序作业，工序之间的技术间歇，其时间性很强，如不严格控制，就会影响工程质量。如砖墙砌筑完成后，一定要有,10D的技术间歇，以便让墙体充分沉陷、稳定、干燥，然后才能抹灰，如违反，立即抹灰，会形成灰面脱落、空鼓。
?、技术参数:有些技术对数与质量有密切关系，必须
40
严格控制。如:砼配合比，外加剂掺量，夯实土的最佳含水量等。
?、常见之质量通病:如“渗、漏、泛、堵、壳、裂、砂、锈“等通病的部位，要事先研究消除对策，采取预防措施。
?、新工艺、新材料、新技术之应用:都必须事先鉴定试验，或虽有鉴定与试验，但本施工单位首次采用，缺乏经验，也应设为质量控制点，严加控制。
?、质量不够，不合格率较高的产品:这些产品，根据数据统计，表明质量波动较大，不稳定，不合格率较高，应设为质量控制台点，予以控制。
?、施工阶段质量影响因素(五要素)的控制:
(本节只涉及人、材、机、方法、环境五要素，它属于事前控制控制之范畴)
1、人的控制:指直接参与工程实践的组织者、指挥者、操作者。对人进行控制之目的，是避免人的失误，并调动其积极性。其要点如下:
?、人的技术水平:人的技术水平高低，直接影响到工程质量之水平，为此，对技术复杂，难道大，精密要求高的工序操作，要由技术熟练、经验丰富的人来完成。必要时，对其技术水平予以考核。
?、人的生理缺陷:根据工程特点和作业环境，对人的
41
生理缺陷严加控制。如反应迟钝，应变能力差的人，不能操作快速运行，动作复杂的机械设备等。
?、人的心理行为:人的心理行为受社会、经济、环境、人际关系之影响，并要接受组织与管理的约束。因为，其劳动态度、注意力、情绪、责任心有不同地点、不同时间有不同变化，为保证质量万无一失，在关键工序和操作上，要控制思想活动，稳定其情绪。
?、对材料的质量控制:
材料质量工程质量的基础，材料质量不符合要求，不可能干出符合质量标准的工程。所以，对材料质量进行控制，是提高工程质量的重要保证，材料控制要点如下:
?、订货:对主要装饰材料及配件，订货前，需查清生产厂家情况，看样，向甲方提供样品，同意后，才可正式订货。
?、主要设备:订货前，和甲方和监理工程师提出申请，核实是否符合要求;
?、主要材料进场时，须具备出厂合格证或化验单，或乙方复检单。所有材料必须具备检验单并经监理工程师验证后方可正式使用;
?、所有构配件，皆必须具备厂家批号及出厂合格证;
?、凡标志不清或有质量怀疑的材料，一定进行复试;
?、现场配制的材料，先提出试配要求，一定进行复试;
42
?、对材料性能、质量标准、适用范围、对施工要求等必须充分了解，慎重选用。如红色大理石或带色纹(红、暗红、金黄色纹)的大理石，因其易风人剥落，不宜用于外装饰。早强三乙醇不能用作抗冻剂等。
3、施工机械的控制:
施工机械对项目的施工进度及质量有着直接影响，从保证施工质量出发，必须从其选型、主要参数、使用操作三方面进行控制;
?、机械的选型:
选择之原则是:因地制宜，因工程制宜，技术上先进，经济上合理，生产上适用，性能上可靠，使用上安全，操作上方便，维修便利。
?、主要参数:
其性能参数，要能满足施工要求，保证质量要求。如选用超重机械时，必须使其参数能满足超重、超重高度、超重半径的要求。
?、使用与操作:
合理使用，正确操作，是保证施工质量的主要环节。如超重机械要确保四限位装置齐全(行程、高度、高幅、超荷)。
4、施工方案正确与否，直接影响到项目的进度、质量、成本控制施工方案考虑不妥，会拖延工期、影响质量、增加成本。为此，选定施工方案时，必须结合工程实际，从技术、
43
组织、管理、经济等方面进行全面分析，综合考虑。
5、环境因素控制:
项目施工的环境因素有:技术环境(地质、水文、气象等)，管理环境(质量保证体系、质量制度等)，劳动环境(劳动组合、劳动工具、工作面等)。环境因素对质量之影响具有复杂而多变之特点，因之，对主要采取有效措施加以控制，对环境之控制，又与方案及技术措施有关。
?、施工阶段的工程预检:
预检是指，工程未施工前所进行的预先检查。审保证质量，防患于未然的有力措施。
?、建筑物位置、座标、标高:预检座标标准桩、水平桩。
?、基础工程:预检轴线、标高、预留孔及洞、预埋件位置与数量;
?、砌体工程:预检墙身轴线、楼层标高、砂浆配合比划预留孔洞位置及尺寸;
?、钢筋砼工程:预检模板尺寸、轴线、标高、支撑、预埋件、预留孔等;钢筋型号、规格、数量、锚固长度、焊接、绑扎、保护层等;砼配合比、计量手段、外加剂、养护条件等;
?、主要管线工程:预检标高、位置、坡度、管线等;
?、构配件工程:预检安装位置、型号、标高、支承长
44
度等;
?、电气工程:预检变电配位置、高低压进出口方向、电缆沟位置、标高、送电方向。
?、成品保护:
对完成品，进行妥善保护，确保质量、顺利竣工。
?质量与安全组织保证体系
?质量与安全法规体系
?工程质量控制体系
?进度控制系统
45
浙公网安备 33021202002483