private sub list1_ dblclick ( )

a =list1.text

print a+text1.text

end sub

程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的'456'，则输出结果为　 。

a) 1245　　　　 b) 456789　　 c) 789456　　 d) 0

(31)为了暂时关闭计时器，应把该计时器的某个属性设置为false ，这个属性是　　。

a) visible　　 b) timer　　　 c) enabled　　 d) interval

(32)为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为　 。

a）get文件号，记录号，变量名

b）get文件号，变量名，记录号

c）put文件号，变量名，记录号

d）put文件号，记录号，变量名

(33)对窗体编写如下事件过程：

private sub form _mousedown(button as integer, _

shift as integer, x as single y as single)
if button =2 then

print 'aaaaa'

end if

end sub

private sub form _ mouseup(button as integer, _

shift as integer, x as single, y as single)

print 'bbbbb'

end sub

程序运行后，如果单击鼠标右键，则输出结果为　　　　。

a) aaaaa　　　 b) bbbbb　　　 c) aaaaa　　　 d) bbbbb

bbbbb　　　　　　　　　　　　　　　　　　aaaaa

(34)为了在运行时能显示窗体左上角的控制框（系统菜单），必须　　　　。

a) 把窗体的contro1box 属性设置为fale,其他属性任意

b) 把窗体的controlbox 属性设置为true,并且把boder style属性设置为1-5

c) 把窗体的controlbox 属性设置为false,同时把boderstyle属性调协为非0值

d) 把窗体的controlbox 属性设置为true,同时把boderstyle属性设置为0值

(35)对窗体编写如下代码：

option base 1

private sub form_keypress(keyascii as integer)

a = array(237,126,87,48,498)

m1 = a(1)

m2 = 1

if keyascii = 13 then

for i =2 to 5

if a(i)>ml then

m1 =a(j)

m2 =i

end if

next i

end if

print m1

print m2

end sub

程序运行后，按回车键，输出结果为

a) 48　　　 b) 237　　　　 c) 498　　　　 d) 498

4　　　 　1　　　　　 　5　　　　　 　4