下列程序运行后，变量 x 的值是（） Sub Pro1（ByVal a As Integer) a=a+2 End Sub Sub Main（) Dim x As Integer x=10 Call Pro1（x) End Sub

当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer，y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=fun1(x，y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function

设R是集合A上的一个等价关系,|A₁,A₂,...,A_k|为A的子集族,且对任意x,y∈A满足

可否断定{A₁,A₂,...,A_k}为A的一个划分?若可以,请证明它确为A的划分;若不可以,请补适当条件,以使上述断言成立.

设随机变量X~N(0，1)，确定下列各概率等式中a_i(i=1，...，6)的数值。

(1)P{X≤a₁}=0.9;

(2)P{|X|≤a₂}=0.9;

(3)P{|X|≤a₃}=0.97725;

(4)P{|X|≤a₄}=0.95;

(5)P{|X|≤a₅}=0.99;

(6)P{|X|≤a₆}=0.1。

b₂，...，b_n是任意n个数，显然适合条件L(a_i)=b_i，i=1，2，...，n。这称为拉格朗日(Lagrange)插值公式。

利用上面的公式求：

1)一个次数<4的多项式f(x)，它适合条件：f(2)=3，f(3)=-1，f(4)=0，f(5)=2。

2)一个二次多项式f(x)，它在x=0，2/π，π处与函数sinx有相同的值。

3)一个次数尽可能低的多项式f(x)，使f(0)=1，f(1)=2，f(2)=5，f(3)=10。

以下程序：

PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PublicSubSwap2(xAsInteger,yAsInteger)

DimtAsInteger

t=x:x=y:y=t

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=10:b=20

Swap1a,b

Print"A1=";a,"B1=";b

a=10:b=20

Swap2a,b

Print"A2=";a,"B2=";b

EndSub

当单击命令按钮后，窗体上输出的结果是( )

A.A1=20B1=10A2=10B2=20

B.A1=10B1=20A2=20B2=10

C.A1=10B1=20A2=10B2=10

D.A1=20B1=20A2=20B2=10

设a₁，a₂，...，a_n是n个不同的数，而F(x)=(x-a₁)(x-a₂)...(x-a_n)。证明：

1)

2)任意多项式f(x)用F(x)除所得的余式为

可由溶剂的活度a₁求算溶质的活度a₂,试证明a₁和a₂之间存在下列关系:

式中x₁和x₂分别是溶剂和溶质的物质的量分数.

运行下列程序：

Private Sub Form_Click( )

a$ = 2

b$ = 1

Call abcd(a, b, c$, d$)

Print c; d

End Sub

Private Sub abcd(x$, y$, z$, s$)

z = x + y

s = x - y

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.3 1

B.1 3

C.211

D.显示出错信息

运行下列程序：

Dim b

Private Sub Form_Click( )

a = 1: b = 1

Call fun1(a)

Print "X = "; a; ",Y = "; b

End Sub

Private Sub fun1(a)

b = 2 * a

a = 3 * b

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.X = 1，Y = 1

B.X = 2，Y = 6

C.X = 6，Y = 2

D.X = 6，Y = 1