有一种白色固体，可能是KI、CaI2、KIO3、BaCl2中的一种或两种的混合物，试根据下述实验判别白色固体的组成。 （1）将白色固体溶于水得到无色溶液； （2）向此溶液加入少量的稀H2SO4后，溶液变黄并有白色沉淀，遇淀粉立即变蓝； （3）向蓝色溶液加入NaOH到碱性后，蓝色消失而白色并未消失。

下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }

A．6

B．7

C．8

D．9

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

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;

}

下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

Private Sub Command2_Click()

Dim i, j, k,temp, arr(11) As lnteger

Dim result As String

For k=1 To 10

arr(k) =Val (InputBox( "请输入第" & k & "个数："，"数据输入窗口"))

Next k

i=1

j = 10

Do

temp=arr(i)

arr(i)=arr(j)

arr(j)=temp

i=i+1

j=【12】

Loop While【13】

result =""

For k=1 To 10

result=result & arr(k) & Chr(13)

NeXt k

MsgBox result

End Sub

下面程序的输出结果是。 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

若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。

A．40

B．32

C．16

D．编译出错

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Sub Command1_Click() Static b As Integer b=b+k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是( )。

A．17 31

B．15 31

C．17 16

D．2 1

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

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

在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3

为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。

Private Sub Form_Click( )

Dim k As Integer ,n As Integer ,m As Integer

n=10:m=1:k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。

A．7 11

B．5 11

C．76

D．2 1

当发生Form_Click事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub

A．7 75 66 60 7 80 126 60

B．7 75 66 60 7 75 126 60

C．7 75 66 60 7 80 66 60

D．7 75 66 60 7 75 66 60