二级VISUAL+BASIC101.docx

1、二级VISUAL+BASIC101二级VISUAL BASIC-10-1(总分：68.00，做题时间：90分钟)一、选择题(总题数：25，分数：39.50)1.在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption=1234 a=a*a End Sub Private Sub Form_Load() Label1.Caption=ABCD Label2.Caption=10 End Sub Private Sub Comma

2、nd1_Click() a=Val(Label2.Caption) Call func(Labell，A) Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 _。（分数：1.00）A.ABCD和10B.1234和100C.ABCD和100D.1234和10解析：解析 单击命令按钮后变量a赋初值a=10，通过Call调用函数后，Labell.Caption=1234，而由于参数a是按值传递的，所以调用完函数后变量a的值在单击事件中并没有改变，所以执行语句Label2Caption=a后， Label2中显示的值仍为

3、10。2.有如下程序： Option Base 1 Private Sub Form Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：1.00）A.25B.26C.27D.28解析：解析 Option Base 1表示数组的下标是从1开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,

4、15,17,19)，即a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)-17,a(10)=19，而在循环语句中就是要求把能被3整除的数加起来，即4(2)+a(5)+a(8)=3+9+15=27。3.在深度为5的满二叉树中，叶子结点的个数为 _。（分数：1.00）A.32B.31C.16D.15解析：解析 所谓满二叉树是指这样的一种二叉树：除最后一层外，每层上的所有结点都有两个子结点。这就是说，在满二叉树中，每一层上的结点数都达到最大值，即在满二叉树的第K层上有2 k-1 个结点，且深度为m的满二叉树有2 m 个结点。

5、在满二叉树中，最后一层的结点个数就是叶子结点的个数，本题中深度为5，故叶子结点数为2 5-1 =2 4 =16。4.Visual Basic中的“启动对象”是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic“启动对象”的描述中，错误的是（分数：2.50）A.“启动对象”可以是指定的标准模块B.“启动对象”可以是指定的窗体C.“启动对象”可以是Sub Main过程D.若没有经过设置，则默认的“启动对象”是第一个被创建的窗体解析：解析 对于多重窗体程序，必须指定其中某一个窗体为启动窗体，如果未指定，设计时的第一个窗体默认为启动窗体。只有启动窗体

6、才能在运行程序时自动显示出来，其他窗体必须通过Load及Show方法才能看到。在一个应用程序中，有时候需要在显示多个窗体之前对一些条件进行初始化，这就需要在启动程序时执行一个特定启动过程，并命名为Sub Main，它类似于C语言中的Main函数。一个工程可以含有多个标准模块，但Sub Main过程只能有一个，并且通常被用作启动过程。5.在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序： Private Sub Command1_Ctick() For I=1 TO 2 For J=1 TO I Print String(I，Hello)； Next J Print Next I

7、 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.HHHHHB.HHHHHC.HHHHHD.HHHHHHH解析：解析 Click事件是在按钮控件上按下然后释放一个鼠标按钮时发生。Print函数用于在指定窗口显示文本。String函数返回包含指定长度重复字符的字符串。题中嵌套For循环，第一次i=1，故for j=1 to 1，输出H，内层J循环结束，输出空行。第二次i=2，故for j=1 to 2，内层J循环2次，输出HHHH，内层J循环结束，输出空行，I循环结束。6.在计算机中，算法是指 _。（分数：2.00）A.查询方法B.加工方法C.解题方案的

8、准确而完整的描述D.排序方法解析：解析 计算机算法是指解题方案的准确而完整的描述，它有以下几个基本特征：可行性、确定性、有穷性和拥有足够的情报。7.有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是 （分数：2.00）A.Private Sub Form_Click()PopupMenu cutEnd SubB.Private Sub Command1 Click()PopupMenu editEnd SubC.Private Sub Form_Click()PopupMenu editEnd SubEnd SubD.Private S

9、ub Form_lick()PopupMenu cutPopupMenu paste解析：8.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据： Private Sub Command1_Click() Dim s1 As String, s2 As String Open c:/d4.dat For Append As #3 Line Input#3, s1 Line Input#3, s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误，应该进行的修改是（分数：2.00）A.将Open语句中的

10、ForAppend改为ForInputB.将LineInput改为LineC.将两条Line Input语句合并为Line Input #3, s1, s2D.将Close语句改为Close #3解析：解析 Visual Basic程序中关于文件的操作，主要是先打开一个文件，然后对这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：Open FileName For Mode As #FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的，其

11、中Output、Append打开的文件主要用来输出数据，与Print#、Write#等方法配合使用；以Input方式打开的文件主要用来读入数据，它与Input#、Line Input#语句配合使用。9.在关系数据库中，实现主码标识元组的作用是通过_。（分数：1.00）A.实体完整性规则B.参照完整性规则C.用户自定义的完整性D.属性的值域解析：10.下面子过程语句说明合法的是_。（分数：2.00）A.Sub f1(sl As String*8)B.Sub f1(nAs Integer)As IntegerC.Function f1(f1 As Integer)As IntegerD.Funct

