【计算机类职业资格】二级VISUAL+BASIC-31及答案解析.doc

1、二级 VISUAL+BASIC-31及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列数据结构中，属于非线性结构的是_。（分数：2.50）A.循环队列B.带链队列C.二叉树D.带链栈2.下列数据结构中，能够按照“先进后出”原则存取数据的是_。（分数：2.50）A.循环队列B栈C.队列D.二叉树3.对于循环队列，下列叙述中正确的是_。（分数：2.50）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针4.算法的空间复杂度是指_。（分数：2.50）A.算法在执行过

2、程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数5.软件设计中划分模块的一个准则是_。（分数：2.50）A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合6.下列选项中不属于结构化程序设计原则的是_。（分数：2.50）A.可封装B.自顶向下C.模块化D.逐步求精7.软件详细设计产生的图如下： （分数：2.50）A.NS图B.PAD图C.程序流程图D.ER图8.数据库管理系统是_。（分数：2.50）A.操作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统D.一种操作系统9.在 ER图中，用来表示实体联

3、系的图形是_。（分数：2.50）A.椭圆形B.矩形C.菱形D.三角形10.有三个关系 R，S 和 T如下，其中 T由 R和 S通过某种操作得到，该操作为_。 R A B C a 1 2 b 2 1 c 3 1 S A B C d 3 2 T A B C a 1 2 b 2 1 C 3 1 d 3 2 （分数：2.50）A.选择B.投影C交D并11.能够用于标识对象名称的属性是_。（分数：2.50）A.NameB.CaptionC.ValueD.Text12.关于水平滚动条，如下叙述中错误的是_。（分数：2.50）A.当滚动框的位置改变时，触发 Change事件B.当拖动滚动条中的滚动框时，触发

4、 Scroll事件C.LargeChange属性是滚动条的最大值D.Value是滚动条中滚动框的当前值13.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：2.50）A.List1.TextB.List1.IndexC.List1.ListIndexD.List1.List14.当文本框中的内容发生改变时所触发的事件是_。（分数：2.50）A.KeyUpB.ChangeC.LostFocusD.GotFocus15.定时器的 Interval属性的值是一个整数，它表示的是_。（分数：2.50）A.毫秒数B.秒数C.分钟数D.小时数16.以下关于事件、事件驱动的叙述中，错

5、误的是_。（分数：2.50）A.事件是可以由窗体或控件识别的操作B.事件可以由用户的动作触发C.一个操作动作只能触发一个事件D.事件可以由系统的某个状态的变化而触发17.要删除列表框中最后一个列表项，正确的语句是_。（分数：2.50）A.List1.RemoveItem ListCountB.List1.RemoveItem List1.ListCountC.List1.RemoveItem ListCount-1D.List1.RemoveItem List1.ListCount-118.在菜单编辑器中建立如下图所示的菜单，并为每个菜单项编写了鼠标单击事件过程。 （分数：2.50）A.针对此

6、菜单进行操作，单击“斜体”菜单项时，将执行它的鼠标单击事件过程B.针对此菜单进行操作，单击“下划线”菜单项时，“”被去掉C.针对此菜单进行操作，单击“退出”菜单项时，不能执行对应的单击事件过程D.针对此菜单进行操作，单击“编辑”菜单项时，打开下拉菜单，但不执行相应的单击事件过程19.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic的标准控件C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框20.设工程中有 Form1、Form

7、2 两个窗体，要求单击 Form2上的 Command1命令按钮，Form2 就可以从屏幕上消失，下面的事件过程不能实现此功能的是_ A B C D （分数：2.50）A.B.C.D.21.运行如下程序 Private Sub Command l_Click0 Dim a(5,5) As Integer For i = 1 To 5 For j = 1 To 4 a(i,j) = i * 2 + j If a(i,j)/7=a(i, j)/7 Then n=n+l End If Next j next Print n End Sub n的值是_。（分数：2.50）A.2B.3C.4D.522.

