2007年9月全国计算机等级考试二级VB模拟试题(9)及答案

二 、填空题
(1) 冒泡排序算法在最好的情况下的元素交换次数为 【1】 。
正确答案:  1.(0)

(2) 在最坏情况下，堆排序需要比较的次数为 【2】 。
正确答案:  1.(O(nlog2n))

(3) 若串s="MathTypes"，则其子串的数目是 【3】 。
正确答案:  1.(46)

(4) 软件开发环境是全面支持软件开发全过程的 【4】 集合。
正确答案:  1.(软件工具)

(5) 关系数据库的关系演算语言是以 【5】 为基础的DML语言。
正确答案:  1.(谓词演算)

(6) 下列语句的输出结果是 【6】 。Print Format$(1258.6, "000,000.00")
正确答案:  1.(001,258.60)

(7) 关系式x≤-5或x≥5所对应的布尔表达式是 【7】 。
正确答案:  1.(x<=-5 Or x>=5)

(8) 对随机文件数据存取是以 【8】 为单位进行操作的。
正确答案:  1.(一个记录)

(9) 在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
   List1.AddItem "北京"
   List1.AddItem "上海"
   List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
   Labe1.Caption= 【10】
End Sub
正确答案:  1.(DblClick) 2.(List1.Text)

(10) 执行语句Open "TC.dat" For Random As #1 Len=50后，对文件TC.dat中的数据能执行的操作是 【11】 。
正确答案:  1.(既可以读，也可以写)

 (11) 下面程序的功能是统计字符串中"i"的个数，请填空。
Sub COU()
    a$="Beijing University of Technology"
    Dim n As Integer
    n=Len(a$)
    For i=1 To n
    b$= 【12】
    If 【13】 Then x=x + 1
   Next i
   Print "x="; x
End Sub
正确答案:  1.(Mid＄(a＄, i, 1) ) 2.(b＄ = "i")

(12) 下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
   K As Integer
   Sinx As Single
   Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click()
   Dim Y As Single
   Open 【14】
   Y=3.14159 / 180
   For I=1 To 90
     Ksc.K=I
     Ksc.Sinx=Sin(I * Y)
     Ksc.Cosx=Cos(I * Y)
      【15】
      Next I

      Close #2
End Sub
正确答案:  1.("c:＼Data1.txt" For Random As #2 Len = 10) 2.(Put #2, I)