计算机二级历年真题.pdf

《计算机二级历年真题.pdf》由会员分享，可在线阅读，更多相关《计算机二级历年真题.pdf（63页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、计算机二级历年真题05年试卷一、选 择 题（1）（35）每小题2 分，共 70分下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。（1）数据的存储结构是指（）A.存储在外存中的数据 B.数据所占的存储空间量 C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是（）。A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用 D.对栈的插入与删除操作中，不需要改变栈底指针（3）对于长度为n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（）。A.冒泡排序为n/2 B

2、.冒泡排序为n C.快速排序为n D.快速排序为n（n-l）/2（4）对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（）。A.Iog2n B.n/2 C.n D.n+1（5）下列对于线性链表的描述中正确的是（）。A.存储空间不一定是连续，且各元素的存储顺序是任意的B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是（）。A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程

3、序中的错误D.软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要 求（）。A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是（）。A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体 D.软件是程序、数据与相关文档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（）。A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数

4、据只能被对应的应用程序所使用D.以上三种说法都不对（10）用树形结构表示实体之间联系的模型是（）。A.关系模型B,网状模型C.层次模型D.以上三个都是(I I)在窗体(名称为F orm l)上画-个名称为T extl的文本框和一个名称为Command)的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。A.Private Sub Textl_Change()Command 1 .Caption=计算机等级考试”End SubB.Private Sub Command 1_ Click()Capt

5、ion=计算机等级考试”End SubC.Private Sub Form 1_ Click()Textl.Caption=计算机等级考试”End SubD.Private Sub Command 1_ Click()Textl.Text=计算机等级考试”End Sub(1 2)设 a=5,b=4,c=3,d=2 卜列表达式的值是()。3 2*b O ra=c And b c Or c dA.1B.TrueC.FalseD.2(1 3)设 a=MicrosoftVisualBasic，则以下使变量b 的值为VisualBasic”的语句是()。A.b=Left(a,10)B.b=Mid(a,1

6、0)C.b=Right(a,10)D.b=Mid(a,11,10)(1 4)假定有如下的窗体事件过程：Private Sub Form_Click()a$=Microsoft Visual Basicb$=Right(a$,5)c$=Mid(a$,1,9)MsgBox a$,34,b$,c$,5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是()oA.Microsoft VisualB.MicrosoftC.BasicD.5(15)a =a,b=b,c=c,d=d ,执行语句 x=Hf(aD.A“，“B”)后，x 的 值 为()。A.aB.”bC.”B”D.A”(1

7、6)为了使命令按钮(名称为Command1)右移2 0 0,应使用的语句是()。A.Command l.Move-200B.Commandl.Move 200C.Commandl.Left=Commandl.Left+200D.Commandl.Left=Commandl.Left-200(1 7)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x=InputBox(请输入一个整数”)Print x+Text 1.TextEnd Sub程序运行时，在文本框中输入4 5 6,然后单击窗体，在输入对话框中输入1 2 3,单 击“确定”按钮后，在窗体上显示

8、的内容为()A.123B.456C.479D.123456(1 8)在窗体上画一个文本框和一个计时器控件，名称分 别 为 T extl和 T im erl,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command 1 _Click()Timer 1.()End SubPrivate Sub Timerl_Timer()Textl.Text=TimeEnd Sub在下划线处应填入的内容是()。A.Enabled=TrueB.

9、Enabled=FalseC.Visible=TrueD.Visible=False(1 9)假定在图片框Picture 1 中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是()。A.选择图片框，然后按Del键B.执行语句 Picture 1.Picture=LoadPicture()C.执行语句 Picture 1.Picture=D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键(2 0)在窗体上画一个名称为L istl的列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现

10、上述操作的程序是：。A.Private Sub Listl_Click()Label 1 .Caption=List 1.ListindexEnd SubB.Private Sub Listl_Click()Label 1 .Name=List 1 .ListindexEnd SubC.Private Sub Listl_Click()Label 1 .Name=Listl.TextEnd SubD.Private Sub Listl_Click()Label 1.Caption=List 1 .TextEnd Sub(21)在窗体上画个命令按钮，其名称为Comma ,然后编写如下事件过程:P

