计算机基础模拟题及答案

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

2、情况下所需要的比拟次数为。Alog2nBn/2CnDn+15以下对于线性链表的描述中正确的选项是。A存储空间不一定是连续，且各元素的存储顺序是任意的B存储空间不一定是连续，且前件元素一定存储在后件元素的前面C存储空间必须连续，且前件元素一定存储在后件元素的前面D存储空间必须连续，且各元素的存储顺序是任意的6以下对于软件测试的描述中正确的选项是。A软件测试的目的是证明程序是否正确B软件测试的目的是使程序运行结果正确C软件测试的目的是尽可能多地发现程序中的错误D软件测试的目的是使程序符合构造化原那么7为了使模块尽可能独立，要求。A模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B模块的内聚程度

3、要尽量高，且各模块间的耦合程度要尽量弱C模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强8以下描述中正确的选项是。A程序就是软件B软件开发不受计算机系统的限制C软件既是逻辑实体，又是物理实体D软件是程序、数据与相关文档的集合9数据独立性是数据库技术的重要特点之一。所谓数据独立性是指。A数据与程序独立存放B不同的数据被存放在不同的文件中C不同的数据只能被对应的应用程序所使用D以上三种说法都不对10用树形构造表示实体之间联系的模型是。A关系模型B网状模型C层次模型D以上三个都是11在窗体名称为Form1上画一个名称为Text1的文本框和一个

4、名称为mand1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，那么把命令按钮的标题设置为“计算机等级考试。以下能实现上述操作的事件过程是。APrivateSubText1_Change()mand1.Caption="计算机等级考试"EndSubBPrivateSubmand1_Click()Caption="计算机等级考试"EndSubCPrivateSubForm1_Click()Text1.Caption="计算机等级考试"EndSubDPrivateSubmand1_Click()Text1.Tex

5、t="计算机等级考试"EndSub12设a=5，b=4，c=3，d=2以下表达式的值是。3>2*bOra=cAndb<>cOrc>dA1BTrueCFalseD213设a="MicrosoftVisualBasic"，那么以下使变量b的值为“VisualBasic的语句是。Ab=Left(a,10)B该文章自无忧考网：Cb=Right(a,10)Db=Mid(a,11,10)14假定有如下的窗体事件过程：PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Righ