12、ion f1(ByVal n As Integer)解析：解析 在选项A中，在定义Sub过程时，形参不能用定长字符串变量或定长字符串数组作为形式参数；在选项B中，过程名不能被指定其数据类型；在选项C中，函数名与形参名不能同名。只有选项D是正确的。11.设有语句： Temp=MsgBox(继续执行吗,vbYesNo,退出提示框) 程序运行时，在对话框的标题栏将显示 _ 。（分数：1.00）A.继续执行吗B.vbYesNoC.退出提示框D.Temp解析：解析 MsgBox函数用于向用户发布提示信息，并要求用户作出必要的响应。该函数的前三个参数的含义如下：第一个参数是消息框中的提示文字：第二个参数的

13、用来指示消息框中显示的按钮、图标和默认按钮等：第三个参数是对话框的标题。12.确定个控件在窗体上的位置的属性是（分数：1.00）A.Width和fteightB.Width或IteightC.Top和LeftD.Top或Left解析：解析 确定一个控件在窗体中的位置，用Top与Left属性，前者确定控件与窗体上端的距离，后者确定控件与窗体左端的距离。确定一个控件在窗体上的位置要由这两个属性共同决定。A、B项是Width与HeisLt属性确定控件本身的高度与长度。13.在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub F

14、orm_Load() List1. AddItemItem1 List1AddItemItem2 List1. AddItemItem3 End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=AAAA End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添到列表框的最后(即“Item3”的后面)C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)解析：解析

15、 列表框的List属性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从0开始，最后一项的序号为ListCount-1。本程序的功能是：把字符串“AAAA”添加到列表框的最后，但不改变Item3的值。14.如果要改变窗体的标题，需要设置窗体对象的 _ 属性。（分数：1.00）A.NameB.CaptionC.BackColorD.BorderStyle解析：解析 窗体的Caption属性决定了窗体对象在显示时的标题。15.下列关于Sub过程的叙述正确的是 _ 。（分数：2.00）A.一个Sub过程必须有一个Exit Sub语句B.一个Sub过程必须有一个End Sub语句C.

16、在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程解析：解析 每个Sub过程必须以Sub开始，以End Sub结束；Exit Sub语句使程序立即从一个Sub过程中退出，在Sub过程中可以使用一个或多个Exit Sub语句，也可以没有Exit Sub语句，因此选项 A)错误，选项B)正确。在Sub过程中不能嵌套定义Sub过程或者 Function过程，不能使用Goto语句进入或转出一个Sub过程，因此选项C)、选项D)说法是错误的。16.下列程序段的执行结果为 _。 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print

17、X-Y; Y-X（分数：1.00）A.-3 3B.5 -8C.3 -3D.25 -25解析：解析 IFElse语句 跟踪程序：在IP语句中，因为x=50，所以Not X0为假，执行Else分支，即y=5+3=8 所以打印的结果应当为： X-Y=5-8=-3 y-X=8-5=3。17.Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符号是H，八进制数的开头符号是 _ 。（分数：2.00）A.$OB.OC.$ED.E解析：解析 本题考查Visual Basic-中的数值表示规则。十六进制以H开头；八进制以O开头。18.下列对变量的定义中，不能定义a为变体变量的是（分数：

18、2.00）A.Dim a As DoubleB.Dim a As VariantC.Dim aD.a=24解析：解析 本题的难点是变体类型变量的概念。任何未经说明的变量，Visual Basic都将自动设置为变体类型变量。19.如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性（分数：2.00）A.ValueB.VisibleC.EnabledD.Default解析：解析 Visible属性是命令按钮的状态属性，如果将该属性设为True，则命令按钮可见；如果设置成Flase，则命令按钮不可见。20.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属

19、性，预先应执行的操作是_。（分数：1.00）A.单击窗体上没有控件的地方B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏解析：解析 单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故A选项正确。 单击任意一个控件，在属性窗口中出现的是该控件的属性，放B选项错误；双击任意一个控件，打开的是“代码窗口”，故C选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故D选项错误。21.在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程： Private Sub Comm

20、and1_Click() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为 _ 。（分数：2.00）A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息解析：解析 数组控件的Index属性默认从0开始，因此这4个文本框的Index值分别为0、1、2、3。题中通过 For Each循环，依次将每个文本框的Index属性值赋给它自己的Text属性，因此，运行程序后，文本框显示的内容为0、1、2、3。22.下列关于结构化设计方法的特点描述中，不

