计算题：含有CaCO₃90%的石灰石100

A.pH上升

B.PaCO/sub2/supsubno上升

C.PaO/sub2/supsubno上升

D.HCO/sub3/supsubno/sup-/supsubno降低

E.HCO/sub3/supsubno/sup-/supsubno升高

下列程序的运行结果是______。

Sub abcd(ByValn As Integer)

n=n+5

End Sub

Private Sub Form_Click()

nx%=3

Callabcd(nx%)

Printnx%

End Sub

在通用声明中定义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

标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var pub（ ） x=10：y=20 End Sub 在窗体上有1个命令按钮，并有如事件过程： Private Sub Command1 Click（ ） Dim x As Integer Call var pub x=x+100 y=y+100 Print x；y End Sub 运行程序后单击命令按钮，窗体上显示的是（ ）。

A.100 100

B.100 120

C.110 100

D.110 120

以下有关数组定义的语句序列中，错误的是

A．Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub

C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub

含有CaCO390%的石灰石1000吨煅烧制取生石灰，已知石灰石的分解率为94.5%，问可制取生石灰多少吨(已知CaCO3的相对分子量为100.09，CaO的相对分子量为56.08)?

下列程序的输出结果是______。 #include sub1(char a,char b) {char c; c=a;a=b;b=c;} sub2(char* a,char b) {char c; c=*a;*a=b;b=c;} sub3(char* a,char*b) {char c; c=*a;*a=*b;*b=c;} { char a,b; a='A' ;b='B'; sub3 (&a, &b) ;putchar (a) ;putchar (b); a='A';b='B';sub2(&a,b);putchar(a);prtchar(b); a='A';b='B';sub1(a,b);putchar(a) ;putchar(b); }

A．BABBAB

B．ABBBBA

C．BABABA

D．BAABBA

运行以下程序后，输出结果为_____________。 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

以下有关数组定义的语句序列中，错误的是 ______。

A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45

B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End Sub

C．Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub

D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub

写出程序运行的结果

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;