1、二级 VISUAL+BASIC-18-1 及答案解析(总分：67.50，做题时间：90 分钟)一、选择题(总题数：24，分数：39.50)1.以下正确的叙述是_。（分数：2.00）A.Select Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 Select Case 语句时，所有的 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Case 表达式是错误的：Select Case xCase 1 to 10End Select2.在窗体上画一个名称为 CommonDial
2、ogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程： Private Command1_Click() CommonDialogl.FileName=“ “ CommonDialogl.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialoql.Filterlndex=2 CommonDialogl.DialoqTitle=“VBTest“ CommonDialoql.Action=1 End Sub 对于这个程序，似下叙述中错误的是（分数：2.00）A.该对话框被设置为“打开”对话框B.在该
3、对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt)3.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 _ 。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对4.执行 x$=InputBox(“请输入 x 的值“)时，在弹出的对话框中输入 123，在列表框 List1 选中 1 个列表项(数据为 456)，使 y 的值是 123456 的语句是 _ 。（分数：2.00）A.y=x$+List1.List(O)B.y=x$+List
4、1.List(1)C.y=Val(x$)+Val(List1.List(0)D.y=Val(x$) a=a+ 2=7：第 2 次循环后：i=i+1=6；a=a+2=9；第 3 次循环后：i=i+ 1=7；a=a+2=11；此时循环条件成立，退出循环。28.数据模型按不同的应用层次分为三种类型，它们是 _ 1_ 数据模型、逻辑数据模型和物理数据模型。（分数：2.00）解析：概念 解析 数据模型按不同的应用层次分为三种类型，它们是概念数据模型、逻辑数据模型和物理数据模型。 概念数据模型简称概念模型，它是一种面向客观世界、面向用户的模型；它与具体的数据库管理系统无关。逻辑数据模型又称数据模型，它是一
5、种面向数据库系统的模型，该模型着重于在数据库系统一级的实现。 物理数据模型又称物理模型，它是一种面向计算机物理表示的模型，此模型给出了数据模型在计算机上物理结构的表示。29.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请将程序补充完整。 Private Sub Form_Click() Dim i As Integer Open “Num.txt“For Output As#1 For i=1 To 8 _ 1_ Next Close#1 End Sub （分数：2.00）解析：Print#1，i解析 使用 Print 语句可以将数据写入顺序文件中。30.设某循环队
6、列的容量为 50，如果头指针 front=45(指向队头元素的前一位置)，尾指针 rear=10(指向队尾元素)，则该循环队列中共有 1 个元素。 （分数：2.00）解析：15解析 计算队列中元素个数的公式为：(read-front+MAXQSIZE)%MAXQSIZE，其中 MAXQSIZE 为队列的容量，所以该队列中的元素为(10-45+50)%50=15。31.以下程序段的输出结果是 _ 1_ 。 num=0 Do While num=5 num=num+1 Loop Print num （分数：2.00）解析：6解析 只要指定的条件为 True，则会重复执行一系列的语句。本题中的循环只
7、能当 num 的值超过 5 时才会终止，所以最终的 num 的值为 6。32.文件的打开和关闭语句分别是 _ 1_ 和 _ 2_ 。 （分数：1.00）解析：Open Close 解析 Open 语句能够对文件输入/输出 (I/O)。其语法结构为： Open pathname For mode Access accesslockAs或filenumberLen=reclength关闭 Open 语句所打开的输入/输出(I/O)文件使用的是 Close 语句。语法格式为 Closefilenumberlist 其中可选的 filenumberlist 参数为一个或多个文件号。33.下列程序的功能
8、是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid( 1,1, 1) If B= “ Then rev=“ Else rev=rev(Mid(str1, 2) + 2 End If End Function Private Sub Form_Click() old =“abcde“ Print rev(old) End Sub （分数：2.00）解析：str1 b解析 本程序使用“递归”的思想，每次递归取出一个字符放到字符串的后面，然后以后面的字符串作为函数参数进入下一次递归。b-Mid( -|_|-，1，1)
9、语句的作用是取出本次递归中字符串的第一个字符，因此该空白处应填 str1；rev=rev(Mid(str1，2)+ -|_|-语句是将本次递归中字符串的第一个字符放到它的后面，因此该空白处应填 b。递归是一种很重要的算法，在程序设计语言中广泛应用。递归的思想是指函数、过程、子程序在运行过程中直接或间接调用自身而产生的重入现象。筒单的说就是自己调用自身。34.数据库系统中实现各种数据管理功能的核心软件称为 _ 1_ 。 （分数：2.00）解析：数据库管理系统或 DBMS解析 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等。数据库
10、管理系统是数据库系统的核心。要打印 50 个在-100100 之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 11 Do x=Rnd If x0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 12 Do While kj If tb(k) Then k=k+1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k)；
11、j=j+1 End If Loop Until j50 Print 13 Max=b(1) For n=2 To 50 If b(n)Max Then 14 p=n End If Next n Print“最大数是：“；Max Print“位置在第“；p；“个“ End Sub（分数：8.00）解析：j=1解析：k=1解析：p=1解析：Max=b(n)解析 变量 j 是记录已产生数据的个数，变量 k 是查找是否有重复记录，变量 p 是记录最大数据的位置。在查找最大数据之前，将数组的第一个下标和数据先记录到 p 和 Max 中。35.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把 1 的值写在前面。 （分数：2.00）解析：较小