6、t(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSub程序运行后，单击窗体，那么在弹出的信息框的标题栏中显示的信息是。AMicrosoftVisualBMicrosoftCBasicD515设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf(aD,A,B)后，x的值为。AaBbCBDA16为了使命令按钮名称为mand1右移200，应使用的语句是。Amand1.Move-200Bmand1.Move200Cmand1.Left=mand1.Left+200Dma

7、nd1.Left=mand1.Left-20017在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定按钮后，在窗体上显示的内容为。A123B456C479D12345618在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，

8、那么每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubmand1_Click()Timer1.EndSubPrivateSubTimer1_Timer()Text1.Text=TimeEndSub在下划线处应填入的内容是。AEnabled=TrueBEnabled=FalseCVisible=TrueDVisible=False19假定在图片框Picture1中装入了一个图形，为了去除该图形不删除图片框，应采用的正确方法是。A选择图片框，然后按Del键B执行语句Picture1.Picture=LoadPicture(")C执行语句Picture1

9、.Picture="D选择图片框，在属性窗口中选择Picture属性条，然后按回车键20在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示假设干个工程。当单击列表框中的某个工程时，在标签中显示被选中工程的名称。以下能正确实现上述操作的程序是：_。APrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSubBPrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubCPrivateSubList1_Click()Label1.Name=Lis

10、t1.TextEndSubDPrivateSubList1_Click()Label1.Caption=List1.TextEndSub21在窗体上画一个命令按钮，其名称为ma该文章自无忧考网：PrivateSubmand1_Click()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为。A9B612D1522在窗体上画一个名称为mand1命令按钮，然后编写如下事件过程：PrivateSubmand1_Click()c

11、=“ABCDForn=1To4PrintNextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD那么在处填入的内容为。ALeft(c,n)BRight(c,n)Mid(c,n,1)DMid(c,n,n)23执行以下程序段DimiAsInteger,xAsIntegerx=0Fori=20To1Step-2x=x+i5NextPrintx后，x的值为。A16B17C18D1924在VisualBasic工程中，可以作为“启动对象的程序是。A任何窗体或标准模块B任何窗体或过程CSubMain过程或其他任何模块DSubMain过程或任何窗体25假定建立了一个名为ma

12、nd1的命令按钮数组，那么以下说法中错误的选项是。A数组中每个命令按钮的名称Name属性均为mand1B数组中每个命令按钮的标题Caption属性都一样C数组中所有命令按钮可以使用同一个事件过程D用名称mand1(下标)可以访问数组中的每个命令按钮26把窗体的KeyPreview属性设置为True，然后编写如下事件过程PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch)PrintChr(KeyAscii+2)EndSub程序运行后，按键盘上的“A键，那么在窗体上

13、显示的内容是。AABBCCDD27在窗体上画一个命令按钮和一个文本框，名称分别为mand1和Text1，然后编写如下程序：PrivateSubmand1_Click()a=InputBox(“请输入日期131)t=旅游景点：_&IIf(a>0Anda<=10,长城,)_&IIf(a>10Anda<=20,故宫,)_&IIf(a>20Anda<=31,颐和园,)Text1.Text=tEndSub程序运行后，如果从键盘上输入16，那么在文本框显示的内容是。A旅游景点：长城故宫B旅游景点：长城颐和园C旅游景点：颐和园D旅游景点：故宫28在

14、窗体上画一个名称为Label1的标签，然后编写如下事件过程：PrivateSubForm_Click()Dimarr(10,10)AsIntegerD该文章自无忧考网：Fori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3)EndSub程序运行后，单击窗体，在标签中显示的内容是。A12B1314D1529在窗体上画一个名称为mand1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Else

15、fun=1EndIfEndFunctionPrivateSubmand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是。A6B7C8D930阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3T

16、o4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub程序运行后，单击窗体，输入结果为。A21B13C8D2531在窗体上画一个名称为mand1的命令按钮，然后编写如下程序：OptionBase1PrivateSubmand1_Click()DimcAsInteger,dAsIntegerd=0c=6x=Array(2,4,6,8,10,12)Fori=1To6Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextPrintdEndSub程序运行后，如果单击命令按钮，那么在窗体上输出的内容为。A10B16C12D2

17、032设有如下程序：PrivateSubmand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("请输入一个整数")LoopPrintc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，那么输出结果是。A12B1110D933在窗体上画一个名称为mand1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：MicrosoftV

