设计下列混合物的分析方案： （1）HCl+NH4Cl混合液； （2）硼酸+硼砂混合物； （3）HCl+H3PO4混合液。

下列程序的执行结果为

Private Sub Command1_Click（）

Dim s1 As String, s2 As String

s1= "abcd"

Call Transfer（s1, s2）

Print s2

End Sub

Private Sub Transfer （ByVal xstr As String, ystr As String）

Dim tempstr As String

i=Len（xstr）

Do While i >=1

tempstr=tempstr + Mid（xstr, i, 1）

i=i - 1

Loop

ystr=te mpstr

End Sub（ ）。

A．dcba

B．abdc

C．abcd

D．dabc

请选出以下程序的输出结果

#include<stdio.h>

main()

{ int a[]={1,2,3,4},i;

int x=0;

for(i=0;i<4;i++)

{ sub(a,x);printf("%d",x);}

printf("\n");}

sub(s,y)

int *s,y;

{ static int t=3;

y=s[t];t--; }

A．1 2 3 4

B．4 3 2 1

C．0 0 0 0

D．4 4 4 4

下面运行程序后，单击命令按钮，输出的结果是______。

Private Sub Commandl_clck()

Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2

Fori=1 To 4

a(i)=i

Nexti

For i=3 To 6

b(i)=i

Nexti

s1=YAS(a)

S2=YAS(b)

Printt"s1="；S1"S2="；s2

End Sub

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

PrivateFunctionP(NASInteger)

Fori=1 To N

SUM=SUM+i

Nexti

P=SUM

End Function

Privte Sub Commandl_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S

End Sub

A、Sub S1(ByVal n!())

B、Sub S1(n!) as Integer

C、 Function S1%(S1%)

D、 Function S1(ByVal n!)

现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。

A．4

B．0

C．2

D．以上都不对

下列程序，当单击窗体时s的值是( )

Private Sub Form_Click()

Dim s as boolean

a = 2: b = 3: c = 4: d = 5

s = a >b And 2 * a >c Or c<= d

Print s

End Sub

A.TRUE

B.FALSE

C.-1

D.1

执行下列的程序，消息框里显示的结果是______。

Pfivate Sub Form_Click()

Dim Str As String

Str＝""

S="Access"

For i＝Len(S) To 1 Step-1

Str＝Str&Mid(S.i,1)

Next I

MsgBox Str

End Sub

下列程序的功能是求算式：1+1／2!+1／3!+1／4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。

Private Sub Commandl_Click ( )

Dim i as integer,s as single，a as single

a=1：s=0

For i=1 To 10

a=_____

s=s+a

Next i

Debug．Print“1+1／2!+1／3!+……=”；S

End Sub

以下程序用于求S=1+3+32+33+…+310的值。

Private Sub Commandl_Click()

S=1

T=1

ForI=1 To 10

T=______

S=S+T

NextI

Print"S="；S

End Sub