设计下列混合物的分析方案: (1)HCl+NH4Cl混合液; (2)硼酸+硼砂混合物; (3)HCl+H3PO4混合液。
第1题:
下列程序的执行结果为
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
第2题:
请选出以下程序的输出结果
#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
第3题:
下面运行程序后,单击命令按钮,输出的结果是______。
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
第4题:
下列程序的执行结果是______。
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
第5题:
A、Sub S1(ByVal n!())
B、Sub S1(n!) as Integer
C、 Function S1%(S1%)
D、 Function S1(ByVal n!)
第6题:
现有以下程序代码: 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.以上都不对
第7题:
下列程序,当单击窗体时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
第8题:
执行下列的程序,消息框里显示的结果是______。
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
第9题:
下列程序的功能是求算式: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
第10题:
以下程序用于求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