1、二级 VISUAL+BASIC-28-1 及答案解析(总分：80.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：58.00)1.图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是 _。 A. AutoSize B. Stretch C. AutoRedraw D. Appearance （分数：1.00）A.B.C.D.2.新建一个窗体，其 BorderStyle 属性设置为 Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是 A. BorderStyle 的值设为 Fixed Single，此项设置值的作用即禁止最大化和最小化按
2、钮 B. 窗体的 MaxButton 和 MinButton 值设为 False C. 正常情况下新建的窗体都没有最大化和最小化按钮 D. 该窗体可用鼠标拖动边框的方法改变窗体的大小（分数：2.00）A.B.C.D.3.检查软件产品是否符合需求定义的过程称为 A.确认测试 B.集成测试 C.验证测试 D.验收测试 （分数：1.00）A.B.C.D.4.以下叙述中错误的是 A.一个工程可以包括多种类型的文件 B.Visual Basic 应用程序既能以编译方式执行，也能以解释方式执行 C.程序运行后，在内存中只能驻留一个窗体 D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样（分数：1.
3、00）A.B.C.D.5.编写如下事件过程：Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) ClsIf(Button Andl)ThenPrint“你好“End Sub程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下U /U操作。 A.只能按下左按键并拖动 B.只能按下右按键并拖动 C.只能按下左按键 D.只能按下右按键（分数：2.00）A.B.C.D.6.两个或两个以上模块之间关联的紧密程度称为U /U。 A.耦合度 B.内聚度 C.复杂度 D.数据传输特性（分数：2.0
4、0）A.B.C.D.7.下列不属于软件工程 3 个要素的是U /U。 A. 工具 B. 过程 C. 方法 D. 环境（分数：2.00）A.B.C.D.8.目录列表框的 Path 属性的作用是 _。 A. 显示当前驱动器或指定驱动器上的目录结构 B. 显示当前驱动器或指定驱动器上的某目录下的文件名 C. 显示根目录下的文件名 D. 显示该路径下的文件（分数：1.00）A.B.C.D.9.窗体上有一个通用对话框控件 CommonDialog1，有下列语句：CommonDialog1. Action = ShowFont其表示为 _。 A. 显示“打开”对话框 B. 显示“另存为”对话框 C. 显示
5、“颜色”对话框 D. 显示“字体”对话框（分数：2.00）A.B.C.D.10.为了防止用户随意将光标置于控件上，应该 A. 将控件的 TabIndex 属性设置为 0 B. 将控件的 TabStop 属性设置为 True C. 将控件的 TabStop 属性设置为 False D. 将控件的 Enabled 属性设置为 False（分数：1.00）A.B.C.D.11.设有语句Open“c：/Test.Dat“For Output As#1 则以下错误的叙述是 A.该语句打开 C 盘根目录下一个已存在的文件 Test.Dat B.该语句在 C 盘根目录下建立一个名为 Test.Dat 的文件
6、 C.该语句建立的文件的文件号为 1 D.执行该语句后，就可以通过 Print语句向文件 Test.Dat 中写入信息（分数：1.00）A.B.C.D.12.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim I,NumRandomizeDoFor I=1 To 1000Num=Int(Rnd*100)Print Num;SelectCase NumCase 15Exit ForCase 50Exit DoCase 62，66，90EndEnd SelectNext 1LoopEnd Sub上述事件过程执行后，下列描述中正确的是_。 A
7、. Do 循环执行的次数为 1000 次 B. 当所产生的随机数为 15 时结束所有循环 C. 在 For 循环中产生的随机数小于或等于 100 D. 当所产生的随机数为 62、66 或 90 时窗体关闭、程序结束（分数：2.00）A.B.C.D.13.在窗体上画一今名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer,s As Integera=8s=1Dos=s+aa=a-1Loop While a=0Print s；aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 _。 A. 7
8、9 B. 340 C. 97 D. 死循环（分数：1.00）A.B.C.D.14.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_ClickU /Ux = 5: y = 2Call sub1(x), y)Print x; yEnd SubPrivate Sub sub1(m, n)t = m : m = n : n = tEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。 A. 2 5 B. 5 4 C. 1 4 D. 5 5（分数：2.00）A.B.C.D.15.对于顺序存储的队列，存储空间大小为 n，头指针为
9、 F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为_。 A. R-F B. n+ R-P C. (R-F+1)mod n D. (n+ R F)mod n（分数：2.00）A.B.C.D.16.下列关于 Sub 过程的叙述正确的是U /U。 A.一个 Sub 过程必须有一个 Exit Sub 语句 B.一个 Sub 过程必须有一个 End Sub 语句 C.在 Sub 过程中可以定义一个 Function 过程 D.可以用 Goto 语句退出 Sub 过程（分数：2.00）A.B.C.D.17.下列不能打开代码窗口的操作是_。 A. 双击窗体上的某个控件 B. 双击窗体 C. 按F
10、7键 D. 单击窗体或控件（分数：1.00）A.B.C.D.18.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_ Click()CommonDialog1. Flags= cd1OFNHideReadOnlyCommonDialog1. Filter=“All Files(*.*)*.*Text Files“SelectCase NumCase 15Exit ForCase 50Exit DoCase 62，66，90EndEnd SelectNext 1LoopEnd Sub上述事件过程执行后
11、，下列描述中正确的是_。 A. Do 循环执行的次数为 1000 次 B. 当所产生的随机数为 15 时结束所有循环 C. 在 For 循环中产生的随机数小于或等于 100 D. 当所产生的随机数为 62、66 或 90 时窗体关闭、程序结束（分数：2.00）A.B.C.D. 解析：解析 根据给出的程序，当 Num 值为 15 时，跳出 For 循环，并不是结束程序；当 Num 值为 50 时，跳出 Do 循环；当 Num 值为 62，66，90 时，执行 End 语句结束程序。13.在窗体上画一今名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Comman
12、d1_Click()Dim a As Integer,s As Integera=8s=1Dos=s+aa=a-1Loop While a=0Print s；aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 _。 A. 79 B. 340 C. 97 D. 死循环（分数：1.00）A.B.C. D.解析：解析 DoLoop While 循环采用的是先执行循环体再判断条件的做法。所以代码先执行了一次循环体，使得 s=9，a=7，再判断条件 a=0 为假，则终止循环。14.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command
13、1_ClickU /Ux = 5: y = 2Call sub1(x), y)Print x; yEnd SubPrivate Sub sub1(m, n)t = m : m = n : n = tEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。 A. 2 5 B. 5 4 C. 1 4 D. 5 5（分数：2.00）A.B.C.D. 解析：15.对于顺序存储的队列，存储空间大小为 n，头指针为 F，尾指针为 R。若在逻辑上看成一个环，则队列中元素的个数为_。 A. R-F B. n+ R-P C. (R-F+1)mod n D. (n+ R F)mod n（分数：2.00）A
14、. B.C.D.解析：16.下列关于 Sub 过程的叙述正确的是U /U。 A.一个 Sub 过程必须有一个 Exit Sub 语句 B.一个 Sub 过程必须有一个 End Sub 语句 C.在 Sub 过程中可以定义一个 Function 过程 D.可以用 Goto 语句退出 Sub 过程（分数：2.00）A.B. C.D.解析：解析 每个 Sub 过程必须以 Sub 开始，以 End Sub 结束；Exit Sub 语句使程序立即从一个 Sub 过程中退出，在 Sub 过程中可以使用一个或多个 Exit Sub 语句，也可以没有 Exit Sub 语句，因此选项 A 错误，选项 B 正确
15、。在 Sub 过程中不能嵌套定义 Sub 过程或者 Function 过程，不能使用 Goto 语句进入或转出一个 Sub 过程，因此选项 C、D 说法是错误的。17.下列不能打开代码窗口的操作是_。 A. 双击窗体上的某个控件 B. 双击窗体 C. 按F7键 D. 单击窗体或控件（分数：1.00）A.B.C.D. 解析：18.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_ Click()CommonDialog1. Flags= cd1OFNHideReadOnlyCommonDialog1.
16、 Filter=“All Files(*.*)*.*Text Files“&_“(*.txt)*. txtBatch Files(*.bat)*.bat“CommonDialog1. FilterIndex=2CommonDialog1. ShowOPenMsgBox CommonDialog1. filenameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 _。 A. All Files(*.*) B. Text Files(*.txt) C. Batch Files(*.bat) D. 不确定（分数：2.00）A.B. C.D.解析：解析
17、 从程序可见 FilterIndex 属性已经设为 2，所以缺省过滤器为*.txt。19.下列关于图像框控件和图片框控件的说法错误的是U /U。 A.两者都支持 Print 方法 B.两者都有 Picture 属性 C.两者都可以用 LoadPicture 函数把图形文件装入控件中 D.两者都能在属性窗口装入图形文件，也都能在运行期间装入图形文件（分数：2.00）A. B.C.D.解析：解析 图片框控件可以通过 Print 方法接收文本，并可接收由像素组成的图形；而图像框控件不能接收用 Print 方法输入的信息，也不能用绘图方法在图像框上绘制图形。20.下面程序的运行结果是U /U。 Opt
18、ion Base 1 Private Sub Commandl_Crick() Dimx,y(3，3) x=Array(1，2,3,4,5,6,7,8,9) Fori=1 To 3 Forj=1 To 3 y(i,j)=(i*j) If(j=i)Then Printy(i，j)；Nextj Print Nexti End Sub （分数：2.00）A.B.C.D. 解析：21.在运行程序的过程中，当执行“复制”(mnuEditCopy)命令时，使“粘贴”(munEditPaste)命令变为可用，则应做如下处理U /U。 A.Private Sub nuEditPaste_Click() mun
19、 EditPaste.Enable=True End Sub B.Private Sub mnuEditCopy click muEditPaste.Enable=True End Sub C.Privat Sub munEditPaste_Click() mnuEditPaste.Visible=Tme End Sub D.Private Sub munEditCopy_ClicK() munEditPaste.Visible=Tme End Sub（分数：2.00）A.B. C.D.解析：22.有如下程序，运行后输出 s 的值是_。For j=1 To 20x=2*j-1If x Mod
20、3=0 0r x Mod 7=0 Then s=s+1Next jPrint s A. 5 B. 9 C. 11 D. 15（分数：1.00）A.B. C.D.解析：解析 根据 x 和 j 的关系和 j 的范围，可知 x 的取值范围是 040 之间的奇数。在 H 语句中，实际上是统计 x 中能整除 3 或整除 7 的奇数的个数，在 x 的范围根据这个条件进行判断可知：有 9 个奇数满足条件(3，7， 9，15，2l，27，33，35，39)，结果为 9。23.目录列表框中的U /U属性用来设置和返回目录列表框中当前选中的目录。 A. Drive B. Path C. Name D. Patte
21、rn（分数：1.00）A.B. C.D.解析：解析 目录列表框无 Drive 属性，Drive 属性是驱动器列表框的属性。目录列表框无 PaRern 属性，Pattern 属性是文件列表框中的属性。Path 属性的作用是用来设置和返回目录列表框中的当前目录。Name属性是目录列表框的名称，用来标识控件。24.以下能从字符串“VisualBasic“中直接取出子字符串“Basic“的函数是 A. Left B. Mid C. String D. Instr（分数：2.00）A.B. C.D.解析：解析 Left(字符串,n)函数的功能是返回“字符串”的前 n 个字符；Mid(字符串,p,n)函数
22、的功能是从第 p 个字符开始，向后截取 n 个字符；String(n,字符)函数的功能是返回由 n 个指定字符组成的字符串；InStr(字符串 1，字符串 2)函数功能是在“字符串 1”中查找“字符串 2”，如果找到了，则返回“字符串 2”的第一个字符在“字符串 1”中的位置，其返回值是数值。只有 Mid 函数能直接取出子字符串”Basic”。25.若要使某命令按钮获得控制焦点；可使用的方法是_。 A. LostPoeus B. SetFocus C. Point D. Value（分数：2.00）A.B. C.D.解析：26.在数据库设计中，将 E-R 图转换成关系数据模型的过程属于_。 A
23、.需求分析阶段 B.逻辑设计阶段 C.概念设计阶段 D.物理设计阶段（分数：2.00）A.B. C.D.解析：27.当一个复选框被选中时，它的 Value 属性的值是U /U。 A.3 B.2 C.1 D.0（分数：2.00）A.B.C. D.解析：解析 复选框的 Value 属性可以设置为三种：0Unc)1ecked，表示没有选择该复选框；1checked，表示选中该复选框；2Grayed，表示该复选框被禁用(灰色)。28.Visual Basic 根据计算机访问文件的方式将文件分成 3 类，其中不包括U /U。 A. 顺序文件 B. Unix 文件 C. 二进制文件 D. 随机文件（分数：
24、2.00）A.B. C.D.解析：解析 本题考查 VB 文件的分类。VB 中根据文件的访问形式分为顺序文件、随机文件和二进制文件。29.可决定窗体的左上角是否有控制菜单的属性是_。 A. ControlBox B. MinButton C. MaxButton D. BorderStyle（分数：2.00）A. B.C.D.解析：30.数据库系统的核心是U /U。 A. 数据库 B. 数据库管理系统 C. 模拟模型 D. 软件工程（分数：2.00）A.B. C.D.解析：解析 数据库管理系统(Database Management System, DBMS)是数据库的机构，它是一种系统软件，负
25、责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等，数据库管理系统是数据库系统的核心。31.引用列表框(List1)最后一个数据项应使用的表达式是 A. List1.List(List1.ListCount) B. List1.List(List1.ListCount-1) C. List1.List(ListCount) D. List1.List(ListCount-1)（分数：2.00）A.B. C.D.解析：解析 列表框的数据项存在列表框的 List 属性中，该属性为一个数组。要找到其最后一个数据项，只需找到它的最大下标即可。List1.ListCount 表示列表项的个
26、数，由于 List 属性的下标从 0 开始，所以最大下标为 List1.ListCount-1，所以引用列表框(List1)最后一个数据项的形式为：List1.List(List1.ListCount-1)，故本题答案为 B。32.在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示”打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为.DOC 的文件，则对通用对话框的 Filter 属性的正确设置是： _。 A. “(*.DOC) *.DOC“ B. “(*.DOC) |(.DOC) “ C. “(*.DOC) |*.DOC“ D. “(*.DOC) |“.DOC“
27、 （分数：1.00）A.B.C.D. 解析：解析 ConunonDialog1.Filter=“(*.DOC)|*DOC”，通过 ShowOpen 方法显示“打开”对话框时对话框的“文件类型”栏中只显示扩展名为.DOC 的文件。33.通过以下 _ 窗口可以在设计时直观的调整窗体在屏幕上的位置。 A. 代码窗口 B. 窗体布局窗口 C. 窗体设计窗口 D. 属性窗口（分数：1.00）A.B. C.D.解析：解析 Form Layout window 即窗体布局窗口，允许使用表示屏幕的小图像来布置应用程序中各窗体的位置。34.窗体上有一个名称为 Option1 的单选按钮控件。当程序运行，并单击某
28、个单选按钮时，会调用下面的事件过程：Private Sub Option1_Click(Index As Integer)End Sub下面关于此过程的参数 Index 的叙述中正确的是U /U A.Index 为 1 表示单选按钮被选中，为 0 表示未选中 B.Index 的值可正可负 C.Index 的值用来区分哪个单选按钮被选中 D.Index 表示数组中单选按钮的数量（分数：2.00）A.B.C. D.解析：解析 当单击单选按钮时，Index 值用来表示哪个单选按钮被选中了，所以 C 选项正确。35.算法是指_。 A. 计算机程序 B. 解决问题的计算方法 C. 排序算法 D. 解决问
29、题的有限运算序列（分数：2.00）A.B.C.D. 解析：解析 算法是指对解决方案准确而完整的描述。二、B填空题/B(总题数：2，分数：22.00)以下程序用来产生 20 个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。Private Sub Command1_Clcik()RandomizeFor I=1 To 20X=Int(Rnd*_)If X/2=_Then Print xNext IEnd Sub（分数：16.00）填空项 1:_ （正确答案：98+1）解析：填空项 1:_ （正确答案：Int(X/2)或 X/2）解析：(3).在名称为 Form1 的窗体上绘制一个文本
30、框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Private Sub Form Click() Open “d：/test/smtext1.txt“ For Input As #1 Do While Not Line Input #1，aspects whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open “d：/test/smtext2.txt“ For Output As #1 Print #1, _ Close #1 E
31、nd Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。（分数：1.60）填空项 1:_ （正确答案：EOF(1) Text1.Text 或 Text1 或 Form1.Text1.Text 或 Form1.Text1 或 Me.Text1.Text 或 Me.Text1）解析：解析 本题考查文件操作。文件操作是考试难点，也是众多考生认为困难的内容。首先把磁盘文件 smtext1.txt 的内容读到内存，如何判断文件是否读取完成呢? EOF 函数的功能就是当文件指针到达文件尾部时返
32、回 True，否则返回 False，当 EOF(文件号)可以判断是否读取完成。 Linelnput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个 aspect$变量，然后进行相应运算，Chr(13)+Chr(10)的功能是回车换行。最后将 whole$变量的值显示在文本框中，然后关闭#1 文件。接下来就是如何把文本框中的内容存入文件中，这里使用 Open “d：/test/smtext2.txt“ ForOutput As #1，该语句可以打开d：/test/目录下的名为 smtext2.txt 的文件，如果不存在，该语句将创建一个名为 smtext2.txt 的文件。文件的写入是
33、由 Print #语句实现，考生需要注意区分 Print #语句与 Write #语句的区别。(4).下列程序的输出结果为_。 Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub（分数：1.60）填空项 1:_ （正确答案：1 1 1）解析：解析 Space(Integer)函数的功能是返回指定数目空格：Trim 函数的功能是去掉字符串两边的空白字符，注意 Trim(B)不能将字符中间的空白字符去掉。B=A &Space(4)&A 的结果是“1 1”(中间有 4 个空格)。(5).假设有以
34、下程序段： For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next j Next i 则语句Print i*j 的执行次数是_，i 的值为_，j 的值为_。（分数：1.60）填空项 1:_ （正确答案：15 4 0）解析：解析 本程序是一个双重 For 循环，外层循环循环变量 i 从 1 到 3，共循环 3 次；内层循环从 5到 1 每次递减 1，共循环 5 次，这样一共循环 15 次。循环结束时，j 的值是 0；i 的值是 4。(6).关键字 ASC 和 DESC 分别表示U U /U /U的含义。（分数：1.60）填空项 1:_ （正确答案：
35、【5】升序排列和降序排列）解析：解析：ASC 表示升序排列，DESC 表示降序排列，多用在索引定义和 SELECT 语句中的 ORDER 子句中。(7).关系模型允许定义 3 类数据约束，它们是U U /U /U约束、参照完整性约束以及用户定义的完整性约束。（分数：1.60）填空项 1:_ （正确答案：实体完整性）解析：解析 关系模型允许定义 3 类数据约束，它们是实体完整性约束、参照完整性约束以及用户定义的完整性约束，其中前两种完整性约束是关系数据库所必需遵守的规则。对于用户定义的完整性约束，则由关系数据库系统提供完整性约束语言，用户利用该语言写出约束条件，运行时由系统自动检查。(8).表达
36、式 Len(Str(1.3)Mod 2 的值为_。（分数：1.60）填空项 1:_ （正确答案：0）解析：解析 解本题之窍门有两点；运算的先后顺序，这里应该是 Str 函数Lea 函数Mod(取模)计算；Str 函数和 Len 函数的功能，前者是将数字转为字符串，注意转换后数字前头会保留一空位表示正负。表达式 Len(Str(1.3)Mod 2 中 1.3 转换后为“_1.3”(“_”表示空格)。Len 函数用来计算字符串的长度，“1.3”长度为 4(空格、小数点各算一个长度)。(9).一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的U U /U /U。（分数：1.6
37、0）填空项 1:_ （正确答案：可重用性）解析：解析 本题考查了继承的优点：相似的对象可以共享程序代码和数据结构，从而大大减少了程序中的冗余，提高软件的可重用性。(10).如图所示，在列表框 Listl 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项：若未找到，则在 Text2 中显示“查无此人”。请填空。 （分数：1.60）填空项 1:_ （正确答案：【14】Text1 【15】Listl.List(
38、k)）解析：解析 本题是把 Text1 中的内容与 Listl 中的项目逐个比较，而比较的时候，是先求出 Text1 中内容的长度，即 n=Len(Text1)，再从 Listl 的项目中取出相同长度的内容与 Text1 的值进行比较，如果找到，则把项目显示到 Text2 中，即 Text2=Listl.List(k)。以下程序的功能是从随机产生的 20 个 20200(含 20 和 200)的整数中，找出能够同时被 3 和 5 整除的数的最大值，并显示出来。请填空。Option Base 1Private Sub Command1_Click()Dim a(20) As Integerm=0
39、For i=1 To 20a(i)=Int(Rnd*_)+20If a(i) Mod 3=0 _a(i) Mod 5=0 ThenIf a(i)m Then m=a(i)End IfNextIf _ ThenPrint“没有满足条件的数“ElsePrint“满足条件的数是“；mEnd IfEnd Sub（分数：6.00）填空项 1:_ （正确答案：181）解析：解析 因为要得到 20200(含 20 和 200)的整数，Rnd 函数只能生成0，1)的数据，乘以 181 后得到0，181)的数据，取整后加上 20 即得到了20，201)的整数，也就是20，200。填空项 1:_ （正确答案：And）解析：解析 因为是能同时被 3 和 5 整除，因此中间的连接词应该使用 And。填空项 1:_ （正确答案：m=0）解析：解析 如果 m 没有被赋值过，也就是 m=0 时说明没有满足条件的数据。