11、rivate Sub Command 1 _Click()Dim i As Integer,x As IntegerFor i=1 To 6If i=1 Then x=iIfiO A nda10A ndav=20,“故宫&H f(a20A nda c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为()。A.10B.16C.12D.20(3 2)设有如下程序：Private Sub Command l_Click()Dim c As Integer,d As Integerc=4d=Inp

12、utBox(请输入个整数”)Do While d 0If d c Thenc=c+1End Ifd=InputBox(请输入一个整数“)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果 是()。A.12B.1110D.9(3 3)在窗体上画一个名称为Command1的命令按钮和一个名称为Textl的文本框，在文本框中输入以下字符串：Microsoft Visu&Page=4al Basic Programming然后编写如下事件过程：Private Sub Command 1 _Click()Open

13、 d:tempoutf.txt0 For Output As#1For i=1 To Len(Textl.Text)c=Mid(Textl.Text,i,1)If c=AH And c=Z ThenPrint#1,LCase(End IfNext iCloseEnd Sub程序运行后，单击命令按钮，文件outf.txt中的内容是()。A.MVBPB.mvbpC.MD.mV vBbPp(3 4)在窗体上画一个名称为Command 1 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIfX 20 ThenY=

14、XElseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)SW=TrueEnd SubPrivate Sub Command 1 _Click()Dim intNum As IntegerintNum=InputBox

15、(,H)If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入2 5,则程序的执行结果为()。A.输出0B.输出25输出45D.无任何输出(3 5)设有如下通用过程：Public Sub Fun(a()As Integer,x As Integer)For i=1 To 5x=x+a(i)NextEnd Sub在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:Private Sub Command 1 _Click()Dim arr(5)As I

16、nteger,n As IntegerFor i=1 To 5arr(i)=i+iNextFun arr,nTextl.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是()oA.30B.25C.20D.1 5 二、填空题(每空2 分，共 30分)请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。(1)某二叉树中度为2 的结点有18个，则该二叉树中有【1】个叶子结点。(2)在面向对象方法中，类 的 实 例 称 为【2】。(3)诊断和改正程序中错误的工作通常称为 3。(4)在关系数据库中，把数据表示成二维表，每一个二维表 称 为【4】。

17、(5)问题处理方案的正确而完整的描述称为【5】。(6)以下语句输出结果是 6】oPrint Int(12345.6789*100+0.5)/100(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_&Page=5Click()Textl.Text=nVB 程序设计”End SubPrivate Sub Textl_Change()Picture!.Print VB Programming,End Sub程序运行后，单击窗体，则在文本框中显示的内容是【7，而在图片框中显示的内容是 8】o(8)阅读下面的程序：Private Sub Form_Cli

18、ck()Dim Check As Boolean,Counter As IntegerCheck=TrueCounter=5DoDo While Counter 0Print sEnd Sub以上程 序 的 功 能 是【10】o 程序运行后，单击窗体，输 出 结 果 为 11 O(1 0)设有如下程序：Option Base 1Private Sub Command l_Click()Dim arrlDim Min As Integer,i As Integerarrl=Array(12,435,76,-24,78,54,866,43)Min=12Fori=2To8Ifarrl(i)循环体We

19、ndC)Do循环体Loop Until 条件D)Do Until v条件循环体Loop(21)在窗体上有1个名为C dl的通用对话框，为了在运行程序时打开保存文件对话框，则在程序总应使用的语句是(A)A)Cdl.Action=2B)Cdl.Action=lC)Cd 1 .ShowSave=TureD)Cd 1 .ShowSave=0(22)下面关于菜单的叙述中错误的是(B)A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同C)弹出式菜单也用菜单编辑器编辑(23)已知有下面的过程(D)Private Sub procl(a As In

20、teger,b As String,Optional x As Boolean)End Sub正确调用此过程的语句是A)Call procl(5)B)Call procl 5,abc,FalseC)procl(12,n abc,y,True)D)procl 5,abc”(24)在窗体上有一个文件名称为T extl的文本框和1 个名称为Commandl的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C)A)Private Sub Command 1 _Click()Text l.Left=100End SubC)Private Sub

21、Command 1 _Click()Textl.Move.Text.Left+100End SubB)Private Sub Command 1 _Click()T extl.Left=Textl.Left-100End SubD)Private Sub Command 1 _Click()Textl.Move.Text.LeftEnd Sub(25)某人创建了 1 个工程，其中的窗体名称为Forml;之后又添加了 1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(A)A)在工程属性对话框中把“启动对象”设置为Form2B)在 Forml的 Load事件过

22、程中加入语句Load Form2C)在 Form2的 Load事件过程中加入语句Form2.ShowD)在 Form2的 Tabindex属性设置为1,把 Form!的 Tabindex属性设置为2(26)窗体上有1 个名称为T extl的文本框和1 个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C)A)Private Sub Command l_Click()Open“out.txt For Inpit As#lPrint#1,Textl.TextClose