8、窗体上有单选按钮和列表框控件。单击名称为 Option1、标题为“国家”的单选按钮，向列表框中添加国家名称，如图所示。 （分数：2.50）A.程序有错，没有声明数组的维数及上下界B.只有一维数组才能使用 Array为数组赋初值C.For循环的终值应为 ListCount-1D.For循环的初值应为 123.现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(“输入:“) Select Case x Case“A“To“C“ Print“考核通过!“ Case“D“ Print“考核不通过!“ Case Else Print“输入数据不

9、合法!“ End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是_。（分数：2.50）A.程序运行错B.在窗体上显示“考核通过!”C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”24.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 （分数：2.50）A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3个滚动条 Change事件过程中只设置

10、了一个 color数组元素的值，调用 fill过程失败D.fill函数定义中的形式参数是数组型参数25.命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Printf(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f不能又作为变量名D.在窗体上显示 1026.在窗体上画一个名称为 Combo1的组合

11、框，名称为 Text1的文本框，以及名称为 Command1的命令按钮，如图 （分数：2.50）A.Combo1.AddItem Text1.TextB.Combo1.AddItem Text1.SelStartC.Combo1.AddItem Text1.SelTextD.Combo1.AddItem Text1.SelLength27.窗体上有一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。 （分数：2.50）A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作B.执行 Open命令时出错，因为没有指定文件的路径C.Ope

12、n语句是错误的，应把语句中的 For Input改为 For OutputD.Line Input命令格式错误28.工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer 窗体文件的程序代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2:b=3:x=10:y=20 Private Sub Command1_Click() a=a+5:b=b+5:x=x+5:y=y+5 Print a;b;x;y End Sub 运行程序，

13、单击窗体上的命令按钮，则在窗体上显示的是_。（分数：2.50）A.5 5 15 5B.7 5 15 25C.7 8 15 5D.7 5 15 529.窗体上的三个命令按钮构成名称为 command1的控件数组，如图所示。 （分数：2.50）A.Print Command1(2).Caption语句有错B.在窗体上显示“命令按钮 2”C.在窗体上显示“命令按钮 3”D.在窗体上显示“计算机等级考试”30.下面程序的执行结果是_。 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka k=k+1 Print x; Loop End Sub（分

14、数：2.50）A.1 4 27B.1 1 1C.1 4 9D.0 0 031.执行以下语句过程，在窗体上显示的内容是_。 Option Base 0 Private Sub Command3_Click() Dim d d=Array(“a“,“b“,“c“,“d“) Print d(1);d(3) End Sub（分数：2.50）A.abB.bdC.acD.出错32.运行下面的程序后，输出的结果为_。 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

15、 Print Next A B C D （分数：2.50）A.B.C.D.33.阅读下列程序： Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print Fun(k); Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮后的输出结果是_。（分数：2.50）A.2 3 4B.3 4 5C.5 6 7D.3 5 634.窗体上有 Text1、Te

16、xt2 两个文本框及一个命令按钮 Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun 2 (Fun1(x),y) Text2.Text=Fun 1(x) End Sub Private Function Fun 1(x As Integer)As Integer x=x+y:y=x+y Fun 1=x+y End Function Private Function Fun2(x As Integer，y As Integer)As Integer F

17、un2=2*x+y End Function 当单击 1次和单击 2次命令按钮后，文本框 Text1和 Text2内的值分别是_。 A B C D （分数：2.50）A.B.C.D.35.有如下函数过程： Function Fun(By Val x As Integer,ByVal y As Integer)As Integer Do While y0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Intege

18、r,b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub（分数：2.50）A.0B.25C.50D.10036.下列描述错误的是_。（分数：2.50）A.过程级变量是指在过程或函数内部定义的变量，这种变量的作用域是整个过程或函数体，只能在该过程或该函数体被引用B.某一函数若要引用在其他函数中定义的变量，只有将变量定义为 Static型即可C.窗体级变量在该窗体中的每个过程都可以引用D.若要在某一窗体内定义的窗体级变量能够在另一窗体内应用，只需要 Public声明37.在窗体上画一个文本框，其名称为 Text1，然后编写如下事件过程： Privat

19、e Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str) Text1.Text=String(2,KeyAscii) End Sub程序运行后，如果在键盘上输入字母“b“，则在文本框 Text1中显示的内容是（分数：2.50）A.bbbB.BBBC.BBD.bb38.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为 a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击的事件过程是_。（分数：2.50）

