[计算机类试卷]国家二级（VB）机试模拟试卷41及答案与解析.doc

《[计算机类试卷]国家二级（VB）机试模拟试卷41及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级（VB）机试模拟试卷41及答案与解析.doc（30页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级（ VB）机试模拟试卷 41及答案与解析 一、选择题 1 如果一个复选框被选中，则 （ A）它的 Caption 属性的值为 1 （ B）它的 Value属性的值为 1 （ C）它的 Value属性的值为 True （ D）其他复选框被自动设置为未选中 2 在窗体上建立一个标签数组，名称为 Label1，下标从 0开始，自左至右顺序增大，然后编写如下事件过程： Private Sub Form_Click() For Each Label In Label1 Label1(i).Caption = Label1(i).Index i = i + 1 Next End Sub 运行程序，

2、单击窗体，在 4个标签（从左至右）中显示的内容分别为 （ A） 0 1 2 3 （ B） 1 2 3 4 （ C） 3 2 1 0 （ D）出错 3 设列表框的名称为 List1，则下列与 List1.Text中的值相同的属性值是 （ A） List1.ListCount （ B） List1.List(List1.ListIndex) （ C） List1.List(ListCount-1) （ D） List1.ListIndex 4 下面关于直线控件的叙述中正确的是 （ A）改变 X1、 Y1、 X2、 Y2属性的值，可以改变直线显示的长短和方向 （ B） X1、 Y1属性的值表示直线左

3、端点的坐标 （ C）如果属性 X1的值等于属性 X2的值，则说明直线是水平显示的 （ D）上述都是正确的 5 有如下程序代码： Private Sub Form_Click() Dim Sum As Integer Sum = 0 While Sum = a(k) Then a(k + 1) = x Exit Do Else a(k + 1) = a(k) If k = 0 Then a(k) = x k = k - 1 End If Loop Until k 18 Print a End Sub 程序运行过程中单击窗体，输出结果是 （ A） 1 （ B） 20 （ C） 16 （ D） 21

4、 10 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写以下程序代码： Option Base 1 Private Sub Command1_Click() Dim arr1(4, 4) As Integer Dim i As Integer, j As Integer For i = 1 To 2 For j = 2 To 3 arr1(i, j) = i + j * 10 Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 运行程序，单击 Command1，则在文本框 Text1中显