23、#1End SubC)Private Sub Command l_Click()Open“out.txt”For Append As#lPrint#1,Textl.TextClose#IEnd SubB)Private Sub Command l_Click()Open“out.txt”For Outpit As#lPrint#1,Textl.TextClose#1End SubD)Private Sub Command 1 _Click()Open“out.txt”For Random As#lPrint#1,Textl.TextClose#1End Sub(27)为计算1+3+5+99的值

24、，某人编程如下k=ls=0While k=99k=k+2:s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。卜 列错误原因和修改方案中正确的是(D)A)W hileWend循环语句错误，应改为For k=l To 99-Next kB)循环条件错误，应改为Whlie k0 thenstr=str&List.List(k)&”End IfNext kIf str=,v ThenText2=没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在 Textl中输入“京”，单击命令按钮，则在Text2中显示的内容是(C)A)京B)北京南京C)南京D)没有

25、匹配的项目(3 1)在窗体上画1 一个名称为Command1的命令按钮，并编写以下程序Private Sub Command 1 _Click()Print fun(ABCDEFG)End SubFunction fun(st As String)As Stringstlen=Len(st)temp=For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED(32)在窗体上先后画2 个图片框，名称分别为Picturel和 banana,banana中添加了香蕉图片(见图1),且将 ba

26、nana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picturel中(见图2)。能实现此功能的事件过程是(C)A)Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.MovePicture l.Left+X,Picture 1 .Top+Y)End SubB)Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single)Source.Move Picture l.Left+X.Pict

27、ure 1 .Top+YEnd SubC)B)Private Sub Picture 1 _DragDrop(Source As Control,X As Single,Y As Single)Source.Move Picturel.Left+X.Picture 1 .Top+YEnd SubD)B)Private Sub Picture 1 _DragDrop(Source As Control,X As Single,Y As Single)banana.Move banana.Left+X,banana.Top+YEnd Sub(33)在窗体上画1个名称为Commandl的命令按钮，然

28、后编写如下事件过程Option Base 1Pribate Sub Command 1 _Click()Dim a(5.5)As IntegerFor i=l To 5a(I,j)*510Next jNext iS=0For i=l To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是(A)A)15B)13C)llD)9(34)在窗体上从左到右有Textl、Text2两个文本框(见图)，要求程序运行时，在 Textl中输入1个分数后按回车键，则判断分数的合法性，若分数为0100中 的 1 个数，周围光标移到Text2中；否则光标不动，并弹出对

29、话框显示“分数错”，下血程序中正确的是(D)A)Private Sub Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13Then，回车符的 ACSII 码是 13a=Val(Text 1)If a=0 or a=0 And a=100 ThenTextl.SetFocusElseText2.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd SubC)Private Sub Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13Then 回车符的 ACSII 码是 13a=

30、Val(Textl)If a100 ThenText2.SetFocusElseTextl.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd SubD)Private Sub Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13 Then 回车符的 ACSII 码是 13a=Val(Textl)If a=0 And a=100 ThenText2.SetFocusElseTextl.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd Sub(35)在窗体上画2 个命令按钮，名称分别为Command

31、 1、command2,并编写如下程序Const n=5,m=4Dim a(m,n)Private Sub Command 1 _Click()K=1For i=l To mFor j=l To na(i,j)=kk=k+lNext jNext iPrivate Sub Command2_Click()Summ=0For i=1 To mFor j=l To nIf i=l Or i=m ThenSumm=summ+a(i,j)ElseIf j=I Or j=n ThenSumm=summ+a(i,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Com

32、mandl_Click()的作用是二维数组a 中存放1 个 m 行 n 列的矩阵；过程Command2_Click()的作用是(A)A)计算矩阵外围一圈元素的累加和B)计算矩阵除外一圈以外的所有元素的累加和C)计算矩阵第1 列和最后一列元素的累加和D)计算矩阵第1行和最后一行元素的累加和二、填空题(每空2 分，共 30分)请将每一个空的正确答案写在答题纸上115序号的横线上，答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整(1)在深度为7 的满二叉树中，度为2 的结点个数为-63 o(2)软件测试分为白箱(盒)测试和黑箱(盒)测试，等价类划分法属于一黑箱(或黑盒)测试。(3)在

