由洞外亮度L1到入口段洞口处亮度L2的减少速率受眼睛适应能力的限制。减少（）眼睛将产生不适现象。相反地，减少（），是不经济的，也不符合要求。因而L2/L1应该有一个恰当的比值。1979年PIARC推荐L2/L1为（）A、速率过快；速率过慢；1/15～l/30B、速率过慢；速率过快；1/15～l/30C、速率过快；速率过慢；1/30～l/40D、速率过慢；速率过快；1/30～l/40

阅读下列程序。

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=l to 3

For k=l to 3

If j=k then x(j,k)=l

If j＜＞k then x(j,k)=k

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(x() )

For j=1 to 3

For k=1 to 3

Print x(j,k);

Next k

Next j

End Sub

运行程序时，输出结果为【 】

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

下列程序的输出结果是【 】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub

A.su

B.suroot

C.su-root

D.su-c"root"

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。

A.NUMtBER l00

B.REBMUN

C.REBM UN l00

D.001 REBMUN

单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVM n As Integer，ByVal m As Integer) n=n\l0 m=m\l0 End Sub

A．08

B．50 78

C．450

D．78 50

以下能够正确计算n!的程序是

A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub

C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub

D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub

在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，A)LabeCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=l TO 10

arr(i)=i

Next i

For Each i In arr()

art(i)=arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

若要在子过程Proc l调用后返回两个变量的结果，下列过程定义语句中有效的是( )。

A．Sub Proc1(n,m)

B．Sub Proc1(By Val n ,m)

C．Sub Proc1(n, By Val m)

D．Sub Proc1 (By Val n,By Val m)

以下能够正确计算1+2+3+…+10的程序是

A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub

B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub

C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub

D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub

当双击窗体Form1时，要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程，正确的是

A．Private Sub Form. _ Db1Click( ) Forml．Hide Form2．Show 0 End Sub

B．Private Sub Form. _ Db1Click( ) Form１．Hide Form. 2．Show 1 End Sub

C．Private Sub Form. _ Click( ) Form. l．Hide Form. 2．Show End Sub

D．Private Sub Form. _ Dbl Click( ) Form. l．Enabled=False Form. 2．Enabled=True End Sub