(21) 与list1.text属性值相同的是
a) list1.listcount     
b) list1.list(listcount-1)
c) list1.listindex     
d) list1.list(list.listindex)
正确答案:  d

(22) 当把框架的何属性设置为false时，其标题会变灰，框架中所有的对象均被屏蔽？
a) name       
b) enabled
c) caption      
d) visible
正确答案:  b

(23) 设执行以下程序段时依次输入2，4，6，执行结果为
dim a(4) as integer
dim b(4) as integer
for k=0 to 2
   a(k + 1) =val(inputbox("enter data:") )
   b(3 - k) =a(k + 1)
next k
print b(k)
a) 2        
b) 4
c) 6        
d) 0
正确答案:  a

(24) 编写如下事件过程：
private sub form_mousedown(button as integer, shift as integer, _
                          x as single, y as single)
   if shift＝6 and button＝2 then
      print "pc"
   end if
end sub
程序运行后，为了在窗体上输出"pc"，应执行的操作为
a) 同时按下shift键和鼠标左键 
b) 同时按下ctrl，alt键和鼠标右键
c) 同时按下shift键和鼠标右键  
d) 同时按下ctrl，alt键和鼠标左键
正确答案:  b

(25) 如果在窗体上添加一个通用对话框控件dbt，那么语句"dbt.action=4"的作用是
a) 显示"打开文件" 对话框  
b) 显示"保存文件"对话框
c) 显示"字体"对话框   
d) 显示"打印"对话框
正确答案:  c

(26) 下列说明中，不属于随机文件特点的是
a) 可以随意读取随机文件中任一记录的数据
b) 随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
c) 随机文件的操作是以记录为单位进行的
d) 随机文件的读、写操作语句与顺序文件的读写操作语句一样
正确答案:  d

(27) 执行下面的程序后，输出的结果是
x=1
for j=1 to 4
   x=x - 1: y=0
   for k=1 to 4
      x=x + 1: y=y + 1
   next k
next j
print x; y
a) 1  4       
b) 13  4
c) 12  8       
d) 20  6
正确答案:  b

(28) 有如下程序段，该程序段执行完后，执行循环的次数是
total=0
counter=1
do
   print counter
   total=total + counter
   print total
   counter=counter + 1
   if total > 10 then
      exit do
   end if
loop while counter <=10
a) 5        
b) 10
c) 15       
d) 20
正确答案:  a

(29) 在窗体上画一个命令按钮，然后编写如下事件过程：
private sub command _click()
   s=0
   do
      s=(s + 1)  (s + 2)
      number=number + 1
   loop until s >=30
   print number, s
end sub
程序运行后，输出的结果是
a) 2  3       
b) 3  182
c) 5  12       
d) 10  20
正确答案:  b

(30) 有如下程序：
private sub command1_click()
   a$="a worker is here"
   x=len(a$)
   for i=1 to x - 1
      b$=mid$(a$, i, 3)
      if b$="wor" then s=s + 1
   next
   print s
end sub
单击命令按钮，程序运行结果为
a) 1        
b) 2
c) 3        
d) 5
正确答案:  a

(31) 单击命令按钮时，下列程序的执行结果是
private sub command1_click()
   bt 4
end sub
private sub bt(x as integer)
   x=x * 2 + 1
   if x < 6 then
      call bt(x)
   end if
   x=x * 2
   print x;
end sub
a) 15       
b) 16
c) 17       
d) 18
正确答案:  d

(32) 单击窗体时，下列程序的执行结果是
private sub invert(byval xstr as string, ystr as string)
   dim tempstr as string
   dim i as integer
   i=len(xstr)
   do while i >=1
     tempstr=tempstr + mid(xstr, i, 1)
     i=i - 1
   loop
   ystr=tempstr
end sub
private sub form_click()
   dim s1 as string, s2 as string
   s1="abcdef"
   invert s1, s2
   print s2
end sub
a) abcdef       
b) afBECd
c) fedcba       
d) defabc
正确答案:  c

(33) 在窗体上画一个命令按钮，然后编写下列程序：
private sub command1_click()
   dim a as single, b as single
   a=6: b=2
   rc a, b
   print a, b
end sub
sub rc(x as single, y as single)
   i=x
   x=i / y
   y=i mod y
end sub
a) 4  3       
b) 1  1
c) 3  0       
d) 2  6
正确答案:  c

(34) 有如下事件过程：
private sub command1_click()
   dim m as integer, n as integer
   m=2: n=1
   print "m="; m; "n="; n
   call tod(m, n)
   print "m="; m; "n="; n
end sub
sub tod(x, y)
   x=x ^ 2
   y=y ^ 3
end sub
程序运行后，输出的结果为
a) m＝2，n＝1     
   m＝1，n＝2 
b) m＝2，n＝1       
  m＝4，n＝1
c) m＝1，n＝2     
  m＝1，n＝4  
d) m＝1，n＝2    
         m＝2，n＝4
考生答案:      正确答案:  b