33、数据库系统中，实现各种数据管理功能的核心软件称为 数据库管理系统(D B M S)o(4)软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 开发 阶段。(5)在结构化分析使用的数据流图(D F D)中，利用 数据字典 对其中的图形元素进行确切解释。(6)1+.n最大的n o 请填空Private Sub Command 1Click()Dim s,m,n AS Integerm=Val(InputBox(“请输入一个大于100的整数”)n=0s=0Do While s N=n+1S=s+n*nLoopPrint“满足不等式的最大n 是 n-1End Sub(7)

34、下面程序的功能是把文件filell.txt中重复字符去掉后(即若有多个字符相同，则只保留1 个)写入文件 file2.txt。请填空。Private Sub Command 1Click()Dim inchar AS String,temp AS String,outchar AS StringOutchar=”Open=filel.txt”For Input AS#1Open=file2.txtv For Output AS#2n=LOF(1 )inchar=Input$(n,l)For k=l To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)=0

35、 Thenoutchar=outchar&tempEnd IfNext kprint#2,outcharclose#2close#1End Sub(8)在窗体上先画1 个名为Textl的文本框和平个名为Label 1 的标签，再 画 1 个名为OP1的有4 个单选按钮数组，其 Index属性按季度顺序为0 s3(见 图 1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1 个单选按钮，则 T extl中显示相应季度的销售总额，并把相应的文字显示在标签上。图 2 是单击“第 3 季度”单选按钮产生的结果。请填空。Dim sales(12)As L

36、ongPrivate Sub Form_ Load()open sales.txt”For Input AS#1For k=l To 12Input#l,sales(k)Next kClose#1End SubPrivate Sub Opl_Click(Index,AS Integer)Dim sum AS Long,k AS Ingeger,month AS Ingegersum=0month=Index*3For k=l To 3month=month+lsum=sum+sales(month)Next kLabel 1 .Caption=Opl(Index).Caption&”销售总额：

37、”Textl=sumEnd Sub(9)某人编写如下函数来判断a 是否为素数，若是，则函数返回True；否则返回FalseFunction Prime(a As Integer)AS BooleanDim k As Interger,isprime AS BooleanIf a2 Thenisprime=FalseElseisprime=Truek=2Do While k If a Mod k=0 Thenisprime=FalseELSEk=k+lEnd IFLOOPEnd Ifprime=isprimeEnd Function在测试时发现有1 个非素数也被判断为素数，这个错判的数是 420

38、07年 4 月全国计算机等级考试二级VB语言笔试试题答案选择题：1-10 cdacd cabaa11-20 ddbcd abadc21-30 bbdca cddbc31-35 bcada填空：63 黑盒测试 DBMS 开发阶段 数据词典 0 N-1#2 1 0outchar opl_click 3 caption 407年 9 月全国计算机二级VB笔试含答案引用地址：http:/ 复 制|超文本复制 返 回 金牌计算机二级.关闭窗口13887330 dxjzsyt 发表于：08-03-10 09:50123456个家具系无赖的自白 东大传说那个女孩 紫金之巅二食堂中锅菜 军 理 工 FOREV

39、ER蝴蝶 大学生社区逝去童年，沾染尘埃 雨中情-雨花台 19路公交车（版里好久没人.南农之浦口风云你！就要毕业了.九中情徐武老师是九中的君子 江苏经贸学院论如果我们分手了，你会怎样.倾城晓庄今年夏天2007年 9 月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满 分 100分）一、选 择 题（每小题2 分，共 70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。（1）软件是指A）程序 B）程序和文档C）算法加数据结构 D）程序、数据与相关文档的完整集合（2）软件调试的目的是A）发

40、现错误 B）改正错误C）改善软件的性能 D）验证软件的正确性（3）在面向对象方法中，实现信息隐蔽是依靠A）对象的继承 B）对象的多态C）对象的封装 D）对象的分类（4）下列叙述中，不符合良好程序设计风格要求的是A）程序的效率第一，清晰第二 B）程序的可读性好C）程序中要有必要的注释 D）输入数据前要有提示信息(5)下列叙述中正确的是A)程序执行的效率与数据的存储结构密切相关B)程序执行的效率只取决于程序的控制结构C)程序执行的效率只取决于所处理的数据量D)以上三种说法都不对(6)下列叙述中正确的是A)数据的逻辑结构与存储结构必定是一一对应的B)由于计算机存储空间是向量式的存储结构，因此，数据的