18、isu该文章自无忧考网：然后编写如下事件过程：PrivateSubmand1_Click()Open"d:tempoutf.txt"ForOutputAs*1Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>="A"Andc<="Z"ThenPrint*1,LCase(EndIfNextiCloseEndSub程序运行后，单击命令按钮，文件outf.txt中的内容是。AMVBPBmvbpCMDmVvBbPp34在窗体上画一个名称为mand1的命令按钮，然后编写如下程序：DimS

19、WAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSubPrivateSubmand1_Click()DimintNum

20、AsIntegerintNum=InputBox(")IfSWThenPrintfunc(intNum)EndIfEndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，那么程序的执行结果为。A输出0B输出25输出45D无任何输出35设有如下通用过程：PublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为mand1的命令按钮。然后编写如下的事件过程：PrivateSubmand1_Click()Dimarr(5)AsInteger

21、,nAsIntegerFori=1To5arr(i)=i+iNextFunarr,nText1.Text=Str(n)EndSub程序运行后，单击命令按钮，那么在文本框中显示的内容是。A30B25C20D15二、填空题每空2分，共30分请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。1某二叉树中度为2的结点有18个，那么该二叉树中有【1】个叶子结点。2在面向对象方法中，类的实例称为【2】。3诊断和改正程序中错误的工作通常称为【3】。4在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。5问题处理方案的正确而完整的描述称为【5】。6以下语句输出结果是【6】。Pr

22、intInt(12345.6789*100+0.5)/1007在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_该文章自无忧考网：Text1.Text="VB程序设计"EndSubPrivateSubText1_Change()Picture1.Print"VBProgramming"EndSub程序运行后，单击窗体，那么在文本框中显示的内容是【7】，而在图片框中显示的内容是【8】。8阅读下面的程序：PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCh

23、eck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub程序运行后，单击窗体，输出结果为【9】。9设有如下程序：PrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】。程序运行后，单击窗体，输出结果为【11】。10设有如下程序：Op

24、tionBase1PrivateSubmand1_Click()Dimarr1DimMinAsInteger,iAsIntegerarr1=Array(12,435,76,-24,78,54,866,43)Min=【12】Fori=2To8Ifarr1(i)<MinThen【13】NextPrint"最小值是："MinEndSub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。11在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写

25、如下的事件过程：PrivateSubForm_Click()Open"d:testsmtext1.txt"ForInputAs*1DoWhileNot【14】LineInput*1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close*1Open"d:testsmtext2.txt"ForOutputAs*1Print*1,【15】Close*1EndSub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容

26、存入磁盘文件smtext2.txt。请填空2005年4月全国计算机等级考试二级VB语言笔试答案参考答案：选择题：1-5DBDCA6-10CBDDC11-15ABBCD16-20CDABD21-25ABCDB26-30CDBBA31-35CDDDA填空题：【1】19【2】对象【3】程序调试该文章自无忧考网：【4】关系【5】算法【6】12345.68【7】VB程序设计【8】VBProgramming【9】10【10】求1-8的和【11】36【12】arr1(1)【13】min=arr1(i)【14】EOF(1)【15】text1.text(或whole$)完毕该文章自无忧考网：07年4月二级VB语

27、言笔试试题及答案发布时间：11-04页数：7页上一篇:06年四月全国等级考试二级VB语言考前密卷(一)下一篇:02年9月二级VB语言笔试试题及答案-2007年4月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计一、选择题(第小题2分,共70分)以下各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)以下表达中正确的选项是(B)A)算法的效率只与问题的规模有关，而与数据的存储构造无关B)算法的时间复杂度是指执行算法所需要的计算工作量C)数据的逻辑构造与存储构造是一一对应的D)算法的时间复杂度与空间复杂度一定相关(

28、2)在构造化程序设计中，模块划分的原那么是(D)A)各模块应包括尽量多的功能B)各模块的规模应尽量大C)各模块之间的联系应尽量严密D)模块内具有高内聚度、模块间具有低耦合度(3)以下表达中正确的选项是(A)A)软件测试的主要目的是发现程序中的错误B)软件测试的主要目的是确定程序中错误的位置C)为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作D)软件测试是证明软件没有错误(4)下面选项中不属于面向对象程序设计特征的是(C)A)继承性B)多态性C)类比性D)封装性(5)以下对队列的表达正确的选项是(D)A)队列属于非线性表B)队列按“先进后出原那么组织数据C)队列在队尾删除数据D)

29、队列按“先进先出原那么组织数据6)对以下二叉树(C)ABCDEFXYZ进展前序遍历的结果为A)DYBEAFCZXB)YDEBFZXCAC)ABDYECFXZD)ABCDEFXYZ(7)某二叉树中有n个度为2的结点,那么该二叉树中的叶子结点数为(A)A)n+1B)n-1C)2nD)n/2(8)在以下关系运算中,不改变关系表中的属性个数但能减少元组个数的是(B)A)并B)交C)投影D)笛卡儿乘积(9)在ER图中,用来表示实体之间联系的图形是(C)A)矩形B)椭圆形C)菱形D)平行四边形(10)以下表达中错误的选项是(A)A)在数据库系统中,数据的物理构造必须与逻辑构造一致B)数据库技术的根本目标是

