在相同温度下，CO2和H2S在甲醇中的溶解度（）。A、随压力的降低而增大B、随压力的提高而增大C、不随压力而变化D、无法判断

在窗体中添加一个名称为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

若有以下变量和函数说明： #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)；

假定一个工程由一个窗体文件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

编写如下事件过程： 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

PaO<SUB>2</SUB>↓，PaCO<SUB>2</SUB>↑提示（ ）

有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B)End Sub Sub S(x As Single，y As Single) t=x x=t\y y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2 2

D．1 2

在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

A．Sub： 2 6 4 Main： 2 6 4

B．Sub： 2 6 4 Main： 2 6 4

C．Sub： 2 6 4 Main： 1 2 3

D．Sub： 2 6 4 Main： 2 2 3

人体内O＜sub＞2＜/sub＞、CO＜sub＞2＜/sub＞进出细胞膜是通过

A.单纯扩散

B.易化扩散

C.主动转运

D.人胞作用

E.出胞作用

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2

A、PH7.38，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>40mmHg

B、PH7.30，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>80mmHg

C、PH7.40，PaO<SUB>2</SUB>60mmHg，PaCO<SUB>2</SUB>65mmHg

D、PH7.35，PaO<SUB>2</SUB>80mmHg，PaCO<SUB>2</SUB>20mmHg

E、PH7.25，PaO<SUB>2</SUB>70mmHg，PaCO<SUB>2</SUB>20mmHg

血气分析结果符合代偿性代谢性酸中毒（ ）

在窗体中添加一个名称为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

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() 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

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Diln S1 As String，S2 As String Private Sub Form. Load（ ） Text1．Text="" Text2．Text="" Text1．Enabled=False Text2．Enabled=False End Sub Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) S2=S2＆Chr(KeyCode) End Sub Pri vate Sub Form. KeyPress(KeyAscii As Integer) S1=S1＆Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Text1．Text=S1 Text2．Text=S2 S1="" S2="" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。

A.abc和ABC

B.空白

C.ABC和abc

D.出错

下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub

A．dcba

B．abdc

C．abcd

D．dabc