21、正确的是 _ 。（分数：1.00）A.采用逐步求精的方法进行详细设计，由于相邻步之间变化小，易于验证其等效性和设计正确性B.程序清晰和模块化使得修改和重新设计一个软件时使用的代码量不大C.在进行程序设计时不能使用goto语句D.良好清晰的控制结构使设计容易阅读和理解解析：解析 题中选项A、B、D所述均为结构化设计方法的特点。在进行程序设计时可以使用goto语句，但要严格控制。因此选项C的叙述是错误的。23.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 1

22、0)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.15B.14C.13D.12解析：解析 数组Arrayl的部分元素在双重循环中被初值，其规律为：数组元素的值是两个下标值的之和，所以Arrayrl(2，3)=5，Arrayl(3，4)=7。表达式“Arrayl(2，3)+Arrayl

23、(3，4)”的计算结果为12。24.在下列叙述中，不正确的一条是 _。（分数：1.00）A.数据库设计包括结构设计和行为设计两方面的内容B.数据库设计的关键是结构特征的设计C.数据库设计是数据库应用系统设计的核心部分D.数据库的物理设计和具体的DBMS的类型无关解析：解析 数据库设计包括结构设计和行为设计两方面的内容，其中结构设计是确定数据库的数据模型，行为设计是应用程序的设计。结构设计是数据库设计的关键和核心，因此，选项A、B和C都是正确的。数据库的物理设计依赖于给定的计算机，不同类型的DBMS所提供的物理环境不同，物理结构有很大差别。25.下面语句中能够打开随机文件的是（分数：2.00）A

24、.Openfile.txtFor Random As #1B.Openfile.txt For Input As #1C.Openfile.txt For Output As #1D.Openfile.txt For Append As #1解析：解析 Visual Basic程序中关于文件的操作，主要是先打开一个文件，然后对这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：Operi FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式，其中打开随机文件使用Random方式打开。二

25、、填空题(总题数：14，分数：28.50)26.设一棵完全二叉树共有500个结点，则在该二叉树中有 _ 1_ 个叶子结点。 （分数：1.00）解析：250 解析 所谓完全二叉树是指除最后一层外，每一层上的结点数均达到最大值；在最后一层上只缺少右边的若干结点。 具有n个结点的完全二叉树，其父结点数为int(n/2)，而叶子结点数等于总结点数减去父结点数。本题n=500，故父结点数等于int(500/2)=250，叶子结点数等于500-250=250027.数据结构包括数据的逻辑结构、数据的 _ 1_ 以及对数据的操作运算。 （分数：2.00）解析：存储结构解析 数据结构包括3个方面，即数据的逻辑

26、结构、数据的存储结构及对数据的操作运算。28.数据模型按不同应用层次分成3种类型，它们是概念数据模型、 1和物理数据模型。 （分数：2.00）解析：逻辑数据模型29.通用对话框控件可通过调整其Action属性而改变成各种实用的对话框，但它不能改变成 1对话框。 （分数：2.00）解析：设詈30.假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为 _ 1_ 。 （分数：1.00）解析：n(n-1)/2解析 假设线性表的长度为n，则在最坏的情况下，冒泡排序要经过n/2遍的从前往后的扫描和n/2遍的从后往前的扫描，需要比较次数为n(n-1)/2。31.单击命令按钮后，下列程序代码的执行结

27、果是 1 。 Public Sub fun (Byval a () As Integer) Static n As Integer Do a(n) = a (n) + a(n + 1) n = n + 1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, a(10) As Integer For n = 0 To 2: a(n) = n + 1: Next n For n = 1 To 2: Call fun(a): Next n For n = 0 To 3: Print

28、a(n): Next n End Sub （分数：2.00）解析：编译错误在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click( ) Text1.Text = InputBox(请输入数据1) Text2.Text = InputBox(请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为 7 和 8 。（分数：4.00）解析：123解析：abc32.要使一个文本框具

29、有水平和垂直滚动条，应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为 1。 （分数：2.00）解析：333.下列程序弹出对话框中按钮的个数为 1。 MsgBox确认!,vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,提示 （分数：2.00）解析：4 解析 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。MsgBox函数的第二个参数用来控制在对话框中显示的按钮、图标的种类及数量，共分为4组，如下表所示。 组 文字常数 值 描述 第 一 组 vbOKOnly 0 只显示确定(OK)按钮 vbOKCancel 1 显示确定(OK)及取消(Cencel)按钮 vbAbortRetryIgnore 2 显示终止(Abort)、重试(Retry)、及忽略(Ignore)按钮 vbYesNoCancel 3 显示是(Yes)、否(No)及取消(Cancel)按钮 vbYesNo 4 显示是(Yes)及否(No)按钮 vbRetryCancel 5 显示重试(Retry)及取消(Cancel)按钮 第 二 组 vbCritical 16 显示图标 X vbQu