20、A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single)If Button=2 Then PopupMenu a1,2End SubB.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single)PopupMenu a1，0End SubC.Private Sub Form_MouseDown(Button As Integer,Shift As Integer

21、,_X As Single,Y As Single)PopupMenu a1End SubD.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Sinde,Y As Single)If(Button=vbLetfButton)Or (Button=vbRightButton)Then PopupMenu a1End Sub39.下面_语句执行后，窗体 Form1从内存退出。（分数：2.50）A.Unload Form1B.Load Form1C.Form1.HideD.Form1.Visiable=False

22、40.随机文件用于读数据的语句是_。（分数：2.50）A.GetB.WritC.PrintD.Input二级 VISUAL+BASIC-31答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列数据结构中，属于非线性结构的是_。（分数：2.50）A.循环队列B.带链队列C.二叉树 D.带链栈解析：解析 树是简单的非线性结构，因此二叉树作为树的一种属于非线性结构，答案 C正确。2.下列数据结构中，能够按照“先进后出”原则存取数据的是_。（分数：2.50）A.循环队列B栈 C.队列D.二叉树解析：解析 栈是按先进后出的原则组织数据的；队列是按先进

23、先出的原则组织数据的，因此本题答案为 B。3.对于循环队列，下列叙述中正确的是_。（分数：2.50）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针 解析：解析 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构，所以对头指针有时可能大于队尾指针，有时也可能小于队尾指针，故本题答案为D。4.算法的空间复杂度是指_。（分数：2.50）A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数解

24、析：解析 算法的空间复杂度是指算法在执行过程中所需要的内存空间，因此本题答案为 A。5.软件设计中划分模块的一个准则是_。（分数：2.50）A.低内聚低耦合B.高内聚低耦合 C.低内聚高耦合D.高内聚高耦合解析：解析 一般较优秀的软件设计应尽量做到高内聚、低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性，因此本题答案为 B。6.下列选项中不属于结构化程序设计原则的是_。（分数：2.50）A.可封装 B.自顶向下C.模块化D.逐步求精解析：解析 结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用 goto语句，因此本题答案为 A。7.软件详细设计产生的图如下

25、： （分数：2.50）A.NS图B.PAD图C.程序流程图 D.ER图解析：解析 NS 图提出了用方框图来代替传统的程序流程图，因此 A不对。PAD 图是问题分析图，它是继承程序流程图和方框图之后提出的又一种主要用于描述软件详细设计的图形表示工具，因此 B不对。ER图是数据库中用于表示 ER模型的图示工具，因此 D不对。根据图中所示表示方法可以得知该图是进行软件详细设计时使用的程序流程图，因此本题答案为 C。8.数据库管理系统是_。（分数：2.50）A.操作系统的一部分B.在操作系统支持下的系统软件 C.一种编译系统D.一种操作系统解析：解析 数据库管理系统是数据库的机构，它是一种系统软件，负

26、责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等，是一种在操作系统支持下的系统软件，因此本题答案为 B。9.在 ER图中，用来表示实体联系的图形是_。（分数：2.50）A.椭圆形B.矩形C.菱形 D.三角形解析：解析 在 ER图中实体集用矩形表示，属性用椭圆表示，联系用菱形表示，因此选择 C。10.有三个关系 R，S 和 T如下，其中 T由 R和 S通过某种操作得到，该操作为_。 R A B C a 1 2 b 2 1 c 3 1 S A B C d 3 2 T A B C a 1 2 b 2 1 C 3 1 d 3 2 （分数：2.50）A.选择B.投影C交D并 解析：解析