30、解决数据共享问题C)数据库技术是指己有数据管理系统的根底上建立数据库D)数据库系统需要操作系统的支持(11)下面可以正确定义2个整形变量和1个字符串变量的语句的是(D)A)Dimn,mASInterger,sASStringB)Dima%,b$,cASStringC)DimaASInteger,b,cASStringD)Dimx%,yASInteger,zASString(12)以下表述中不能判断x是否为偶数的是(D)A)x/2=Int(x/2)B)xMod2=0C)Fix(x/2)=x/2D)x2=013)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面表达中正确的选项是(B

31、)A)窗体的Click事件过程的过程名是Myform_ClickB)命令按钮的Click事件过程名是C1_ClickC)命令按钮的Click事件过程的过程名是mand1_Click(14)设窗体上有1个滚动条,要求单击滚动条右端的按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是(C)A)MaxB)MinC)SmallChangeD)LargeChang(15)1个二维数组可以存放1个矩形.在程序开场有语句OptionBase0,那么下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是(B)A)Dima(-2To0,2)ASIntegerB)Dima(3,2)ASIngeger

32、C)Dima(4,3)ASIngegerD)Dima(-1To-4,-1To-3)ASIngeger(16)假设设置了文本框的属性PasswordChar=$,那么运行程序时向文本框中输入8个任意字符后,文本框中显示的是(A)A)8个$B)1个$C)8个*D)无任何内容(17)设在窗体上有1个名称为bo1的组合框,含有5个工程,要删除最后一项,正确的语句是(B)A)bo1.RemoveItembo1.TextB)bo1.RemoveItem4C)bo1.RemoveItembo1.ListCountD)bo1.RemoveItem5(18)工程中有2个窗体,名称分别为Form1.Form2,F

33、orm1为启动窗体,该窗体上有命令按钮mand1,要求程序运行后单击该命令按钮时显示Form2,那么按钮的Click事件过程应该是(A)A)PrivateSubmand1_Click()B)PrivateSubmand1_Click()Form2.ShowForm2.VisibleEndSubEndSubC)PrivateSubmand1_Click()D)PrivateSubmand1_Click()LoadForm2Form2.LoadEndSubEndSub(19)假设在某窗体模块中有如下事件过程(D)PrivateSubmand1_Click(IndexASInteger)EndSub

34、那么以下表达中正确的选项是A)此事件过程与不带参数的事件过程没有区别B)有1个名称为mand1的窗体,单击此窗体那么执行此事件过程C)有1个名称为mand1的空件数组,数组中有多个不同类型控件D)有1个名称为mand1的空件数组,数组中有多个一样类型控件(20)以下循环语句中在任何情况下都至少执行一次循环体的是(C)A)DoWhile<条件>B)While<条件>循环体循环体LoopWendC)DoD)DoUntil<条件>循环体循环体LoopUntil<条件>Loop(21)在窗体上有1个名为Cd1的通用对话框,为了在运行程序时翻开保存文件对话

35、框,那么在程序总应使用的语句是(A)A)Cd1.Action=2B)Cd1.Action=1C)Cd1.ShowSave=TureD)Cd1.ShowSave=0(22)下面关于菜单的表达中错误的选项是(B)A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以一样C)弹出式菜单也用菜单编辑器编辑(23)有下面的过程(D)PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)EndSub正确调用此过程的语句是A)Callprocl(5)B)Callproc15,abc,FalseC)

36、proc1(12,abc,True)D)proc15,“abc(24)在窗体上有一个文件名称为Text1的文本框和1个名称为mand1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C)A)PrivateSubmand1_Click()B)PrivateSubmand1_Click()Text1.Left=100Text1.Left=Text1.Left-100EndSubEndSubC)PrivateSubmand1_Click()D)PrivateSubmand1_Click()Text1.Move.Text.Left+100Te

37、xt1.Move.Text.LeftEndSubEndSub(25)某人创立了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(A)A)在工程属性对话框中把“启动对象设置为Form2B)在Form1的Load事件过程中参加语句LoadForm2C)在Form2的Load事件过程中参加语句Form2.ShowD)在Form2的TabIndex属性设置为，把Form1的TabIndex属性设置为(26)窗体上有个名称为Text1的文本框和个名称为mand1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框

38、中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C)A)PrivateSubmand1_Click()B)PrivateSubmand1_Click()Open“out.txtForInpitAs*1Open“out.txtForOutpitAs*1Print*1,Text1.TextPrint*1,Text1.TextClose*1Close*1EndSubEndSubC)PrivateSubmand1_Click()D)PrivateSubmand1_Click()Open“out.txtForAppendAs*1Open“out.tx

