1、二级 VISUAL+BASIC 笔试-226 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.实体是信息世界中广泛使用的一个术语，它用于表示（分数：2.00）A.有生命的事物B.无生命的事物C.实际存在的事物D.一切事物2.在修改列表框内容时，AddItem 方法的作用是（分数：2.00）A.在列表框内插入一行文本B.在列表框中插入 1 多行文本C.删除列表框中指定的项目D.清除列表框内的全部内容3.一个工程中含有窗体 Form1、Form2 和标准模块 Modell，如果在 Form1 中有语句 Public X As Integer，在
2、 Modell 中有语句 Public Y As Integer。则以下叙述中正确的是（分数：2.00）A.变量 X、Y 的作用域相同B.Y 的作用域是 ModellC.在 Form1 中可以直接使用 XD.在 Form2 中可以直接使用 X 和 Y4.有如下函数过程：Function Fun (By Val x As Ingeger, ByVal y As Integer)As IntegerDo Whiley0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Comman
3、d1_Click()Dim a As IntegerDim b As Integera=100:b=25x=Fun(a，b)Print xEnd Sub（分数：2.00）A.0B.25C.50D.1005.在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有（分数：2.00）A.特定的数据模型B.数据无冗余C.数据可共享D.专门的数据管理软件6.下列程序段的执行结果为a=5For k=1 To 0a=a * kNext kPrint k；a（分数：2.00）A.-1 6B.-1 16C.1 5D.11 217.执行下面的程序段后，变量 c 的值为a=14b=30Select
4、 Case b/10Case 0c=a * 10 + bCase 1 To 9c=a*100+bCase 10 To 99c=a*1000+bEnd SelectPrint c（分数：2.00）A.363B.2548C.1430D.98758.下列叙述中错误的是（分数：2.00）A.Visual Basic 是采用了事件驱动编程机制B.Visual Basic 是面向过程的程序设计语言C.Visual Basic 是可视化程序设计语言D.Visual Basic 是面向对象的程序设计语言9.Print 方法可以在对象上输出数据，这些对象包括（分数：2.00）A.图片框B.状态栏C.标题栏D.代
5、码窗口10.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性（分数：2.00）A.DirB.PathC.DriveD.Filename11.栈底至栈顶依次存放元素 A、B、C、D，在第五个元素 E 入栈前，栈中元素可以出栈，则出栈序列可能是（分数：2.00）A.ABCEDB.DCBEAC.DBCEAD.CDABE12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 30 Then m=m+n/3NextPrint nEnd Sub程序运行后，如果单击命令按钮
6、，则窗体上显示的内容是（分数：2.00）A.15B.18C.21D.2413.下列关系运算结果为 True 的是（分数：2.00）A.“1”+2=“12”B.“1”+2=“3”C.“1”#2=“12”D.“1”NextPrintEnd Sub（分数：2.00）填空项 1:_48.假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将经下程序补充完整。Private Sub C
7、ommand1_Clickk( )Dim B As Booksopen “c: /person. txt“ For output As #1B. Name = InputBox (“请输入姓名 t“ )B. TelNum = InputBox(“请输入电话号码“ )write #1, 【15】 close #1End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-226 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.实体是信息世界中广泛使用的一个术语，它用于表示（分数：2.00）A.有生命的事物B.无生命的事物
8、C.实际存在的事物 D.一切事物解析：解析 实体是客观存在且可以相互区别的事物。实体可以是具体的对象，如一个学生，也可以是一个抽象的事件，如一次出门旅游等。因此，实体既可以是有生命的事物，也可以是无生命的事物，但它必须是客观存在的，而且可以相互区别。2.在修改列表框内容时，AddItem 方法的作用是（分数：2.00）A.在列表框内插入一行文本 B.在列表框中插入 1 多行文本C.删除列表框中指定的项目D.清除列表框内的全部内容解析：解析 列表框可以使用 AddItem，Clear 和 RemoveItem 等方法，用来在运行期间改变列表框的内容。AddItem 方法用来在列表框中插入一行文本
9、：格式为：列表框AddItem 项目字符串，索引值；Clear 方法用来清除列表框中的全部内容，格式为：列表框Clear； RemoveItem 方法用来删除列表中指定的项目，格式为：列表框RemoveItem 索引值。3.一个工程中含有窗体 Form1、Form2 和标准模块 Modell，如果在 Form1 中有语句 Public X As Integer，在 Modell 中有语句 Public Y As Integer。则以下叙述中正确的是（分数：2.00）A.变量 X、Y 的作用域相同B.Y 的作用域是 ModellC.在 Form1 中可以直接使用 X D.在 Form2 中可以直
10、接使用 X 和 Y解析：解析 在窗体声明部分声明的变量是窗体级变量，它只能在该窗体内直接使用，在标准模块中使用 Public 声明的变量是全局变量，可以直接在工程中使用。4.有如下函数过程：Function Fun (By Val x As Ingeger, ByVal y As Integer)As IntegerDo Whiley0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()Dim a As IntegerDim b As Integ
11、era=100:b=25x=Fun(a，b)Print xEnd Sub（分数：2.00）A.0B.25 C.50D.100解析：解析 本题的难点是子函数调用过程。子函数 Fun 的功能是求 x 和 y 的公约数，由“欧几里德”求最大公约数的算法可知，当余数 r 为 0 时，x 为 x 和 y 的最大公约数。变量，的值通过子函数名 Fun 返回。5.在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有（分数：2.00）A.特定的数据模型 B.数据无冗余C.数据可共享D.专门的数据管理软件解析：解析 在文件系统中，相互独立的记录其内部结构的最简单形式是等长同格式记录的集合，易
12、造成存储空间大量浪费，不方便使用。而在数据库系统中，数据是结构化的，这种结构化要求在描述数据时不仅描述数据本身，还要描述数据间的关系，这正是通过采用特定的数据模型来实现的。6.下列程序段的执行结果为a=5For k=1 To 0a=a * kNext kPrint k；a（分数：2.00）A.-1 6B.-1 16C.1 5 D.11 21解析：解析 For 循环有两种格式，其中一种格式是：For 循环变量=初值 To 终值 Step步长语句Exit For语句Next循环变量此循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，一次也不循环就跳出循环，属于“先
13、检查后执行”的类型。现在来看程序段，For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，检查结果超过“终值” 0，所以一次也不执行，即最后执行 Print k=1，a=5。7.执行下面的程序段后，变量 c 的值为a=14b=30Select Case b/10Case 0c=a * 10 + bCase 1 To 9c=a*100+bCase 10 To 99c=a*1000+bEnd SelectPrint c（分数：2.00）A.363B.2548C.1430 D.9875解析：解析 过程分析：b：30，所以 b/10=3，在 1-9 之间，执行语句
14、 c=a*100+b，c=14*100+ 30=1430。8.下列叙述中错误的是（分数：2.00）A.Visual Basic 是采用了事件驱动编程机制B.Visual Basic 是面向过程的程序设计语言 C.Visual Basic 是可视化程序设计语言D.Visual Basic 是面向对象的程序设计语言解析：解析 Visual Basic 是面向对象，采用事件驱动机制的程序设计方法。9.Print 方法可以在对象上输出数据，这些对象包括（分数：2.00）A.图片框 B.状态栏C.标题栏D.代码窗口解析：解析 Print 方法可以在窗体、立即窗口、图片框、打印机这些对象上输出数据。10.
15、要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性（分数：2.00）A.DirB.PathC.DriveD.Filename 解析：解析 文件列表框控件的相关属性FileName 属性用来设置或返回程序运行过程中当前选中的文件名称。Path 属性用来设置或返回程序运行过程中当前选中的文件的路径。11.栈底至栈顶依次存放元素 A、B、C、D，在第五个元素 E 入栈前，栈中元素可以出栈，则出栈序列可能是（分数：2.00）A.ABCEDB.DCBEA C.DBCEAD.CDABE解析：解析 栈操作原则上“后进先出”，栈底至栈顶依次存放元素 A、B、C、D，则表明这 4 个元素中 D 是最后
16、进栈，B、C 处于中间，A 最早进栈。所以出栈时一定是先出 D，再出 C，最后出 A。12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 30 Then m=m+n/3NextPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（分数：2.00）A.15B.18C.21 D.24解析：解析 n 从 1 到 20，循环共执行 20 次，当 n =21 时，循环条件不成立，循环结束，最后输出 n 的值为 21。因此，选项 C 正确。13.下列关系
17、运算结果为 True 的是（分数：2.00）A.“1”+2=“12”B.“1”+2=“3”C.“1”#2=“12” D.“1”NextPrintEnd Sub（分数：2.00）填空项 1:_ （正确答案：$）解析：解析 本题的难点是了解生成字符函数 String$()和计算字符函数 Len()，a $=“*“的作用只是被用来计算字符串的长度，没有被打印出来。打印分隔符为“；”时，字符串之间没有空格。空打印 Print操作是换行。48.假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End
18、Type要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将经下程序补充完整。Private Sub Command1_Clickk( )Dim B As Booksopen “c: /person. txt“ For output As #1B. Name = InputBox (“请输入姓名 t“ )B. TelNum = InputBox(“请输入电话号码“ )write #1, 【15】 close #1End Sub（分数：2.00）填空项 1:_ （正确答案：15B.Name，B.TelNum）解析：解析 本题考查了文件的读写操作。要向顺序文件中写入记录必须用 Print#或 Write#语句将内容写入文件，题目要求在 Person.txt 文件中写入一条记录，因此，空白处应填写 B.Name，B.TelNum。