27、在关系 T中包含了关系 R与 S中的所有元组，所以进行的是并的运算，答案为 D。11.能够用于标识对象名称的属性是_。（分数：2.50）A.Name B.CaptionC.ValueD.Text解析：解析 每个对象都有 Name属性，用于识别不同的对象。因此选 A。12.关于水平滚动条，如下叙述中错误的是_。（分数：2.50）A.当滚动框的位置改变时，触发 Change事件B.当拖动滚动条中的滚动框时，触发 Scroll事件C.LargeChange属性是滚动条的最大值 D.Value是滚动条中滚动框的当前值解析：解析 LargeChange 属性值是单击滚动块和左右两端箭头之间空白的地方时，

28、Value 增加或减少的量，Max 属性值才是滚动条的最大值。因此 C选项错误。13.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：2.50）A.List1.Text B.List1.IndexC.List1.ListIndexD.List1.List解析：解析 Text 属性可返回当前被选中列表项的内容，因此选项 A正确。14.当文本框中的内容发生改变时所触发的事件是_。（分数：2.50）A.KeyUpB.Change C.LostFocusD.GotFocus解析：解析 文本框中内容有变化时，将触发 Change事件。因此 B选项正确。 当在文本框中输入数据，松开

29、键盘时触发它的 KeyUp事件；文本框失去焦点触发 LostFocus事件；获得焦点，触发 GotFocus事件。15.定时器的 Interval属性的值是一个整数，它表示的是_。（分数：2.50）A.毫秒数 B.秒数C.分钟数D.小时数解析：解析 Interval 的属性值是以毫秒计数，因此是毫秒数。故选 A。16.以下关于事件、事件驱动的叙述中，错误的是_。（分数：2.50）A.事件是可以由窗体或控件识别的操作B.事件可以由用户的动作触发C.一个操作动作只能触发一个事件 D.事件可以由系统的某个状态的变化而触发解析：解析 一个操作动作有时会触发一个或多个事件。比如当按下键盘的某个键时，会触

30、发 KeyDown和 Keypress事件。因此 C选项错误。17.要删除列表框中最后一个列表项，正确的语句是_。（分数：2.50）A.List1.RemoveItem ListCountB.List1.RemoveItem List1.ListCountC.List1.RemoveItem ListCount-1D.List1.RemoveItem List1.ListCount-1 解析：解析 ListCount 属性返回列表框中列表项的个数，列表项的索引号从 0开始，因此要删除最后一个列表项，ReMoveItem 方法中的索引号就应该是 List1.ListCount-1，故 D选项正确

31、。18.在菜单编辑器中建立如下图所示的菜单，并为每个菜单项编写了鼠标单击事件过程。 （分数：2.50）A.针对此菜单进行操作，单击“斜体”菜单项时，将执行它的鼠标单击事件过程B.针对此菜单进行操作，单击“下划线”菜单项时，“”被去掉C.针对此菜单进行操作，单击“退出”菜单项时，不能执行对应的单击事件过程D.针对此菜单进行操作，单击“编辑”菜单项时，打开下拉菜单，但不执行相应的单击事件过程 解析：解析 菜单项中无论是主菜单还是子菜单，单击某个菜单项，都会执行它们相应的单击事件过程。因此 D选项叙述错误。19.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行状态下，通用对话

32、框控件是不显示的B.通用对话框控件是 Visual Basic的标准控件 C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框解析：解析 通用对话框是一个 ActiveX控件，不是标准控件，因此 B选项错误。20.设工程中有 Form1、Form2 两个窗体，要求单击 Form2上的 Command1命令按钮，Form2 就可以从屏幕上消失，下面的事件过程不能实现此功能的是_ A B C D （分数：2.50）A.B.C. D.解析：解析 Form2.Hide 是隐藏 Form2窗体；Unload Me 是卸载并关闭当前窗体；M

