问题 单项选择题

设有如下通用过程:Public Function Fun(xStr As String)As StringDim tStr As String,strL As IntegerstrL=Len(xStr)Do While i<=strL/2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1Loop在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:Private Sub Command1_Click()Dim S1 As StringTextl.Text=UCase(Fun(S1))程序运行后,单击命令按钮,则Textl中显示的是【 】

A.ABCDEF

B.abcdef

C.AFBECD

D.DEFABC

答案

参考答案:C

解析:Function过程也叫函数过程,一般用于调用后不仅要执行一组代码完成相应操作,还需返回一个有用值的情况。Function函数的参数有两种传递方式:按值传递(Byval)和按址传递(Byref),默认为按址传递。调用Function函数常放在在赋值符右端。D0 While为当型循环,在本题程序中它的作用是:依次从字符串变量xstrr的首尾分别向字符串中间取出一个字符,然后组成一个新字符串。循环过程为: 当i=1时,tstr="af"; 当i=2时,tstr="afbe"; 当i=3时,=tstr="afbecd"; 转换为大写后,在文本框中显示为"AFBECD"

问答题

南方某玻璃企业现有一条2000年建设的日熔500t的浮法玻璃生产线,玻璃熔窑烟囱高60m。辅助工程有面积为(60×80)m2的储煤场,6套煤气发生炉(共用1根50m烟囱),以及氮气和氢气制备站,均布置在厂区西侧。煤气发生炉水封水100t/d排入厂区内的天然水塘,经自然净化后外排,排放水质监测结果为COD300mg/L、挥发酚500mg/L、氰化物10mg/L、石油类100mg/L。拟对现有生产线进行技术改造:燃料由煤制气改为液化石油气,配套建设3个60t的储气罐(临近量为50t);为改变玻璃的光学性能,提高产品节能性能,配套建设离线镀膜生产车间,即在玻璃表面涂镀一层镉、镍金属薄膜,镀膜前在镀膜车间先对玻璃基板进行清洗,清洗废水产生量150t/d,镀膜过程中溅射到玻璃基板外的膜材,用清水冲洗进入废水处理站处理后达标外排,车间镀膜废气经袋式除尘器收尘后通过45m高的烟囱外排。技改后该厂的玻璃产能没有变化,产品由原来的优质浮法玻璃改为Low-E镀膜玻璃,熔窑废气二氧化硫、二氧化氮的最大落地浓度分别为0.025mg/m3和0.022mg/m3,对应的D10%分别为5km和6km。该企业以西80m有邻近的梅花鹿养殖场,现状监测其等效声级值为51dB(A),6套煤气发生炉对其等效声级贡献值为48dB(A),其他工程部分对其等效声级贡献值为48dB(A),新建工程对其等效声级贡献值为35dB(A)。
[问题]

从环境保护的角度,指出环评中应明确的主要“以新带老”内容;列出该项目主要污染因子“三本账”格式表。

填空题