A正常FEV1/FVC%应大于80%
B支气管哮喘急性发作时FEV1/FVC%减低
CFEV1/FVC%较之MMF能更好地反映小气道功能情况
D弥漫性肺间质纤维化的患者可正常
E为测定呼吸道有无阻力的重要指标
第1题:
A、Public Sub Sum(x ; y)
B、Public Sub Sum(ByVal x, ByVal y)
C、Public Sub Sum(x As Integer,y As Integer)
D、Public Sub Sum(x%, y%)
第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题:
执行下面程序,第一行输出结果是【 】,第二行输出结果是47。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A) End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x<10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
第5题:
以下有关数组定义的语句序列中,错误的是 ______。
A.Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=12345
B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(size) ... End Sub
C.Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ... End Sub
D.Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ... End Sub
第6题:
如下图所示的两个窗体:
要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体,第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中,对这两个命令按钮编写的事件过程正确的是
A.Private Sub Command1 Click() Form2.Show 1 End Sub Private Sub Command2_Click()End End Sub
B.Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub
C.Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub
D.Private Sub Command1_Click()Show 1, Form2 End SubPrivate Sub Command2_Click() End End Sub
第7题:
以下有关数组定义的语句序列中,错误的是
A.Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45
B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入:”) ReDim arr2(size) ┄ End Sub
C.Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub
D.Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
第8题:
(30)下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub
第9题:
下列Sub 过程中描述错误的是______。
A.Sub 过程只能在窗体模块中定义
B.Goto 语句不能用于Sub 过程
C.Sub 过程只能在窗体模块中定义
D.Sub 过程中不能嵌套定义Sub 过程
第10题:
假定有如下的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.