(31) 下面有一段程序代码，如果从键盘上输入"computer"，则在文本框内显示的内容是
private sub text1_keypress(keyascii as integer)
   if keyascii >=65 and keyascii <=122 then
     keyascii=42
   end if
end sub
a) computer      
b) 什么都没有
c) ********      
d) 程序出错
正确答案:  c

(32) 下列有关子菜单的说法中，错误的是
a) 除了click事件之外，菜单项不可以响应其他事件
b) 菜单项的索引号必须从1开始
c) 每个菜单项都是一个控件，与其他控件一样也有其属性和事件
d) 菜单的索引号可以不连续
正确答案:  b

(33) 在窗体上画一个通用对话框，其名称为commondialog1，然后画一个命令按钮，并编写如下事件过程：
private sub command1_click()
   commondialog1.flags=vbofnhidereadonly
   commondialog1.filter= "all files(*.*) |*.*|text files(*.*) |*.txt|" _
                       & batch files(*.bat) |*.bat"
   commondialog1.filterindex=1
   commondialog1.showopen
   msgbox commondialog1.filename
end sub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是
a) all files(*.*)     
b) text files(*.*)
c) batch files(*.bat)    
d) all files(*.*) |text files(*.*)
正确答案:  a

(34) 在visual basic中，要将一个窗体从内存中释放，应使用的语句是
a) hide       
b) unload
c) load       
d) show
正确答案:  b

(35) 在visual basic中按文件的编码方式不同，可将文件分为
a) 顺序文件和随机文件   
b) 文本文件和数据文件
c) ascii文件和二进制文件  
d) 数据文件和可执行文件
正确答案:  c

二 、填空题
(1) 排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、 【1】 和选择排序等。
正确答案:  1.(交换排序)

 (2) 当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 【2】 。
正确答案:  1.(上溢)

(3) 【3】 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
正确答案:  1.(封装)

(4) 为了便于对照检查，测试用例应由输入数据和预期的 【4】 两部分组成。
正确答案:  1.(输出结果)

(5) 【5】 是从二维表列的方向进行的运算。
正确答案:  1.(关系运算)

(6) 在visual basic的立即窗口内输入以下语句
x＝97 <cr>
?chr$(x) <cr>
在窗口中显示的结果是 【6】 。
正确答案:  1.(a)

(7) 如果要将形状控件的内部设置为水平线，应将fillstyle属性设置为 【7】 。
正确答案:  1.(2)

(8) 在窗体上画两个文本框，其名称分别为name1和password1，然后编写如下事件过程
private sub form_load()
   show
   name1.text=""
   password1.text=""
   password1.setfocus
end sub
private sub password1_keydown(keycode as integer, shift as integer)
   name1.text=name1.text + chr(keycode - 3)
end sub
程序运行后，如果在password1中输入"hit"，则在name1文本框中显示的内容是 【8】 。
正确答案:  1.(efq)

(9) 在一个窗体上有两个命令按钮，cmdmax和cmdmin。单击cmdmax时，窗体上显示"字体由小变大"，字号每次增加2；单击cmdmin时，窗体上显示"字体由大变小"，字号每次减小2。请填空。
private sub form_load()
   form1.caption="字体变化示范"
   cmdmax.caption="字体变大"
   cmdmin.caption="字体变小"
end sub
private sub cmdmax_click()
     【9】
   form1.print "字体由小变大"
end sub
private sub cmdmin_click()
     【10】
   form1.print "字体由大变小"
end sub
正确答案:  1.(form1.fontsize = form1.fontsize + 2) 2.(form1.fontsize)

(10) 下列程序的功能是：将数据1，2，…，10写入顺序文件base.txt中，请填空。
private sub form_click()
   dim i as integer
   open 【11】 as #1
   for i=1 to 10
        【12】
   next i
   close #1
end sub

正确答案:  1.("base.txt" for output) 2.(print #1, i)

(11) 下面的程序用于根据文本框text中输入的内容进行以下处理：
若text为1，则打印"您的成绩为优秀！"；若text为2，则打印"您的成绩为良好！"
若text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。
private sub command1_click()
   select case val(text1.text)
      case 【13】
         print "您的成绩为优秀！"
      case 【14】
         print "您的成绩为良好！"
      case 【15】
         print "您的成绩为一般"
      case else
         print "您的成绩一般以下！"
   end select
end sub
正确答案:  1.(1) 2.(2) 3.(3)