矿山救护工考试
处理上山巷道水灾时，指定专人检测CH4、CO、H2S等有毒、有害气体和（）。
题目
处理上山巷道水灾时，指定专人检测CH4、CO、H2S等有毒、有害气体和（）。
相似问题和答案
第1题：
（ 30 ）下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ） ABCDEF
B ） FEDCBA
C ） A
D ） F
第2题：
运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
：A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第3题：
下列过程定义语句中，参数不是对象的定义语句是（ ）。
A．Sub Pro4（x As Form）
B．Sub Pro4（y As Control）
C．Sub Pro4（Form1 As Form,Labell As Control）
D．Sub Pro4（x As Currency）
第4题：
执行以下程序后输出的是。 Private Sub Commandl_Click ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2) End Sub A．CDEFGH B．ABCD C．FG D．AB
第5题：
若有以下变量和函数说明： #include＜iostream.h＞ charCh='*'； void sub(int x，int y,char ch，double*Z) { switch(ch) { case'+':*Z=x+y;break； case'-':*Z=x-y;break： case'*':*Z=x*y;break； case'/':*z=x/y;break： } } 以下合法的函数调用语句是( )。
A．sub(10，20，Ch，y)；
B．sub(1.2+3，2*2，'+'，&Z)；
C．sub(sub(1，2，'+'，&y)，sub(3，4'+'，&x)，'-'，&y)；
D．sub(a，b，&x,ch)；
第6题：
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;"，";b;"，";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示( )
A.Sub：3，4，5Sub：4，5，6
B.Sub：2，3，4Sub：2，3，4
C.Sub：3，1，1Sub：4，1，1
D.Sub：1，1，1Sub：1，1，1
第7题：
下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form. Click()
Dim Ch As String * 1
Open "c:\a1.txt" For Input As 10
Do While【 】
Ch= Input(1, 10)
If 【 】Then
Print Ch;
End If
Loop
【 】
End Sub
Not EOF(10) ,Ch＞＝"a"And Ch="z" , Close #10 解析：要将a1.txt中的所有小写字母输出，可采用下述方法：首先读打开该文件，然后从文件中读取一个字符，判断该字符是否为小写字母，若是则输出该字母，重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾时才能读取字符，故【 】处应填“Not EOF(10)”，读取一个字符后，应判断该字符是否尾小写字母，故【 】处应填“Ch＞＝"a" And Ch="z"”，文件读写过后，应关闭文件，故【 】处应填“Close #10”。
第8题：
（ 14 ）执行以下程序后输出的是
Private Sub Command1_Click()
Ch$= ” AABCDEFGH ”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH
B)ABCD
C)FG
D)AB
第9题：
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。
A．abcde
B．efghi
C．EFGHI
D．ABCDE
第10题：
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F