一工厂炉渣的组成为(WB%)sio2-44.5、CaO-13.8、FeO-36.8、MgO-4.9,试计标该炉渣的酸度和碱度。
第1题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮,则窗体上显示的内容是______。
A.5
B.120
C.153
D.160
第2题:
窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是( )。
A.Private Sub Form1 Click( )
End Sub···
B.Private Sub Form1. Click( )
End Sub···
C.Private Sub Command1 click( )
End Sub···
D.Private Sub Command Click( )
End Sub···
第3题:
有一过程如下:
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,运行结果为【 】。
第4题:
假定有如下的Sub过程:
Sub Sub1(x As Single,y As single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为
A.
B.
C.
D.
第5题:
下列Sub 过程中描述错误的是______。
A.Sub 过程只能在窗体模块中定义
B.Goto 语句不能用于Sub 过程
C.Sub 过程只能在窗体模块中定义
D.Sub 过程中不能嵌套定义Sub 过程
第6题:
下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程
第7题:
窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是
A.Private Sub Forml_Click() … End Sub
B.Private Sub Form_Click() … End Sub
C.Private Sub Commandl_Click() … End Sub
D.Private Sub Command_Click() … End Sub
第8题:
以下叙述中正确的是( )。
A.一个 Sub 过程至少要一个 Exit Sub 语句
B.一个 Sub 过程必须有一个 End Sub 语句
C.可以在 Sub 过程中定义一个 Function 过程,但不能定义 Sub 过程
D.调用一个 Function 过程可以获得多个返回值
第9题:
A、PH7.38,PaO<SUB>2</SUB>50mmHg,PaCO<SUB>2</SUB>40mmHg
B、PH7.30,PaO<SUB>2</SUB>50mmHg,PaCO<SUB>2</SUB>80mmHg
C、PH7.40,PaO<SUB>2</SUB>60mmHg,PaCO<SUB>2</SUB>65mmHg
D、PH7.35,PaO<SUB>2</SUB>80mmHg,PaCO<SUB>2</SUB>20mmHg
E、PH7.25,PaO<SUB>2</SUB>70mmHg,PaCO<SUB>2</SUB>20mmHg
血气分析结果符合代偿性代谢性酸中毒( )
第10题:
设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A.Private Sub Commandl_Click B.Private Sub Commandl_Click Textl.GotFocus Commandl.GotFocus End Sub End Sub C.Private Sub Commandl_Click D.Private Sub Commandl_Click Textl.SetFocus Commandl.SetFocus End Sub End sub