男性，60岁。腹部挤压伤后48小时发生急性弥漫性腹膜炎，急症手术发现结肠穿孔，行穿孔

产品质量鉴定报告完成交付后，产品质量鉴定组织应向（）备案。

A．国家质检总局

B．省级以上质量技术监督部门

C．本级质量技术监督部门

D．上一级质量技术监督部门

阅读下面语段，按要求回答问题：

现代心理学研究认为，当一个人感到烦恼、苦闷、焦虑的时候，他身体的血压和氧化作用应会降低，而当他心情愉快时整个新陈代谢就会改善。

根据这段文字我们知道：

A 人们可以能过调节心情来调 节血压 B 心情好坏与人的身体健康存在密切关系

C 血压和氧化作用降低说明该人心情不好 D 只要心情愉快就可以改善整个新陈代谢

蕃茄酱：西红柿

A．锡山：无锡

B．亚洲．非洲

C．果酱：水果

D．金丹：不丹

试题七（15 分，每空3 分）阅读以下说明及Visual Basic 程序代码，将应填入（n）处的字句写在答题纸的对应栏内。[说明]某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下：

用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drive1，目录列表框名为Dir1，文件列表框名为File1，存放数据的文本文件名为D:\test\vb7\data.txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为text1。[Visual Basic 代码]Private Sub Drive1_Change()Dir1.Path = (1) ’ 用户选择的驱动器反映到目录列表框中End SubPrivate Sub Dir1_Change()File1.Path = (2) ’ 用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim （3） As New FileSystemObject, （4） As TextStream’ 创建自己的文件系统对象，说明自己的文本流对象If Right(Dir1.Path, 1) = "\" ThenSet myTextFile = fso.OpenTextFile(Dir1.Path + File1.FileName)ElseSet myTextFile = fso.OpenTextFile(Dir1.Path + "\" + File1.FileName)End IfS = 0Dod = Val(myTextFile.ReadRow)S = S + dLoop While （5）Text1.Text = Str$(S)End Sub

初步设计阶段投资控制的目标应不超过（）。

A.投资估算

B.设计总概算

C.修正总概算

D.施工图预算