实际运行中测得某截面处O2=5.0%,则该截面处的过量空气系数为()。
第1题:
在通用声明中定义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
第2题:
若有如下程序: int sub(int m) { if(m==1||m==0) return 2; else return(sub(m-1)*sub(m-2));} main() { int n; scanf("%d",&n); printf("%d",sub(n)); } 如果从键盘输入4<回车>,则程序运行后的输出结果是( )。
A.8
B.16
C.24
D.32
第3题:
A、1.312
B、1.002
C、1.50
D、1.235
第4题:
设计一个计时程序。该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。单击窗口则退出。请在【 】、【 】和【 】处填入适当的内容,将程序补充完整。
Option Explicit
Dim i
Private Sub Command1_Click()
i=0
Timer1.Interval=1000
TimerEnabled=True
End Sub
Private Sub Command2_Click()
TimerEnabled=False
End Sub
Private Sub Form_Click()
【 】Me
End Sub
Private Sub Form_Load()
TimerEnabled=False
TextText=0
End Sub
Private Sub Timer1_【 】()
i=i+1
TextText=【 】
End Sub
第5题:
有如下一个Sub过程: Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。
A.12
B.24
C.36
D.48
第6题:
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
A.10
B.30
C.40
D.50
第7题:
有如下过程:
Sub SS(ByVal X,ByRef Y,Z)
X=X + 1
Y=Y + 1
Z=Z + 1
End Sub
执行该过程的事件过程如下:
Private Sub Command1_Click()
A = 1
B = 2
C = 3
Call SS(A,B,C) Print A;B;C
End Sub
则该程序的执行结果是【 】。
第8题:
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
第9题:
阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在对应栏内
[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1),两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后,用户按开始按钮,则开始计时,文本框中显示秒数,按停止按钮,则计时停止。单击窗口则退出。
Option Explicit
Dim I
Private Sub Command1 _ Click( )
i=0
Timer1. Interval = 1000
(1)
End Sub
Private Sub Command2_ Click( )
Timer1. Enabled = False
End sub
Private Sub Form. Click(
(2)
End Sub
Private Sub Form. _Load( )
Timer1. Enabled = False
(3)
End Sub
Private Sub Timer1 _ Timer( )
i=i+1
(4)
End Sub
第10题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As Integer Private Sub Commandl Click( )x=10 Call slCall s2MsgBox x End Sub Private Sub sl( )x=x+20 End Sub Private Sub s2( )Dim x As Integer x=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
A.10
B.30
C.40
D.50