33、e.Hide 是隐藏当前窗体。From2.Unload 语法错误。因此 C选项不能使 Form2窗体消失。21.运行如下程序 Private Sub Command l_Click0 Dim a(5,5) As Integer For i = 1 To 5 For j = 1 To 4 a(i,j) = i * 2 + j If a(i,j)/7=a(i, j)/7 Then n=n+l End If Next j next Print n End Sub n的值是_。（分数：2.50）A.2B.3 C.4D.5解析：解析 VB 中“/”是浮点除法运算符，“/”是整数除法运算符，程序中的条件表

34、达式 a(i,j)/7=a(i,j)/7成立时说明这个数能够被 7整除，程序实现的功能即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为(3,4,5,6)，i=2 时为(5,6,7,8)，i=3 时为(7,8,9,10)，i=4 时为(9,10,11,12)，i=5 时为(11,12,13,14)，其中能够被 7整除的数有 7、7、14 共 3个。因此答案为 B。22.窗体上有单选按钮和列表框控件。单击名称为 Option1、标题为“国家”的单选按钮，向列表框中添加国家名称，如图所示。 （分数：2.50）A.程序有错，没有声明数组的维数及上下界B.只有一维数组才能使用 Ar

35、ray为数组赋初值 C.For循环的终值应为 ListCount-1D.For循环的初值应为 1解析：解析 程序没有错误。数组变量定义时可以不用声明上下界。List 控件列表项的索引从 0开始。Array函数只适用于一组数组，只能对一维数组进行初始化，不能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。23.现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(“输入:“) Select Case x Case“A“To“C“ Print“考核通过!“ Case“D“ Print“考核不通过!“ Case Else Print

36、“输入数据不合法!“ End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是_。（分数：2.50）A.程序运行错B.在窗体上显示“考核通过!” C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”解析：解析 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select多分支控制语句选择输出不同的信息，当输入字母在“A”到“C”之间时，显示“考核通过!”，输入字母是“D”时显示“考核不通过!”，如果输入的是“A”到“D”之外的其他字符，则显示“输入数据不合法!”。程序中输入字母“B”，因此会显示“考核通过!”。24.窗体上有三个水平

37、滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 （分数：2.50）A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 D.fill函数定义中的形式参数是数组型参数解析：解析 当用 Dim语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空字符串。因此 color数组中的元素初