39、tForRandomAs*1Print*1,Text1.TextPrint*1,Text1.TextClose*1Close*1EndSubEndSub(27)为计算1+3+5+99的值，某人编程如下k=1s=0Whilek<=99k=k+2:s=s+kWendPrints在调试时发现运行结果有错误，需要修改。以下错误原因和修改方案中正确的选项是(D)A)WhileWend循环语句错误，应改为Fork=1To99NextkB)循环条件错误，应改为Whliek<99C)循环前的赋值语句k=1错误，应改为k=0D)循环中两条赋值语句的顺序错误，应改为s=s+k:29在窗体上有1个名称为

40、monDialog1的通用对话框和1个名称为mand1的命令按钮，以及其他一些控件。要求在程序运行时，单击mand1按钮，那么显示翻开文件对话框，并在选择或输入了1个文件名后，就可以翻开该文件。以下是mand1_Click事件过程的两种算法算法1：PrivateSubmand1_Click()monDialog1.ShowOpenOpenmonDialog1.FileNameForInputAs*1EndSub算法2：PrivateSubmand1_Click()monDialog1.ShowOpenIfmonDialog1.FileName<>ThenOpenmonDialog1

41、.FileNameForInputAs*1EndIfEndSub下面关于这两种算法的表达中正确的选项是(B)A)显示翻开文件对话框后假设未选择或输入任何文件名，那么算法2会出错，算法1不会B)显示翻开文件对话框后假设未选择或输入任何文件名，那么算法1会出错，算法2不会C)两种算法的执行结果完全一样D)算法1允许输入的文件名中含有空格，而算法2不允许30窗体上有1个名称为List的列表框，其中已经输入了假设干个工程如下图：还有2个文本框，名称分别为Text1、Text2,1个名称为mand1的命令按钮，并有以下程序PrivateSubmand1_Click()DimstrAsString,sAs

42、String,kAsIntegers=Text1Str=Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&EndIfNextkIfstr=ThenText2=没有匹配的工程ElseText2=strEndIfEndSub程序运行时，在Text1中输入“京，单击命令按钮，那么在Text2中显示的内容是(C)A)京B)XXC)XXD)没有匹配的工程31在窗体上画1一个名称为mand1的命令按钮，并编写以下程序PrivateSubmand1_Click()Printf

43、un(“ABCDEFG)EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp=Forkfun=tempEndFunction程序运行时，单击命令按钮，那么窗体上显示的是(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED(32)在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片见图1，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中见图2。能实现此功能的事件过程是(C)A)PriateSubForm_Dra

44、gDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)EndSubB)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubC)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Pictu

45、re1.Top+YEndSubD)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub(33)在窗体上画1个名称为mand1的命令按钮，然后编写如下事件过程OptionBase1PribateSubmand1_Click()Dima(5.5)AsIntegerFori=1To5a(I,j)*510NextjNextiS=0Fori=1To5S=s+a(i,i)NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是(

46、A)A)15B)13C)11D)9(34)在窗体上从左到右有Text1、Text2两个文本框见图，要求程序运行时，在Text1中输入1个分数后按回车键，那么判断分数的合法性，假设分数为0100中的1个数，周围光标移到Text2中；否那么光标不动，并弹出对话框显示“分数错，下面程序中正确的选项是(D)A)PrivateSubText1_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then回车符的ACSII码是13a=Val(Text1)Ifa>=0ora<=100ThenText2.SetFocusElseText1.SetFocus;MsgBox

47、(“分数错)EndIfEndIfEndSubB)PrivateSubText1_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then回车符的ACSII码是13a=Val(Text1)Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus;MsgBox(“分数错)EndIfEndIfEndSubC)PrivateSubText1_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then回车符的ACSII码是13a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分数错)EndIfEndIfEndSubD)PrivateSubText1_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then回车符的ACSII码是13a=Val(Text1)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分数错)EndIfEndIfEndSub(35)在窗体