问题 问答题

在考生文件夹下有一个工程文件stj4.vbp,相应的窗体文件为stj4.frm,其功能是通过调用过程FindMax求数组的最大值,请装入该文件,程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求得数组的最大值,并在窗体上显示出来(如下图所示)。这个程序不完整,请把它补充完整,并能正确运行。

试题源程序:

1 Option Base 1

2 Private Function FindNax(a( )As Integer)

3 Dim Start As Integer

4 Dim Finish As Integer,i As Integer

5 ’Start=(a)

6 ’Finish=(a)

7 ’Max=(Start)

8 For i=Start To Flnlsh

9 ’If a(i)Nax Then Nax=

10 Next i

11 FindMax=Nax

12 End Function

13 Private Sub Command1_Click( )

14 Dim arr1

15 Dim art2(4)As Integer

16 arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))

17 For i=1 To 4

18 arr2(i)=CInt()

19 Next i

20 ’M=FindUax()

21 Print"最大值是:";M

22 End Sub

答案

参考答案:

(1)启动VB程序,打开考生文件夹下的工程文件stj4.vbp。

(2)双击窗体中的任何位置,进入代码编辑窗口,完善程序如下:

1 private Function FindMin(a( )As Integer)

2 Dim Start As Integer

3 Dim Finish As Integer,i AsInteger

4 Start=LBound(a)

5 Finish=UBound(a)

6 Min=a(Start)

7 For i=Start To Finish

8 If a(i)<Min Then Min=a(i)

9 Next i

10 FindMin=Min

11 End Function

12 Private Sub Command1_Click( )

13 Dim art1

14 Dim art2(4)As Integer

15 arr1=Array(Val(Text1.Text),Val(Text2.Text),

Val(Text3.Text),Val(Text4.Text))

16 For i=1 To 4

17 art2(i)=CInt(arr1(i))

18 Next i

19 M=FindMin(art2( ))

20 Print "最大值是:";M

21 End Sub

(3)单击启动键运行成功。

(4)按考试要求将文件保存在考生文件夹下。

解析:

过程FindMin求数组的最小值。将数组的第一个值设为最小值Min,其后的值依次与之比较,若小,则将其赋给Min,最终得到的就是最小值。所以有Start=LBound(a),Finish=UBound(a)和Min=a(Start)

2.命令按钮的click事件中对输入的四个数据求最小值,大小比较运算是基于数值的,文本框中数值类型为字符串,所以首先采用Val( )函数进行数据类型转换,然后调用求最小值的FindMin过程得到最小值,并将它输出。

填空题
填空题

汽车尾气中的NOx是大气污染物之一,科学家们在尝试用更科学的方法将NOx转化成无毒物质,从而减少汽车尾气污染。

(1)压缩天然气(CNG)汽车的优点之一是利用催化技术能够将NOx转变成无毒的CO2和N2

①CH4(g)+4NO2(g) 4NO(g)+CO2(g)+2H2O(g)  △H1<0

②CH4(g)+4NO(g)2N2(g)+CO2(g)+2H2O(g)    △H2<0

③CH4(g) +2NO2(g)N2(g) +CO2(g) +2H2O(g) △H3         。(用△H1和△H2表示)

(2)在恒压下,将CH4(g)和NO2(g)置于密闭容器中发生化学反应③,在不同温度、不同投料比时,NO2的平衡转化率见下表:

投料比[n(NO2) / n(CH4)]400 K500 K600 K
160%43%28%
245%33%20%
 

①写出该反应平衡常数的表达式K=         

②若温度不变,提高[n(NO2) / n(CH4)]投料比,则K将         。(填“增大”、“减小”或“不变”。)

③400 K时,将投料比为1的NO2和CH4的混合气体共0.04 mol,充入一装有催化剂的容器中,充分反应后,平衡时NO2的体积分数        

(3)连续自动监测氮氧化物(NOx)的仪器动态库仑仪的工作原理示意图如图1

图1                                    图2

①NiO电极上NO发生的电极反应式:                                

②收集某汽车尾气经测量NOx的含量为1.12%(体积分数),若用甲烷将其完全转化为无害气体,处理1×104L(标准状况下)该尾气需要甲烷30g,则尾气中V(NO)︰V(NO2)=   

(4)在容积相同的两个密闭容器内 (装有等量的某种催化剂) 先各通入等量的CH4,然后再分别充入等量的NO和NO2。在不同温度下,同时分别发生②③两个反应:并在t秒时测定其中NOx转化率,绘得图象如图2所示:

①从图中可以得出的结论是

结论一:相同温度下NO转化效率比NO2的低

结论二:在250℃-450℃时,NOx转化率随温度升高而增大,450℃-600℃时NOx转化率随温度升高而减小

结论二的原因是                                                    

②在上述NO2和CH4反应中,提高NO2转化率的措施有_________。(填编号)

A.改用高效催化剂     B.降低温度     C.分离出H2O(g)       D.增大压强

E.增加原催化剂的表面积   F.减小投料比[n(NO2) / n(CH4)]