如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是

(1)【◆题库问题◆】：[单选] 如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是
A．Dima(4)AsInteger
B．Dima(5)AsVariant
C．Dima(1To5)AsInteger
D．DimaAsWriant

【◆参考答案◆】：D

【◆答案解析◆】：Array函数只能初始化变体类型变量数组，所以选项D．正确。

(2)【◆题库问题◆】：[单选] 有以下程序：main(){ union{charch[2]；im d；d一0x4321；printf(”％x，％x＼n”，s．ch[O]，s．ch[1])；)S；在16位编译系统上，程序执行后的输出结果是（　　）。
A．21，43
B．43，21
C．43，00
D．21，00

【◆参考答案◆】：A

【◆答案解析◆】：A。【解析】s是一个公用体，d的值分别与ch中的两个元素的值相同，d的高位放在eh[1]中、低位放在ch[O]中，因此输出的结果为21，43。

(3)【◆题库问题◆】：[单选] 目录列表框的Path 属性的作用是（　　）。
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的目录结构
C．显示根目录下的文件名
D．显示该路径下的文件

【◆参考答案◆】：B

【◆答案解析◆】：目录列表框（DirListBox）用来显示当前盘上的所有文件夹。其Path 属性显示当前驱动器或指定驱动器上的目录结构。常用的方法有Change 和Click ，Change在双击一个新的目录或通过代码改变Path 属性的设置时发生；Click 是用鼠标单击时发生。

(4)【◆题库问题◆】：[单选] 设变量a、b、e、d和y都已正确定义并赋值。若有以下if语句：if(a<b)if(c==d) y=0；else y=1：该语句所表示的含义是（　　）。
A．y=0,a<b且c=d
B．y=0，a<b且c=dy=1，a≥b y一1，a≥b且c≠d
C．y=0，a<b且c=d
D．y=0，a<b且c=dy=1，a<b且c≠d y=1，c≠d

【◆参考答案◆】：C

【◆答案解析◆】：C。【解析】语句“if(c=一d)y—o；elsey一1；”是if(a<b)语句的一个子句。所以整个语句表达式的意思是：在a<b的情况下，如果c=b，则y—o，否则y一1；如果a<b，则执行第2个if语句，如果C等于d，那么y—O，如果c不等于d，那么y=1，所以，选项C为正确答案。

(5)【◆题库问题◆】：[单选] 若有以下程序： inta=1,b=2a=a＾b； b=b＾a 则执行以上语句后a和b的值分别是（　　）。
A．a=1，b=2
B．a=3，b=l
C．a=3，b=2
D．a=2，b=l

【◆参考答案◆】：B

【◆答案解析◆】：本题考查按位异或的用法。按位异或运算的规则是：两个运算数的相应二进制位相同，则结果为0，相异则结果为1。b=2的二进制为00000010，a=1的二进制为00000001，a=a＾b一00000011，转化为十进制后为3，b=b＾a=00000010＾00000011=00000001，即1。

(6)【◆题库问题◆】：[单选] 在程序中用WITH MyForm…ENDWITH修改表单对象的属性再显示该表单，其中“…”所书写的正确代码是（　　）。
A．Width=500
B．MyForm．Width=500 ShowMyForm．Show
C．Width=500 ENDWITH
D．ThisForm．Width=500ShowThisForm．Show

【◆参考答案◆】：C

【◆答案解析◆】：C。【解析】在程序中用wITH MyForm．Width=500 ENDWITH修改表单对象的属性，在程序中再显示该表单，直接用．Show就可以了，所以本题应该选择C选项。

(7)【◆题库问题◆】：[单选] 下列选项中不属于面向对象程序设计特征的是( )。
A．继承性
B．多态性
C．类比性
D．封装性

【◆参考答案◆】：C

【◆答案解析◆】：面向对象程序设计的三个主要特征是封装性、继承性和多态性。

(8)【◆题库问题◆】：[单选] 以下程序段完全正确的是( )。

【◆参考答案◆】：C

【◆答案解析◆】：A中P是指针，没有初始化，且取P的地址即类型为指向地址的地址，与输出参数类型不符。B中指针P没有初始化，且P所指变量值不明。D*p是整型变量，&k是整型变量的地址。所以选C。

(9)【◆题库问题◆】：[单选] 有如下事件程序，运行该程序后输出结果是（　　）。 PrivateSub Command33_click()Dim x AsInteger，Y AsIntegerx=1：y=0Do Untily<=25y=y+x*xx=x+1LoopMsgBox”x=＆x＆”，y="&YEnd Sub
A．x=1，y=0
B．x=4，y=25
C．x=5，y=30
D．输出其他结果

【◆参考答案◆】：C

【◆答案解析◆】：简单的循环计算，可以逐次循环计算出结果。

(10)【◆题库问题◆】：[单选] ABC．DBF是…个具有两个备注型字段的数据库文件，使用CTOPY TO PSQ命令进行复制操作，其结果将（　　）。
A．得到～一个新的数据库文件
B．得到一个新的数据库文件和一个新的备注文件
C．得到一个新的数据库文件和两个新的备注文件
D．显示出错误信息，表明不能复制具有备注型字段的数据库文件

【◆参考答案◆】：B

【◆答案解析◆】：B。【解析】COPY TO<文件名><范围>(FIELDS<字段名清单>(FOR<条件>)(SDF／DELIMIT一ED)<分隔符>，功能：COPY是为了防止丢失数据而设立的备份语句，它将一个数据表的部分或全部内容复制到指定表中，若指定表已存在，就将其重写；也可以传送到文本文件中。本题中ABC．DBF是一个具有两个备注型字段的数据库文件，使用COPY TO PSQ命令进行复制操作，其结果将得到一个新的数据库文件和一个新的备注文件。