1、VB 笔试模拟试卷 290及答案与解析 1 下列程序执行后，变量 a的值为 ( )。 Dim a,b,c,d as single a=100 b=20 c=1000 if b a Then d=a:a=b:b=d End if if c a Then d=a:a=c:c=d End if if c b Then d=b:b=c:c=d End if （ A） 0 （ B） 1000 （ C） 20 （ D） 100 2 关闭当前的工程并退出 Visual Basic的快捷键是 （ A） Alt+B （ B） Alt+Q （ C） Alt+Shift （ D） Alt+a 3 当发生 Form_
2、 Click 事件后，下面这段程序代码的执行结果为在窗体中输出_。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open “C: Check. txt“ For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub （ A） 3 4 （ B） 4 5 （ C） 5 3 （ D） 3
3、 3 4 下列数据结构中，属于非线性的是 ( )。 （ A）线性表 （ B）队列 （ C）树 （ D）栈 5 设计程序时，应采纳的原则之一是 ( )。 （ A）程序的结构应有助于读者的理解 （ B）限制 GOTO语句的使用 （ C）减少或取消注释行 （ D）程序越短越好 6 设有下列二叉树： 对此二叉树后序遍历的结果为 （ A） ABCDEF （ B） BDAECF （ C） ABDCEF （ D） DBEFCA 7 软件工程与计算机科学性质不同，软件工程着重于 _。 （ A）理论研究 （ B）建造软件系统 （ C）原理和理论 （ D）原理探寻 8 在软件工程中，白盒测试法 可用于测试程序的内
4、部结构。此方法将程序看做是_。 （ A）路径的集合 （ B）循环的集合 （ C）目标的集合 （ D）地址的集合 9 数据库的概念模型 _。 （ A） 依赖于计算机硬件和 DBMS （ B）独立于计算机硬件，依鞍子 DBMS （ C）依赖于计算机硬件，独立于 DBMS （ D）独立于计算机硬件和 DBMS 10 检查软件产品是否符合需求定义的过程称为 （ A）确认测试 （ B）集成测试 （ C）验证测试 （ D）验收测试 11 窗体上有一个命令按钮，命令按钮的单击事件 过程如下。运行程序后，单击命令按钮，输出结果是 ( )。 Private Sub Command1_Click() Dim a
5、a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub （ A） 10 （ B） 14 （ C） 15 （ D） 120 12 以下关于窗体的描述中，错误的是 ( )。 （ A）执行 UnLoad Forml语句 后，窗体 Forml消失，但仍在内存中 （ B）窗体的 Load事件在加载窗体时发生 （ C）当窗体的 Enabled属性为 False时，通过鼠标和键盘对窗体的操作都被禁止 （ D）窗体的 Height、 Width属性用于设置窗体的高和宽 13 设置组合框的风格 ,可用的属性是 （ A） Backstyle
6、（ B） Borderstyle （ C） Style （ D） Sorted 14 通过文本框 ( )事件过程可以获取文本框中输入字符的 ASCII码值。 （ A） Change （ B） LostFocus （ C） KeyPress （ D） GotFocus 15 复选框是否被选中，取决于复选框的 ( )。 （ A） Enabled属性 （ B） Value属性 （ C） Checked属性 （ D） Visible属性 16 在设计程序时，应采纳的原则之一是 ( )。 （ A）不限制 goto语句的使用 （ B）减少或取消注解行 （ C）程序越短越好 （ D）程序结构应有助于读者理解
7、 17 运行下面的程序后 ,输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i, i) =1: Next For i=1 To 5 For j=1 To 5 Print t(i, j), Next Print Next （ A） 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 （ B） 1 1 1 1 1 （ C） 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 （ D） 1 1 1 1 1 18 下列各项中，不是通用过程特点的是 ( )。
8、 （ A）通用过程不与任何特定事件相联系 （ B）通用过程完成特定任务 （ C）通用过程由用户创建 （ D）通用过程可以由鼠标激发 19 在窗体上画 1个名称为 Cornmandl的命令按钮， 并编写以下程序： Private Sub Commandl_Click() Print fun(“ABCDEFG”) End Sub Function fun(st As String)As String stlen=Len(st) temp=“” For k=1 To stlen 2 temp=temp+Mid(st， k， 1)+Mid(st， stlen-k+1， 1) Next k fun=te
9、mp End Function 程序运行时，单击命令按钮，则在窗体上显示的是 ( )。 （ A） ABCDEFG （ B） AGBFCE （ C） GFEDCBA （ D） AGBFCED 20 以下声明语句中错误的是 _。 （ A） Constvar1=123 （ B） Dimvar2=ABC （ C） Dim intSum As Integer （ D） Static vat3 As Integer 21 为了把一个记录型变量的内容写入文件中指定的 位置，所使用的语句的格式为_。 （ A） Get文件号，记录号，变量名 （ B） Get文件号，变量名，记录号 （ C） Put文件号，变量名
10、，记录号 （ D） Put文件号，记录号，变量名 22 为了使列表框中的项目分为多列显示，需要设置的属性为 ( )。 （ A） Columns （ B） Style （ C） List （ D） MultiSelect 23 已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic表达式为 ( )。 （ A） E*Sin(30*3.14/180)*2*X/X+Y*Log(X) （ B） Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X) （ C） Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Log(x) （ D） Exp(X)*
11、Sin(30*3.14/180)*2*X/(X+Y)*Ln(X) 24 窗体上有一个组合框，编写下列程序： Private Sub Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form Load() Combo1. AddItem “上海 ” Combo1. AddItem “北京 ” Combo1. AddItem “天津 ” Combo1. AddItem “重庆 ”End Sub程序执行时，单击 Command1，则在组合框中将不再出现 _。 （ A）上海 （ B）北京 （ C）天津 （ D）重庆 25 若要将窗体从
12、内存中卸载出去，应该使用的方法是 _。 （ A） Show （ B） UnLoad （ C） Load （ D） Hide 26 在 VB语言中， 6个关 系运算符在运算过程中优先级从高到低的顺序是 （ A） （ B） （ C） （ D）不分先后顺序 27 我们可以在设计时 (属性窗口中 )和运行时 (程序代码中 )设置属性的属性值，以下关于属性设置的说法正确的是 （ A）在属性窗口中可以设置所有属性的属性值 （ B）在程序代码中可以设置所有属性的属性值 （ C）属性的名称由 VB事先定义，用户不能改变 （ D）所有对象的属性都是可见的 28 设 A=“12345678“，则表达式 Val(L
13、eft(A， 4)+Mid(A， 4， 2)的值为 _。 （ A） 123456 （ B） 123445 （ C） 8 （ D） 6 29 在列表框中当前被选中的列表项的序号是由下列哪个属性表示 _。 （ A） List （ B） Index （ C） Listindex （ D） Tabindex 30 要把一个命令按钮设置成无效，应设置属性 _ 的值为 False。 （ A） Visible （ B） Enabled （ C） Default （ D） Cancel 31 当一个工 程含有多个窗体时，其中的启动窗体是 _。 （ A）启动 Visual Basic时建立的窗体 （ B）第一个
14、添加的窗体 （ C）最后一个添加的窗体 （ D）在 “工程属性 ”对话框中指定的窗体 32 以下能够正确计算 1+2+3+10 的程序是 （ A） Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub （ B） Private sub Command1_Click( ) Sum=0,I=1 Do While l =10 Sum=Sum+1 I=I+1 Print Sum End Sub （ C） Private Sub command1_click( ) Sum=0： I=1
15、Do Sum=Sum+1 I=I+1 Loop While I 10 Print Sum End Sub （ D） Private Sub command1_Click( ) Sum=0： I=1 Do Sum=Sum+1 l=I+1 Loop Until I 10 Print Sum End Sub 33 以下关系表达式中，其值为 False的是 （ A） ABC “AbC“ （ B） the “they“ （ C） VISUAl， =UCase(“Visual“) （ D） Integer “Int“ 34 能够获得一个文本框中被选取文本的内容的属性是 _。 （ A） Text （ B）
16、SelLength （ C） SelText （ D） SelStart 35 在窗体上画一个名称为 File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1 FileName， 1) End Sub以下关于该程序的叙述中，错误的是 （ A） x没有实际作用，因此可以将该语句写为： Call Shell(FilE.FileName， 1) （ B）双击文件列表框中的文件，将触发该事件过程 （ C）要执行的文件的名字通过 File1 FileName指定 （ D） File1中显示的是当前驱动器、当前目录下的文件 36 一个消
17、息由三个部分组成：接收消息的对象的名称、【 】和零个或多个参数。 37 结构化程序设计的 3种基本结构分别是顺序、选择和 _。 38 数据库恢复是将数据库从【 】状态恢复到某一已知的正确状态。 39 数据模型按不同应用层次分成 3种类型，它们是概念数据模型、【 】和物理 数据模型。 40 一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体 “项目主管 ”与实体 “项目 ”的联系属于【 】的联系。 41 在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.da
18、t中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“c： test.dat“For Output As #1 For I=1 to Len(Text1.text) _ Next I Close #1 End Sub 42 下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox(“输出结果 ?“， vblnformation+vbYesNo， “提示： “) If a=_Then Print “Myresult“ End
19、 If End Sub 43 窗体下面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x = -1 a=InputBox(“请输入第一个数字 a的值 “) a=Val(a) b=InputBox(“请输入第二个数字 b的值 “) b=Val(b) x=InputBox(“请输入第三个数字 x的值 “) x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中 分别输入 5， 4， 8， 5， 8， -1，输出结果为 _。 44 为了在运行时把 “d:pie”文件
20、夹下的图形文件 “a. jpg”装入图片框 Picturel，所使用的语句为【 】。 45 执行下面的程序段后， S的值为【 】。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i 46 下图是应用程序的窗体，要求用户选中复选框 Check1后，文本框 Text1中的文字以粗体显示，选中复选框 Check2后，文本框 Text1中的文字以斜体显示，单击“关闭 ”按钮 Command1 后结束应用程序运行。 Private Sub Check1_ Click ()if【 】thenText1. FontBold = TrueElseText1. FontEol
21、d =【 】 End ifEnd SubPrivate Sub check2_ click()if【 】 thenText1. FontItalic = FalseElseText1. FontItalic = TrueEnd ifEnd subPrivate Sub Command1_ Click()【 】 MeEnd Sub 47 下列程序的作用是：打开顺序文件 C:stuDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Click() 【 】 Do While Not EOF(1) Input # 1， StrNo
22、， StuName， StuEng Print StuNo； Tab(10)； StuName； Tab(20)； StuEng Loop Close #1 End Sub 48 下列程序的运行机结果是【 】。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k =n Print m End Sub 49 执行下面的程序段后， S的值为【 】。 s=5 For i=6 To 9 Step 0.6 S=S+1 Next i 50 在窗体上画 1个命令按钮和 1个文本框，其名称
23、分别为 Command1和 Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll Chr(KeyAscii) End Sub 程序运行后，在文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是【 】。 VB 笔试模拟试卷 290答案与解析 1 【正确答案】 B 2 【正确答案】 B 【试题解析
24、】 Alt+Q关闭当前 的工程并退出 Visual Basic。 3 【正确答案】 A 4 【正确答案】 C 【试题解析】 线性结构，是指数据元素只有一个直接前件元素和直接后件元素。线性表是线性结构。栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。 5 【正确答案】 A 【试题解析】 程序设计的风格主要强调程序的简单、清晰和可理解性，以便读者理解。程序滥用 GOTO语句将使程序流程无规律，可读性差；添加注释行有利于对程序的理解，不应减少或取消，程序的长短要依据实际的需要而定，并不是越短越好。 6 【正确答案】 D 【试题解析】 二叉树的遍历分为先序，中序、后序三种不同方式。本题
25、要求后序遍历，其遍历顺序应该为：后序遍历左子树 ?后序遍历右子树 ?访问根结点。按照定义，后序遍历序列是 DBEFCA，故答案为 D。 7 【正确答案】 B 【试题解析】 计算机科学中的研究成果均可用于软件工程，但计算机科学着重于原理和理论，而软件工程着重于如何建造一个软件系统。从工程化角度对软件的开发加以科学的设计和管理。 8 【正确答案】 A 【试题解析】 软件的白盒测试方法是把测试对象看做一个打 开的盒子，它允许测试人员利用程序内部的逻辑结构及有关信息，设计或选择测试用例，对程序所有逻辑路径进行测试。 9 【正确答案】 D 10 【正确答案】 A 【试题解析】 确认测试的任务是验证软件的
26、功能和性能，以及其他特性是否满足需求规格说明中确定的各种需求；集成测试的主要目的是发现与接口有关的错误。 11 【正确答案】 B 【试题解析】 解答本题的关键是读懂程序。程序中首先通过赋值语句定义一个有 5个元素的数组 (数组的下标从零开始 )；接下来通过 For循环来循环给变量 S赋值 (即对数组元素 求和 )，这里循环中 k 从 1开始，因此 a(k)从 2开始取值，到 a(4)也就是 5结束，计算结果为 14。 12 【正确答案】 A 13 【正确答案】 C 【试题解析】 Style属性返回或设置一个值 ,指定控件的行为或外观。 14 【正确答案】 C 15 【正确答案】 B 【试题解析
27、】 本题考查复选框的常见属性。复选框的 Enabled 属性决定复选框是否可用， Value属性决定复选框是否选定，其属性值有 3种： 0|Unchecked：表示未被选定， 1-Checked：选定， 2-Grayed：灰 色，禁止选择； Visihle属性决定其是否可见；复选框没有 Checked 属性。 16 【正确答案】 D 17 【正确答案】 C 【试题解析】 考查考生对多重循环和 Print方法的掌握。程序以矩阵格式输出一个二维数组 ,由程序可知 ,数组的主对角线上的元素赋值为 1,其他元素未赋值 ,初值为0。所以输出结果如选项 C)所示。嵌套使用多重循环时 ,应注意程序执行过程。
28、 18 【正确答案】 B 19 【正确答案】 B 【试题解析】 本题考查函数过程。 fun 函数中包含一个 For循环语句，主要功能是： 首先从字符串头和尾开始执行，每次分别取出一个字符，共取 3次，并连接到一起产生一个新字符串。 20 【正确答案】 B 【试题解析】 Visual Basic 中 Dim只能声明变量，而不能声明一个常量。声明常量要用 Const。 Static 则是用来定义一个静态变量的。 21 【正确答案】 D 【试题解析】 Put语句的格式为： Put#filenumber,recnumber, vamame 其中 filenumber表示有效的文件号。 recnumbe
29、r表示记录号或字节数，即开始写入的地方。 varname表示变量名。 22 【正确答案】 A 【试题解析】 Columns 属性返回或设置一个值，以决定控件是水平还是垂直滚动以及如何显示列中的项目。 Columns 属性值为 0时，控件为垂直滚动； Columns属性值为 1时，则列表框呈多行多列显示； Columns 属性值大于 1时，为水平滚动， Columns 属性值的数量决定在控件中的可见宽度内显示列的数量。 Columns属性用来确定列表框的列数。 23 【正确答案】 C 【试题解析】 “Exp”函数功能是计算 e(e 2.71828)的某次方 ，其格式为是Exp(number)；
30、“Sin”函数指定参数的正弦值，它的参数是表示以弧度为单位的角的 Double型数据： “Log”函数得到某数的自然对数值，正确的表达方式是Log(number)； “30”在计算机中应该写成 30*3.14/180；并且各个表达式之间的乘号不能省略。 24 【正确答案】 C 【试题解析】 程序在窗体加载的时候，通过 form_Load 事件给组合框添加了 4个选项，当发生 Command1的单击事件时，移去序号为 2的选项，即 “天津 ”。 25 【正确答案】 B 26 【正确答案】 D 【试题解析】 在 VB语言中， 6个关系运算符在运算过程中优先级不分先后顺序。 27 【正确答案】 C
31、【试题解析】 属性的名称由 VB 事先定义，用户不能改变。选项 C的说法正确。 28 【正确答案】 B 【试题解析】 Left(A,4)=“1234“ Mid(A,4,2)=“45“ Val(“1234“+“45“)=123445 注意： Left和 Mid均为字符串截取函数， “+”为字符串连接符。 29 【正确答案】 C 【试题解析】 List 属 性：该属性用来列出列表项的内容。 List 属性保存了列表框中所有值的数组，可以通过下标访问数组中的值 (下标值介于 0到 List.ListCount-1之间 )。 List Index 属性：该属性的设置值是已选中的列表项的位置。列表项位置
32、由索引值指定，第一项的索引值为 0，第二项为 1，依次类推。如果没有选中任何列表项， ListIndex 的值将设置为 -1。 30 【正确答案】 B 【试题解析】 命令按钮的部分属性： Visible属性：返回 /设置一个值，决定对象是否可见； Cancel 属性：当一个命令按钮 的 Cancel属性设置为 True时，按 Esc键与单击该命令按钮的作用相同。 Enabled属性：返回 /设置一个值，决定对象是否响应用户生成事件。 Default属性：当一个命令按钮的 Default属性被设置为 True时，按回车键和单击该命令按钮的作用相同。 31 【正确答案】 D 【试题解析】 在 “工
33、程 -属性 ”对话框中可以指定工程的启动对象 (可以是窗体、Sub Main()。 32 【正确答案】 A 【试题解析】 A选项进行 10次循环，分别将 1至 10累加给 Sum，故正确。 选项B 缺少 Loop关键词，否则也是正确的。选项 C与 D由于受条件 “Iclo限制， Do循环只能进行一次。 33 【正确答案】 A 【试题解析】 字符串数据是按照其 ASCII 码的值进行比较的。如果两个字符串的第一个字符一样大，则比较第二个字符的 ASCII码的大小。大写字母 B的ASCII码值小于小写字母 b 的 ASCII码值。 34 【正确答案】 C 【试题解析】 文本框有很多属性，其中 Te
34、xt属性用来设置文本框中显示的内容。 SelLength 属性存放当前选中的字符数。 SelText属性含有 当前所选择的文本字符串，如果没有选择文本，则该属性含有一个空字符串。 SelStart属性定义当前选择的文本的起始位置。 35 【正确答案】 A 【试题解析】 Shell函数返回 Variant值，用来指明正在运行的程序，其格式为：Shell(Pathname， windowstyle)所以并不像选项 A说的 x没有实际意义。 36 【正确答案】 消息标识符 (消息名 ) 37 【正确答案】 重复或循环 【试题解析】 结构化程序设计包括 3种基本的结构：顺序结构、选择结构和重复结构 (
35、循环结构 )，利用这 3种结构就足以表达出各种其他形式结构的程序设计方法。其中利用循环结构，可以简化大量的程序执行。 38 【正确答案】 错误 【试题解析】 数据库恢复是将数据库中的数据从错误状态中恢复到某种逻辑一致的状态。如果数据库中包含成功事务提交的结果，则称数据库处于一致性状态。 39 【正确答案】 逻辑数据模型 【试题解析】 数据是现实世界符号的抽象，而数据模型 (data model)则是数据特征的抽象，它从抽象层次上描述了系统的静态特征、动态行为和约束行为，为数据库系统的信息表示与操作提供 一个抽象的框架。 数据模型按不同的应用层次分成 3种类型，它们是概念数据模型 (concep
36、tual data model)、逻辑数据模型 (logic data model)、物理数据模型 (physical data model)。 40 【正确答案】 1对多 或 1： N 【试题解析】 两个实体集间的联系实际上是实体集间的函数关系，这种函数关系可以有 3种，即一对一 (1： 1)的联系、一对多 (1： N)或多对 (N： 1)的联系和多对多 (N： N)的联系。 41 【正确答案】 Print #1,Mid(text1.text,I,1) 42 【正确答案】 vbYes或 6 【试题解析】 MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer告诉用
37、户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有关，如下表所示。 43 【正确答案】 12 【试题解析】 程序执行过程如下：第 1次循环：输入 5时， a=5；输入 4时，b=4；输入 8时， X=8；然后计算 a=a+b+x=17。第 2次循环：输入 5时， a=5；输入 8时， b=8；输入 -1时， x=-1。然后计算 a=a+b+x=12；此时条件不成立，退出循环。 44 【正确答案】 Picturel. Picture=LoadPicture(“d:pica.jpq“)或Picturel=LoadPicture(“d:pica. jpg“) 【试题解析】 LoadPictu
38、re函数将图形载入到窗体的 Picture属性、PicturcBox(图片框 )控件或 Image(图像框 )控件。为了加载在 PictureBox(图片框 )控件和 Image(图像框 )控件中显示的图形或者加载作为窗体背景的图形，必须将LoadPicture的返回 值赋给要显示该图片的对象的 Picture属性。 45 【正确答案】 9 【试题解析】 以指定次数来重复执行一组语句。 语法 For counter=start To endStep step statements Exit For statements Nextcounter 从起始值开始计算，循环体要执行四次，所以最终的 s
39、的值为 5+4=9。 46 【正确答案】 Check1. Value=1,False,Check2. Value=0,Unload 【试题解析】 从 填空 11和 13的位置来看，应该是关系表达式。由属性Fontltalic的值来解析，属性 FontBold 的值也应该是逻辑值。结束应用程序运行用Unload Me。 47 【正确答案】 Open“C:StuDatA.txt”For Input As #1 48 【正确答案】 11 49 【正确答案】 9 【试题解析】 以指定次数来重复执行一组语句。 语法 For counter=start To end Step step 3tatement
40、s Exit For statements Nextcounter 从起始值开始计算，循环体要执行四次，所以最终的 S 的值为 5+4=9。 50 【正确答案】 ABCD 【试题解析】 每在 Text1中输入一个字符，都将触发一次 KeyPress 事件，该事件的作用是将当前所输入的字符连接到字符串 SaveAll 的后面。故字符输入结束后， SaveAll 中的内容为 “abcdefg”， Ucase函数是将字符串所有的字母都转换成大写字符，执行 Ucase(SaveAll)的结果为 “ABCDEFG”， Left(S,4)是取字符串 S 的前四个字符，作为一个字符串返回。故Left(Ucase(SaveAll),4)=Left(“ABCDEFG“,4)=“ABCD“。本空填： ABCD。