5、示的结果为 （ A） 75 （ B） 23 （ C） 57 （ D） 32 11 执行以下程序时，在窗体上单击鼠标后，将出现输入对话框，此时，直接按下回车键，窗体上的输出结果是 Private Sub Form_Click() Dim S As String S = InputBox(“input data“, “important“, “学习 VisualBasic“) Print UCase(Mid(S, InStr(S, “i“), 2) End Sub （ A） IN （ B） IM （ C） IS （ D） IC 12 设有工程文件 Proj，其中含有 Form1窗体、 Form2窗

6、体、标准模块Module1.bas，在 Form1窗体模块的通用声明段中书写了如下语句 Public X As Integer，在 Form1窗体模块中还定义了通用过程 LocalSub。则以下说法中正确的是 （ A）可以在整个 Proj工程中的所有模块中使用变量 X （ B）只能在窗体 Form1和 Form2中使用变量 X，但不能在标准模块 Module1中使用变量 X （ C）在标准模块 Module1中可以使用变量 X，但在窗体 Form2中不能使用变量 X （ D）变量 X的作用范围不包含 Form1中的 LocalSub 13 下面关于数组声明： Dim arr() As Inte

7、ger 的叙述中正确的是 （ A） arr是整型数组，其元素个数是默认值，为 10 （ B） arr是整型数组，其元素个数不确 定，需要在后面再用 ReDim语句定义 （ C） arr是无参数的函数，其返回值的类型是整型 （ D）上述都是错误的 14 下列关于 Sub Main过程的说法中正确的是 （ A） Sub Main过程属于通用过程 （ B） Sub Main过程属于事件过程 （ C） Sub Main过程必须出现在窗体模块中 （ D） Sub Main过程不能作为启动对象 15 下面关于菜单的叙述中正确的是 （ A）程序运行时，菜单上显示的是菜单项的名称（ Name属性的值） （ B

8、）要想使某个菜单项被选中时能够完成某项任务，必须 为它编写事件过程 （ C）如果用菜单编辑器编辑了一个下拉式菜单，程序中所有窗体都会显示这个菜单 （ D）要显示弹出式菜单，应调用该菜单的 PopupMenu方法 16 设通用对话框的名称为 CommonDialog1，执行语句 CommonDialog1.Action = 3，则打开的对话框是 （ A）颜色对话框 （ B）字体对话框 （ C）打开文件对话框 （ D）保存文件对话框 17 在窗体上画一个名称为 Text1的文本框，然后编写如下事件过程： Private Sub Form_Load() Text1.Text = “ End Sub

9、Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt = 4 Const Key_F2 = C Next i End Sub 以上程序的功能是 （ A）输出从键盘上输入的字符串，计算其长度并输出 （ B）输出从键盘上输入的字符串，统计字符串中字符 “D“的个数并输出 （ C）输出从键盘上输入的字符串，找出其中的字符 “D“并输出 （ D）把从键盘上输入的字符串中的所有字符换成字符 “D“并输出 20 Private Sub Command1_Click() Dim x As Integer, y As

10、 Integer Dim s As String s = “2013-2014“ x = Int(Rnd(1) + 100 y = Val(Left(s, 3) Select Case x + y Case Is 301 Print “分支 1“ Case 300 To 301 Print “分支 2“ Case Is = Abs(X) （ B） Int(X) = Abs(X) （ C） Int(X) Abs(X) 34 要求在窗体中定义一个变量 x，在本窗体所有过程中都可以访问它，而在其他模块中不能访问，则该变量的定义是 （ A）在本窗体的某 个过程中写语句： Dim x （ B）在本窗体所

11、有过程之前写语句： Dim x （ C）在本窗体所有过程之前写语句： Public x （ D）在本窗体的所有过程中写语句： Dim x 35 以下叙述中错误的是 （ A）对象具有属性、方法等成员 （ B）对象可以识别预先定义的事件 （ C）一个对象中包含数据及其对这些数据的相关操作 （ D）对象的属性值一经初始化，则不能再改变 36 以下叙述中正确的是 （ A）影响窗体上某个文本框的 Tab顺序的属性是 TabStop （ B）语句 Me.Text = “Visual Basic“用于设置当前窗口的标题信息 （ C）用于获取文本框中当前被选中文本的属性为 SelText （ D）要获取水平滚

12、动条中当前滚动块的位置应使用其 Position属性 37 下面关于组合框 Cb1的叙述中正确的是 （ A）程序运行时，列表项可以多选 （ B）鼠标单击一个列表项后， Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值 （ C）利用 Selected属性可以判断哪个列表项被选中了 （ D）组合框不响应 Change事件 38 下面关于组合框 Cb1的叙述中正 确的是 （ A）程序运行时，列表项可以多选 （ B）鼠标单击一个列表项后， Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值 （ C）利用 Selected属性可以判断哪个列表项被

13、选中了 （ D）组合框不响应 Change事件 39 在列表框或组合框中，能够表示当前被选中列表项序号的是 （ A） ListIndex （ B） Index （ C） TopIndex （ D） List 40 要在程序运行过程中把 Command1按钮的标题修改为 “按钮 “，正确的做法是 （ A）在属性窗口 中把 Command1按钮的 Caption属性改为 “按钮 “ （ B）在程序中执行语句： Command1.Caption = “按钮 “ （ C）在属性窗口中把 Command1按钮的 Text属性改为 “按钮 “ （ D）在程序中执行语句： Command1.Text = “

14、按钮 “ 二、基本操作题 41 (1)在名称为 Form1、标题为 “鼠标光标形状 ”的窗体上添加一个文本框，名称为Text1。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头 (Arrow)形状；在窗体中其他位置处，鼠标光标为 十字 (Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加两个名称分别为 Lahel1、Label2，标题分别为 “开始位置 ”、 “选中字符数 ”的标签；添加三个文本框，名称分别为 Text1、 Text2、 Text3，

15、再添加一个名称为 Command1、标题为 “显示选中信息 ”的命令按钮。程序运行时，在 Text1中输入若干字符，并用鼠标选中部分文本后，单击 “显示选中信息 ”按钮，则把选中的第一个字符的顺序号在 Text2中显示，选中的字符个数在 Text3中显示，如图所示。 要求：画出所有控件，编写命令按钮的 Click事件过程。 注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名保存为 sit2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)在考生目录下有一个工程文件 sjt3

16、 vbp，窗体上有一个圆和一条直线 (直线的名称为 Linel)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为 “开始 ”、 “停止 ”；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击 “开始 ”按钮，则钟表上的指针 (Linel)开始顺时针旋转 (每秒转 6，一分钟转一圈 )；单击 “停止 ”按钮，则指针停止旋转。运行时的窗体如图所示。 请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；并编写两个按钮的 Click事件过程。 注意：文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件

17、过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件 名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图所示 )。 在给出的窗体文件中已给出全部控件，但程序不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 四、综合应用题 43 在窗体上建立三个菜单项 (名称分别为 Read、 Calc和

18、 Save，标题分别为 “读人数据 ”、 “计算并输出 ”和 “存盘 ”)，然后添加一个文本框 (名称为 Textl， MultiLine属性设置为 True， ScroUBars属性设置为 2)(如图所示 )。程序运行后，如果执行 “读人数据 ”命令，则读人 datainl txt文件中的 100个整数，将其放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”命令按钮，则把该数组中可以被 3整除的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上；如果单击 “存盘 ”命令，则将所求得的和存入考生文件夹下的 dataout txt文件中。 在考生文件夹下有一个工程文件 sjt

19、5 vbp。窗体文件中的 ReadData过程可以把datainl txt文件中的 100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名保存为sjt5 vbp，窗体文件名保存为 sjt5 frm。 国家二级（ VB）机试模拟试卷 41答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 复选框 Value属性，用来返回或设置复选框的状态，其取值为： 0-Unchecked 为默认值，表示没有选中该复选框； 1-Che

20、cked 表示选中该复选框； 2-Grayed 表示复选框被禁止。故本题正确答案为 B 选项。 2 【正确答案】 A 【试题解析】 控件数组由一组具有相同名称和类型，且事件过程也相同的控件组成，每个控件（相当于数组元素）都有唯一的索引号（ Index，相当于数组元素的下标）。标签 Label1.Caption 用来显示在标签标题中显示的文本。由题知，标签数组 Label1，下 标从 0开始，自左至右按顺序增大，故 Label1(0).index = 0；Label1(1).index = 1； Label1(2).index = 2； Label1(3).index = 3；故本题正确答案为A

21、。 3 【正确答案】 B 【试题解析】 列表框的 List属性用来列出或设置列表项的内容； ListIndex设置返回当前被选择项目的索引号； ListCount返回列表框中项目数量的数值。List1.List(List1.ListIndex)返回索引为 List1.ListIndex 的值，题目 List1.Text返回当前被选择项目的内容，故正确答案为选项 B。 4 【正确答案】 A 【试题解析】 X1， Y1 表示直线的起点坐标，选项 B 错误； X1 和 X2的值相等，表示直线是垂直显示的，选项 C错误。故正确答案为选项 A。 5 【正确答案】 C 【试题解析】 While循环只有在

22、“条件 “为真（ True）的情况下执行循环体。如果条件从一开始不成立，则一次循环也不执行。本题程序运行时， sum=0，符合条件sum18为假，执行循环体， a=6+5=11，由于1118为假，继续执行循环体，得 a=11+5=16，由于 1618为假，继续执行循环体，得 a=16+5=21， 2118为真，结束循环。故本题正确答案为 D。 10 【正确答案】 D 【试题解析】 程序开头定义了 Option Base 1 这时定义二维数组下标从 1开始；arr1(1,2)=1+2*10=21； arr1(1,3)=1+3*10=31； arr1(2,2)=2+2*10=22；arr1(2,3

23、)=2+3*10=32；整型数组中未定义的数组元素值均默认为 0。故arr1(2,3)+arr1(3,4)=32+0=32；本题正确答案为 D。 11 【正确答案】 C 【试题解析】 InputBox 函 数的格式为 InputBox(prompt， title ， default ，xpos， ypos ， helpfile,context），题中 prompt： “input data“用来提示用户输入； “important“是对话框的标题。 default： “学习 VisualBasic“即输入对话框的默认显示信息，并在用户没有输入的情况下，作为默认输入。因此在出现对话框时，直接按回

24、车键，故 S 的值为默认值即 S=“学习 VisualBasic“。字符串匹配函数Instr(s1,s2):在字符串 s1 中查找 s2的位 置，返回值为 s2的第一个字符在 s1中的位置，若找不到，则返回值为 0。 InStr(S, “i“)在字符串 “学习 VisualBasic “中查找“i“的位置，返回值为 4。 Mid (s,n1， n2)是字符串截取函数，从 s的第 n1个字符开始，向后截取 n2个字符，故 Mid(S,4,2)=is； UCase函数将字符串中的小写字母转换为大写字母。故正确答案为 C选项。 12 【正确答案】 A 【试题解析】 全局变量的作用域最大，也称为全程变

25、量，可作用于整个应用程序中的每个模块和过程。全局变量必须用 Public或 Global 语句声明。故本题正确答案为 A。 13 【正确答案】 B 【试题解析】 arr是整型数组，其元素个数不确定，需要在其后通过 ReDim语句来定义。本题正确答案为 B。 14 【正确答案】 A 【试题解析】 Sub Main 过程属于通用过程，不是事件过程，选项 B错误；如果一个应用程序中有多个窗体，如果需要在运行窗体程序之前先执行一些操作，可以将这些操作写在 Sub Main 过程中，选项 C错误；单击对话框中的 “启动对象 “框右端的箭头，显示出当前工程中各窗体的名字和 Sub Main，可以定义 启动

26、工程时先启动的窗体或 Sub Main，选项 D错误；故正确答案为选项 A。 15 【正确答案】 B 【试题解析】 程序运行时，菜单上显示的是标题（ Caption属性值）而不是Name属性值。故选项 A错误；用菜单编辑器编辑了一个下拉式菜单，程序中所有窗体都会显示这个菜单。显然错误，只能在当前窗体中显示。故选项 C错误；显示弹出式菜单，首先用菜单编辑器建立菜单，然后再调用 PopupMenu 方法弹出显示，故选项 D错误；本题正确答案为 B。 16 【正确答案】 A 【试题解析】 通用对话框 CommonDialog 的 Action 属性设置为 3，表示打开颜色对话框。故正确答案为选项 A

27、。 17 【正确答案】 D 【试题解析】 KeyDown 事件的参数 KeyCode表示按键的键盘码，此题为&H71；参数 Shift表示在该事件发生时相应 Shift、 Ctrl和 Alt键的状态，用一个3位的二进制数表示，只有 Shift被按下时为 001。按下 Shift+F2 键，条件KeyCode = Key_F2 为 False，即 F2D = False，文本框不显示内容。故正确答案为选项 D。 18 【正确答案】 B 【 试题解析】 在默认的情况下，系统把设计的第一个窗体作为 “启动窗体 “。在执行程序时，只有 “启动窗体 “才能自动显示出来，而其他窗体必须通过 Show 方法

28、才能被显示出来。故选项 A和 C错误；不同窗体中的控件可以完全一样，一个窗体可以访问其他窗体控件中的数据。故选项 D错误；本题正确答案为 B。 19 【正确答案】 B 【试题解析】 InputBox 函数可以产生一个对话框，作为输入数据的界面，等待用户输入数据，并且返回输入的内容。求字符串长度函数 Len(s),返回字符串的长度，即所包含的字符个数。字符串截取函数 Mid$(s,n1,n2),从 s第 n1个字符开始，向后截取 n2个字符。当程序开始执行时，等待用户从键盘输入整数，用于控制第一个循环执行次数。进入第一个 For循环，等待用户输入字符串，计算该字符串长度，进入第二个 For 循环

29、，主要作用是从上述字符串逐一查找字符串中字符 D出现的个数，最后将其输出。故本题正确答案为选项。 20 【正确答案】 B 【试题解析】 Rnd 英文全称 Random，意随机数， Rnd*100生成一个取值在 0，100)之间的随机数（注意不包含 100）。取整函数 Int（ x），英文全称： Integer，返回值为不大于自变量 x的最大整数， Int(Rnd(1)=0， x=100。类型转换函数Val(s)，返回值为字符串表达式 s中所包含的数值，若遇到字母（指数符号除外）则终止转换。字符串截取函数 Left$(s,n)，截取字符串 s左边的 n 个字符。Left(s,3)=201， Va

30、l(s)=Val(201)=201。 x+y=100+201=301；满足 300 To 301，故最后输出的结果是分支 2，本题正确选项为 B。 21 【正确答案】 B 【试题解析】 本题中 fun（）函数内声明 Static局部变量，该变量在程序执行到该对象的声明处时被首次初始化，即以后的函数调用不会被初始化，其值始终驻留在全局数据区，直到程序运行结束。在过程 fun（）中对 a值的改变在下次调用时 a值仍为上次调用结束时的值。 Command1_Click（）过程中的第一个 For循环执行 3次，即 fun（）过程被调用 3次，静态局部变量 a具有保留上次执行结果的特点，三次循环 a的值

31、分别为 1， 2， 3。所以 3次输出的值为 1， 4,9。而Command1_Click（）过程中的第二个 For循环也执行 3次，即 proc（）过程也被调用 3次，每次局部变 量 a的初始值均为 0，执行 a=a+1后， a=1。所以 3次输出的值为 1， 2， 3。故正确答案为选项 B。 22 【正确答案】 A 【试题解析】 文本框 Text的 Change（）事件表示当 Text的内容变化时触发操作； LostFocus（）事件表示文本框释放焦点时引发的操作。因题目要求同步显示在文本框 Text2中，故正确答案为选项 A。 23 【正确答案】 B 【试题解析】 算法的时间复杂度是指执

32、行算法所需要的计算工作量，它与使用的计算机、程序设计语言以及算法实现过程中的许多细节无关， B选项正确， D选项错误。最坏情况下的时间复杂度可以与平均情况的时间复杂度相同， A选项错误。不同的算法时间复杂度一般不相同， C选项错误。 24 【正确答案】 B 【试题解析】 栈是一种特殊的线性表，它所有的插入与删除都限定在表的同一端进行。队列是指允许在一端进行插入，而在另一端进行删除的线性表。将A,B,C,D,E,F入栈后，栈中元素为 ABCDEF，退出三个元素入队，队列元素为FED，将 X,Y,Z入栈后栈中元素为 ABCXYZ，全部入队后，队列元素为FEDZYXCBA，故 B 选项正确。 25

33、【正确答案】 D 【试题解析】 双向链表与二叉链表均是有两个指针域的链表， A选项错误。在单链表的第一个结点前增加一个表头结点，队头指针指向表头结点，最后一个结点的指针域的值由 NULL 改为指向表头结点，这样的链表称为循环链表。循环队列是队列的一种顺序存储结构。循环链表与循环队列是两种存储结构， B 选项错误。双向链表结点有两个指针域，指向前一个结点的指针和指向后一个结点的指针，而带链的栈是单链表形式， C选项错误。故正确答案为 D选项。 26 【正确答案】 C 【试题解析】 在树结构中，一个结点所拥有的后件个数称为该结点 的度，所有结点中最大的度称为树的度。对任何一棵二叉树，度为 0的结点

34、（即叶子结点）总是比度为 2的结点多一个。二叉树共有 845个结点，度为 0的结点有 45个，度为1的结点数为 n1, 度为 2的结点数为 n2，则 845=45+n1+n2，且 45= n2+1，则n1=756， C选项正确。 27 【正确答案】 D 【试题解析】 需求分析阶段的工作可以分为个方面：需求获取、需求分析、编写需求规格说明书和需求评审，包括确定软件系统的功能， D选项正确。 A、 B、C选项均为开发阶段工作。 28 【正确答案】 B 【试题解析】 在测试之前制定测试计划，并严格执行，测试用例的选择不可随意，应选择有代表性的，尽可能发现迄今为止尚未发现的错误， A选项叙述正确， B

35、选项叙述错误。测试根本目的是尽可能多地发现并排除软件中隐藏的错误， C选项叙述正确。软件测试是保证软件质量、可靠性的关键步骤， D选项叙述正确。故正确答案为 B 选项。 29 【正确答案】 A 【试题解析】 结构化程序的三种基本控制结构：顺序、选择和重复，故 A选项正确。 30 【正确答案】 A 【试题解析】 数据库管理系统为完成主要功能提供了相应的数据 语言，它们是：数据定义语言，该语言负责数据的模式定义与数据的物理存取构建；数据操纵语言，该语言负责数据的操纵，包括查询与增、删、改等操作；数据控制语言，该语言负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。故A选项正确。 31

36、 【正确答案】 A 【试题解析】 一般来说，实体集之间必须通过联系来建立联接关系，分为三类：一对一联系（ 1:1）、一对多联系（ 1:m）、多对多联系（ m:n）。每个仓库存放有不同的零件，相同零件可能放在不同的仓库中，故实体仓库和零件间的联系是多对多， A选项正确。 32 【正确答案】 C 【试题解析】 Sgn(x)英文全称 Sign(x)，是符号函数，即求变量 x的符号。注意其与变量 x的大小无关，仅与变量正负有关。 x为正数，返回 1； x为负数，返回 -1； x为 0，返回 0。运算符 在 VB 中是乘方运算， 44等于 256，为正数，故Sgn(44)=1。 Sqr（ X）是平方根函

37、数，返回值为自变量的平方根， Sqr(25)等于5， 5*Sqr（ 25）等于 25，故最后结果为 26，正确答案为选项 C。 33 【正确答案】 C 【试题解析】 Int(X)返回不大于 X的最大整数 ； Abs(X)返回自变量 X的绝对值，无论 X是正数、 0还是负数，其 Int(X)一定小于等于其绝对值，故正确答案为选项 C。 34 【正确答案】 B 【试题解析】 选项 A，在本窗体的某个过程中写语句： Dim x，仅能在本窗体本过程中访问。选项 C，在本窗体所有过程之前写语句： public x，则在其他模块中均可访问。选项 D，在本窗体的所有过程中写语句： Dim x，则为局部变量，

38、仅能在本过程中访问它。故正确答案为 B 选项。 35 【正确答案】 D 【试题解析】 Visual Basic 应用程序可以 以解释方式和生成可执行文件方式执行，故正确答案为选项 D。 36 【正确答案】 D 【试题解析】 对象是具有特殊属性（数据）和行为方式（方法）的实体，既包含数据，又包含数据的操作方法，选项 A、 C正确；系统设计好的对象称为预定义对象，这些对象可以直接拿来使用， B 选项正确；在 VB 中，可以通过属性窗口和程序代码两种方式设置对象属性，属性窗口设置方式在程序运行后不能通过属性窗口改变属性值，但是程序代码设置方式可以灵活地在程序运行期间改变对象的属性值。故正确答案为选项

39、 D。 37 【正确答案】 C 【 试题解析】 影响窗体上某个文本框的 Tab顺序的属性是 TabIndex， TabStop 属性指定是否能使用 Tab 键将焦点移到控件上，故 A选项错误；控件名 .Text用来设置文本框中显示的内容，标签名 .Caption用来显示在标签标题中显示的文本，故 B 选项错误；获取滚动条中当前滚动的位置应使用 Value属性，故 D选项错误。本题正确答案为 C选项。 38 【正确答案】 B 【试题解析】 在程序运行时，列表项只能单选，不能多选。故选项 A错误；无法利用 Selected 属性来判断哪个列表项被选中了，组合框可以响应 Change事件。故选项 C

40、和 D均错误；本题正确答案为 B。不同窗体中的控件可以完全一样，一个窗体可以访问其他窗体控件中的数据。故选项 D错误；本题正确答案为 B。 39 【正确答案】 A 【试题解析】 列表框或组合框中， ListIndex 属性用于设置或返回当前被选择项目的索引号； List 属性用来列出或设置列表项的内容。故正确答案为选项 A。 40 【正确答案】 B 【试题解析】 Caption：用来设置显示在按钮上的标题，在程序运行过程中修改按钮的标题应该使用， Command1.Caption = “按钮 “。故本题正确答案为 B。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：新建一个窗

41、体，在窗体中添加一个窗体和一个文本框，然后按照题目要求设置控件属性。程序中用到的控件及属性见表3.78。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，在窗体中添加 3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表 3.79和表 3.80。步骤 2：打开代码编辑窗口，在指定位置编写代码。参考答案 Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStartEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。

42、三、简单应用题 42 【正确答案】 （ 1）【操作步骤】 步骤 1：打开本题工程文件 ,将计时器控件的 Enabled属性设置为 False，然后将Interval属性设置为 1000。 步骤 2：分析并编写程序代码。 程序提供代码 Dim lenth As Integer, q As Integer Const PI = 3.14159 Private Sub Form_Load() lenth = Line1.Y2 - Line1.Y1 q = 90 End Sub Private Sub Timer1_Timer() q = q - 6 Line1.Y1 = Line1.Y2 - len

43、th * Sin(q * PI / 180) Line1.X1 = Line1.X2 + lenth * Cos(q * PI / 180) End Sub Private Sub Command1_Click() 需要考生编写的内容 End Sub Private Sub Command2_Click() 需要考生编写的内容 End Sub 程序结束 参考答案 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Su

44、b 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 （ 2）【操作步骤】 步骤 1：打开本题工程文件 步骤 2：分析并编 写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Integer, k As Integer, ch As String, a As String n = Len(Text1.Text) ch = “ For k = 1 To n a = Mid$(Text1.Text, k, 1) If Option1.Value = True Then If a = “a“ And a = “A“ And a = “Z“ Th

45、en ch = ch + Chr$(Asc(“a“) + Asc(a) - Asc(“A“) Else ch = ch + a End If End If If Option2.Value = True Then ch = UCase(Text1) End If If Option3.Value = True Then ch = LCase(Text1) End If Text2 = ch Next k End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】步骤 1：打开本题工程文件，利 用菜单编辑器，按表 3.77中的

46、设置建立菜单项，然后在窗体 Form1中添加一个文本框，其相关属性及其值见表 3.97和表3.98 步骤 2：分析并编写程序代码。程序提供代码 Option Base 1Dim sum As IntegerDim Arr(100) As IntegerSub ReadData()Open App.Path & “ & “datain1.txt“ For Input As #1For i = 1 To 100 Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App

47、.Path & “ & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案 Private Sub Calc_Click() Text1.Text = “ For i = 1 To 100 If (Arr(i) Mod 3) = 0 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) End If Next i Print sumEnd SubPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Save_Click() WriteData “dataout.txt“, sumEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。