41、存储结构一 定是线性结构C)程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D)以上三种说法都不时(7)冒泡排序在最坏情况下的比较次数是A)n(n+l)/2 B)nlog2 n C)n(n1)/2 D)n/2(8)一棵二叉树中共有70个叶子结点与80个度为1 的结点，则该二叉树中的总结点数为A)219B)221 C)229 D)231(9)下列叙述中正确的是A)数据库系统是一个独立的系统，不需要操作系统的支持B)数据库技术的根本目标是要解决数据的共享问题C)数据库管理系统就是数据库系统D)以上三种说法都不对(1 0)下列叙述中正确的是A)为了建立一个关系，首先要构造数据的

42、逻辑关系B)表示关系的二维表中各元组的每一个分量还可以分成若干数据项C)一个关系的属性名表称为关系模式D)一个关系可以包括多个二维表(11)要使一个文本框可以显示多行文本，应设置为True的属性是A)Enabled B)MultiLine C)MasLenfthD)Width(1 2)在窗体上有一个名为Text 1 的文本框。当光标在文本框中时，如果按下字母键“A，则被调用的事件过程是A)Form_KeyPress()B)Text 1 _LostFocus()C)Textl_Click()D)Testl_Change()(1 3)设在窗体上有一个名称为Command 1 的命令按钮和一个名称为

43、Textl的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是A)Private Sub Commandl_Click()B)Private SubTextl.GotFocus Command 1 .GotFocusEnd Sub EndSubC)Private Sub Commandl_Click()D)Private SubTextl.SetFocus Command 1 .SetFocusEnd Sub End Sub(1 4)执行以下程序后输出的是Private Sub Command 1 _Click()Ch$=AABCDEFGH”PrintMid(Ri

44、gh(ch$,6),Len(left(ch$,4),2)End SubA)CDEFGH B)ABCD C)FG D)AB(1 5)设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体匕正确的事件过程是A)Prvate Sub Listl_Click()B)Private Sub Forml_Click()Print Listl.Text Print Listl.TextEnd Sub End SubC)Private Sub Listl_Click()D)Private Sub Forml_Click()Print Forml.Text Li

45、stl.Print Listl.TextEnd Sub End Sub(1 6)若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离(1 7)为使程序运行时通用对话框C D 1 匕 显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是A)CDl.DialogTitle=”对话框窗口”B)CDl.Action=”对话框窗口”C)CDl.FileName=对话框窗口”D)CD 1 .Filter=”对话框窗口”(1 8)在窗体上有如右图所示的控件，各控件的名

46、称与其标题相同，并有如下程序：Private Sub Form_Load()Command2.Enabled=FalseCheck l.value=lEnd Sub刚运行程序时，看到的窗体外观是：(19)设在窗体中有一个名称为L istl的列表框，其中有若干个项目(如图)。要求选中某一项后单击Commandl按钮，就删除选中的项，则正确的事件过程是A)Private Sub Command 1 _Click()Listl.ClearEnd SubB)Private Sub Command 1 _Click()Listl.Clear Listl.ListindexEnd SubC)Private

47、 Sub Command 1 _Click()Listl.Removeitem Listl.ListindexEnd SubD)Private Sub Command l_Click()Listl.RemoveitemEnd Sub(2 0)某人设计了如F 程序用来计算并输出7!(7 的阶乘)Private Sub Command 1 _Click()t=0For k=7 To 2 Step-1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是A）把 t=0改为t=lB）把 For k=7 To 2 Step-1 改为 For k=

48、7 To 1 Step-1C）把 For k=7 To 2 Stip-1 改为 Fork-1 To 7D）把 Next 改为 Nexi k（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框T extl和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text

49、l文本框中。下面可实现此功能的事件过程是：标题名称文 件 file新 建 new保 存 saveA）Private Sub save_Click（）B）Private Sub save_Click（）Textl.Text=file.save.Caption Text 1 .Text=save.CaptionEnd Sub End SubC）Private Sub file_Click（）D）Private Sub file_Click（）Textl.Text=file.save.Caption Text 1 .Text=save.CaptionEnd Sub End Sub（23）某人在窗体上

50、画了一个名称为Timerl的计时器和一个名称为Lab的属性设置为Enabled=True,lnlerval=O,并编程如下。希望在每2 秒在标签上显示次系统当前时间。Private Sub Timer l_Timer（）Label 1 .Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是A）通过属性窗U把计时器的Interval属性设置为2000B）通过属性窗口把计时器的Enabled属生设置为FalseC）把事件过程中的 LabelLCaption=Time$语句改为 Timerl.Interval=Tims$D）把事件过程中的 Label 1叩1