H₂S主要是对（）钻井液具有较大的污染。

在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：

Public x as integer

Private Sub Command1_Click( )

x=5

Call s1

Call s2

MsgBox x

End Sub

Private Sub s1( )

x=x+10

End Sub

Private Sub s2( )

Dim x as integer

x=x+10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果是______

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

A、水基

B、油基

C、泡沫

D、油包水

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

A.10

B.30

C.40

D.50

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下： Public X As Integer Public Y As Integer Sub S1（ ） x=1 S2 End Sub Sub S2（ ） y=10 Form1．Show End Sub Model2的代码如下： Sub Main（ ） S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。

A.Form1→Model1→Model2

B.Model1→Model2→Form1

C.Model2→Model1→Form1

D.Model2→Form1→Model1

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub

设字符串s1='ABCDEFG',s2='PQRST',则运算s=CONCAT(SUB(s1，2，LEN(s2))，SUB(s1，LEN(s2，2))后的串值为(65)。

A．'ABCDEFEF'

B．'BCDEFG'

C．'BCPQRST'

D．'BCQR'

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

以下程序的输出结果是( )。

include＜stdio.h＞

main()

fint x=0;

sub(&x,16,2);

printf("%d\n",x);

}

sub(int*a,int n,int k)

{if(k＜=n) sub(a,n/2,2*k);

*a+=k;

}

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet

B．tahreee

C．themee

D．eerthea