38、始值都为 0，没有空值，过程调用不会失败，C 选项叙述错误。25.命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Printf(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.程序运行出错，x 变量的类型与函数参数的类型不符 B.在窗体上显示 100C.函数定义错，函数名 f不能又作为变量名D.在窗体上显示 10解析：解析 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为 Vari

39、ant类型，由于过程中参数类型为 Integer，因此程序运行时会提示“ByRef 参数类型不符”的错误信息，故 A选项正确。只在按钮事件中加上 Dim x asInteger就可以解决问题，或者 f过程中的 y as Integer改为 ByVal y as Integer也可以解决此问题。26.在窗体上画一个名称为 Combo1的组合框，名称为 Text1的文本框，以及名称为 Command1的命令按钮，如图 （分数：2.50）A.Combo1.AddItem Text1.TextB.Combo1.AddItem Text1.SelStartC.Combo1.AddItem Text1.S

40、elText D.Combo1.AddItem Text1.SelLength解析：解析 根据题意可知，横线处应该是将文本框中的选中文本添加到组合框中。文本框 Text属性返回整个文本框中的文本，因此 A选项错误；SelStart 属性返回选中文本的起始位置，因此 B选项错误；SelLength属性返回选中文本的长度，因此 D选项错误；SelText 属性返回选中的文本，因此 C选项正确。27.窗体上有一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。 （分数：2.50）A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作 B.

41、执行 Open命令时出错，因为没有指定文件的路径C.Open语句是错误的，应把语句中的 For Input改为 For OutputD.Line Input命令格式错误解析：解析 第 1条语句中用 ShowOpen方法显示“打开”对话框后，在对话框中选中文件，单击“打开”按钮后，CD1.FileName 属性就会返回打开文件的路径，所以用 Open语句打开文件时，就可以用CD1.FileName指定打开文件的路径，因此 B选项说法错误。 因为第 4条语句中要用 Line Input从文件读取数据，因此用 Open语句打开文件时用 Input模式打开文件是正确的，故 C选项说法错误。 Line

42、Input命令格式为：Line Input#文件号，变量名，题中 Line Input语句格式正确。因此 D选项错误。 本题程序无错误，可以实现所说功能，因此 A选项正确。28.工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer 窗体文件的程序代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2:b=3:x=10:y=20 Private Sub Command1_Click() a=a+5:b=b+5:x=x+5:y=

43、y+5 Print a;b;x;y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是_。（分数：2.50）A.5 5 15 5B.7 5 15 25C.7 8 15 5D.7 5 15 5 解析：解析 程序在模块文件中定义 x为整型全局变量，在整个工程中都起作用，而 y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量 a在本窗体文本中起作用，窗体加载事件中定义的变量 b和没有声明的变量 y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量 a值为2，x 为 10，没有指定初值的变量值默认为 0，因此单击命令按钮后，a=a+5=7，b=b+5=5，x=x+

44、5=15，y=y+5=5，结果输出 7 5 15 5，选项 D正确。29.窗体上的三个命令按钮构成名称为 command1的控件数组，如图所示。 （分数：2.50）A.Print Command1(2).Caption语句有错B.在窗体上显示“命令按钮 2”C.在窗体上显示“命令按钮 3”D.在窗体上显示“计算机等级考试” 解析：解析 控件数组与数据数组一样，下标默认从 0开始，即本题中按钮控件数组的 Index值为0，1，2，分别对应命令按钮 1、命令按钮 2、命令按钮 3。当单击命令按钮 2时，Index 值为 1，因此程序会输出“计算机等级考试”。故选项 D正确。30.下面程序的执行结果

45、是_。 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka k=k+1 Print x; Loop End Sub（分数：2.50）A.1 4 27B.1 1 1 C.1 4 9D.0 0 0解析：解析 本题主要考查算术运算符中的幂运算，在程序中 x的值为 k的 k次方的 a次方，k 的值每次循环都加 1，但 a的值不变总为 0，除 0以外的任何数的 0次方都是 1，因此，在 k的值变为 4之前会输出三个 1。故 B选项正确。31.执行以下语句过程，在窗体上显示的内容是_。 Option Base 0 Private Sub Comma

46、nd3_Click() Dim d d=Array(“a“,“b“,“c“,“d“) Print d(1);d(3) End Sub（分数：2.50）A.abB.bd C.acD.出错解析：解析 在 Visual Basic中，一般可以用 Array函数解决数值初始值的输入，格式为： 数组名=Array(要输入的值) 本题中声明的数组 d默认下界为 0，即数组第一个元素为 d(0)，所以当程序调用 Array数后，d(0)=a，d(1)=b，d(2)=c，d(3)=d。不难看出，最后 Print语句要输出的是 d(1)，d(3)的值，即 b，d。所以选项 B正确。32.运行下面的程序后，输出的

47、结果为_。 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 B C D （分数：2.50）A.B.C. D.解析：解析 程序以矩阵格式输出一个二维数组，由程序可知，数组的主对角线上的元素赋值为 1，其他元素未赋值，初值为 0，所以输出结果为选项 C。33.阅读下列程序： Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Pr

48、int Fun(k); Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮后的输出结果是_。（分数：2.50）A.2 3 4B.3 4 5 C.5 6 7D.3 5 6解析：解析 在此题中，被调过程是一个函数过程，它有一个形式参数 j，在被调过程声明中，定义了一个参数 a，初值为 0，一个静态变量 b。语句 a=a+1和 b=b+1分别使 a和 b各增加 1，然后返回 a*b+j的值，因为 b是静态变量，所以每次调用同一个参数 k时，b 会保留前次的数值，使输出结果变化，否则每次输出的结果都将是一样的。根据分析，第一次调用时 a=1，b=1，Fun=3；第二次调用时a=1，b=2，Fun=4；第三次调用时 a=1，b=3，Fun=5。所以最后的输出结果是 3 4 5。34.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序： Dim y As