VB二級历年真题.docVIP

２００５年4月份二级VB真题（附参考答案）35）目录列表框的Path属性的作用是（　）。A）显示当前驱动器或指定驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D）显示指定路径下的文件二、填空题（每空2分，共30分）　　请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 （1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。 （2）算法复杂度主要包括时间复杂度和 【2】 复杂度。 （3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。 （4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。 （5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。 （6）设有以下函数过程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。 （7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】 )WendIf s ThenText1 = sEnd IfEnd Sub （8） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【9】 ) / fun(r)End SubFunction fun(n As Integer) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function （9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【11】 For k = 【12】 To 6If max Text1(k) Thenmax = Text1(k)End IfIf min Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】 ) / 5End Sub（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；