16.以下关于焦点的叙述中，错误的是 A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B、当文本框失去焦点时，触发LostFocus事件 C、当文本框的Enabled属性为False时，其Tab顺序不起作用 D、可以用TabIndex属性改变Tab顺序

A       B       C       D

17.执行语句Open"Tel.dat"For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是 A、只能写，不能读 B、只能读，不能写 C、既可以读，也可以写 D、不能读，有能写

A       B       C       D

18.设有以下循环结构 Do 循环体 Loop While<条件> 则以下叙述中错误的是 A、若“条件”是一个为0的常数，则一次也不执行循环体 B、“条件”可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用Exit Do 语句 D、如果“条件”总是为True，则不停地执行循环体

A       B       C       D

19.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 A、7 9 B、34 0 C、9 7 D、死循环

A       B       C       D

20.设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 A、10 B、15 C、25 D、24

A       B       C       D