简述凝汽式气轮机最末级的压比Pz/Pz1与流量的关系?
第1题:
运行以下程序后,输出结果为_____________。 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
第2题:
单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=3:C=4 Print P2(c,b,A)End Sub Private Function P1(x As Integer,y As Integer,z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer,y As Integer,z As Integer) P2=P1(z,x,y) + X End Function
A.21
B.19
C.17
D.34
第3题:
在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1),然后编写如下事件过程: Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。
A.12
B.0
C.5
D.7
第4题:
在窗体中添加一个命令按钮,编写如下程序: Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后,输出结果为
A.Sub:2 6 4 Main:2 6 4
B.Sub:2 6 4 Main:2 6 4
C.Sub:2 6 4 Main:1 2 3
D.Sub:2 6 4 Main:2 2 3
第5题:
下列程序的执行结果是______。
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
第6题:
设程序中有如下数组定义和过程调用语句: Dim a(10)As Integer … Call D(a) 如下过程定义巾,正确的是( )。
A.Private Sub p(a As Integer)
B.Private Sub p(a( )As Integer)
C.Private Sub p(a(10)As Integer)
D.Private Sub p(a(n)As Integer)
第7题:
在窗体中添加一个命令按钮cmd和一个文本框txt,然后编写如下事件过程:
Private Sub cmd_click( )
Dim x As Integer, y As Integer, z As Integer
x=5
y=7
z=0
Me! Txt=""
Call p(x,y,z)
Me! txt=z
End Sub
Sub p(a As Integer, b As Integer, e As Integer)
c=a+b
End Sub
单击按钮,文本框显示的内容是【 】。
第8题:
下面程序: Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A.0
B.12
C.Str(z)
D.显示错误信息
第9题:
下面程序:
Private Sub Form_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As integer)
c=a+b
End Sub
运行后的输出结果为
A.0
B.12
C.Str(z)
D.显示错误信息
第10题:
设程序中有如下数组定义和过程调用语句:
Dim a(10) as integer
……
Call p(a)
如下过程定义中,正确的是
A)Private Sub p(a as integer)
B)Private Sub p(a() as integer)
C)Private Sub p(a(10) as integer)
D)Private Sub p(a(n) as integer)