2011-2019年全国计算机二级VB考试真题及答案

201120119VB笔试试卷及参考答案20119VisualBasic（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）A）B）C）D）确选项填涂在答题卡相应位置上，答在试卷上不得分。下列叙述中正确的是（ ）。A）算法就是程序 B）设计算法时只需要考虑数据结构的设C）设计算法时只需要考虑结果的可靠性D）以上三种说法都不对下列关于线性链表的叙述中，正确的是A）致B）C）进行插入与删除时，不需要移动表中的元素D）以上三种说法都不对下列关于二叉树的叙述中，正确的是叶子结点总是比度为2的结点少一个 叶子结点总是比度为2的结多一个叶子结点数是度为2的结点数的两倍 度为2的结点数是度为1的点数的两倍软件按功能可以分为应用软件、系统软件和支撑软件（或工具软件）面属于应用软件的是A）学生成绩管理系统 B）C语言编译程C）UNIX操作系统 D）数据库管理系统某系统总体结构图如下图所示：该系统总体结构图的深度是A）7 B）6 C）3 D）2程序调试的任务是A）设计测试用例 B）验证程序的正确性C）发现程序中的错误 D）诊断和改正程序中的错下列关于数据库设计的叙述中，正确的是A）在需求分析阶段建立数据字典 B）在概念设计阶段建立数据字C）在逻辑设计阶段建立数据字典 D）在物理设计阶段建立数据字数据库系统的三级模式不包括A）概念模式 B）内模式 C）外模式 D）数据模式R、STRST自然连接 B）差 C）交 D）并下列选项中属于面向对象设计方法主要特征的是A）继承 B）自顶向下 C）模块化 D）逐步求精以下描述中错误的是A）Caption窗体的名称（Name）C）窗体的背景图形通过其Picture属性设置D）窗体最小化时的图标通过其Icon在设计阶段，当按Ctrl+R键时，所打开的窗口A）代码窗口 B）工具箱窗口工程资源管理器窗口 D）属性窗口Dima,bAsBoolean则下面叙述中正确的是A）a和b都是布尔型变量 B）a是变体型变量，b是布尔型变C）a是整型变量，b是布尔型变量 D）a和b都是变体型变量VisualBasicA）A#A B）4ABC C）?xy D）Print_TextLargeChange100，100A）单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B）滚动框位置的最大值C）拖动滚动框时滚动框位置的变化量D）PrivateSubCommand1_Click()MsgBoxStr(123+321)EndSub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A）字符串“123+321”B）字符串“444”C）数值“444” D）空假定有以下程序：PrivateSuba=1:b=aDoUntila>=5x=a*bPrintb;a=a+bb=b+aLoopEndSub程序运行后，单击窗体，输出结果是A）1 1 B）1 1 C） 11 D） 1 12 3 24 3 8 3 6List1List_ClickA）List1.RemoveItemList1.Text B）List1.RemoveItemList1.ClearC）List1.RemoveItemList1.ListCount List1.ListIndex列表框中的项目保存在一个数组中，这个数组的名字是A）Column B）Style C）List PrivateSubForm_Click()DimsAsInteger,xAss=0x=0DoWhiles=10000x=x+1s=s+x^2LoopPrintsEndSubs=1+22+32+…+n2+…，s>10000后，发现得不到正确的结果，必须进行修改。下列修改中正确的是x=0x=1DoWhiles=10000DoWhiles<=C）DoWhiles=10000DoWhiles>10000D）x=x+1s=s+x^2设有如下程序：PrivateSubDimsAsLong,fAsLongDimnAsInteger,iAsf=1n=4Fori=1Tonf=f*is=s+fNextiPrintsEndSub程序运行后，单击窗体，输出结果是A）32 B）33 C）34 D）35a=0Fori=1To3Forj=1ToiFork=jTo3a=a+1Nexti

Nextj

Nextk执行上面的程序段后，a的值为A）3 B）9 C）14 D）21设有如下程序：PrivateSubClsa$="123456"Fori=1To6PrintTab(12-i);NextiEndSub程序运行后，单击窗体，要求结果如图所示，则在 处应填入的容为i) 8-i,i) i) 7,i)设有如下程序：PrivateSubDimiAsInteger,xAsString,yAsStringx="ABCDEFG"Fori=4To1Step-1y=Mid(x,i,i)+yNextiPrintyEndSub程序运行后，单击窗体，输出结果是A）ABCCDEDEFG C）ABCDEFG D）AABBCCDDEEFFGG设有如下程序：PrivateSubDimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=1To5ary(i)=i+1sum=sum+ary(i)NextiPrintsumEndSub程序运行后，单击窗体，则在窗体上显示的是A）15 B）16 C）20 D）25330，1，1，1，2，4，7，13，24，……1000某人编写程序如下：PrivateSubForm_Click()DimDimiAscAsInteger,Integer,aAsInteger,bAsIntegerdAsIntegera=0:b=1:c=1d=a+b+ci=5Whiled<=1000Printd;a=b:b=c:c=dd=a+b+ci=i+1WendEndSub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A）把Whiled<=1000改为Whiled>1000B）把i=5改为i=4C）把i=i+1移到Whiled<=1000的下面D）在i=5Printa;b;c;Arrayaa=Array(1,2,3,4,5,6,7,8,9)针对a的声明语句应该是A）Dima B）DimaAsIntegerC）Dima(9)AsInteger D）Dima()AsInteger下列描述中正确的是A）VisualBasic只能通过过程调用执行通用过程B）SubSubC）可以像通用过程一样指定事件过程的名字D）Sub过程和Function过程都有返回值阅读程序：Functionfac(ByValnAsInteger)AsIntegerDimtempAsIntegertemp=1Fori%=1Tontemp=temp*i%Nexti%fac=EndFunctionPrivateSubForm_Click()DimnsumAsIntegernsum=1Fori%=2To4nsum=nsum+fac(i%)Nexti%PrintnsumEndSub程序运行后，单击窗体，输出结果是A）35 B）31 C）33 D）37Command1SubS(xAsInteger,yAsInteger)StaticzAsIntegery=x*x+zz=yEndSubPrivateSubCommand1_Click()DimiAsInteger,zAsm=0z=0Fori=1To3Si,zm=m+zNextiLabel1.Caption=Str(m)EndSub程序运行后，单击命令按钮，在标签中显示的内容A）50 B）20 C）14 D）7以下说法中正确的是A）MouseUp事件是鼠标向上移动时触发的事件B）MouseUpx，yC）MouseUpD）MouseUp事件过程中不能判断鼠标的位置FalsePrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,AsSingle,YAsSingle)IfButton=1AndButton=2ThenPopupMenua1EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,AsSingle,YAsSingle)PopupMenua1EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,AsSingle,YAsSingle)IfButton=1ThenPopupMenua1EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,AsSingle,YAsSingle)IfButton=2ThenPopupMenua1EndIfEndSubCD1PrivateSubForm_Load()CD1.DefaultExt="doc"CD1.FileName="c:\file1.txt"CD1.Filter="应用程序(*.exe)|*.exe"EndSub认文件类型是A）应用程序(*.exe)B）*.doc C)*.txt D)不确定以下描述中错误的是A）在多窗体应用程序中，可以有多个当前窗体B）多窗体应用程序的启动窗体可以在设计时设定C）D）EXE以下关于顺序文件的叙述中，正确的是A）B）文件中各记录的写入顺序与读出顺序是一致的InputLineInput#语句向文件写记录Append二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。数据结构分为线性结构与非线性结构，带链的栈属于 【1】 。在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动中 【2】 个元素。常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过求分析建立数据流图（DFD），则应采用 【3】 方法。数据库系统的核心是 【4】 。在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的性，联系通常被转换为 【5】 。为了使标签能自动调整大小以显示标题）应把该标签的【6】 属性设置为True。Command1PrivateSubCommand1_Click()x=1Result=1Whilex<=10Result= 【7x=x+1WendPrintResultEndSub上述事件过程用来计算10的阶乘，请填空。Command1PrivateSubCommand1_Click()t=0:m=1:Sum=0Dot=t+ 【8】Sum=Sum=Sum+m=m+2LoopWhile【10】PrintSumEndSub该程序的功能是，单击命令按钮，则计算并输出以下表达式的值1+(1+3)+(1+3+5)+...+(1+3+5+...+39) 请填空。在窗体上画一个命令按钮（NameCommand1），码：PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=6PrintM(2+M(x))EndSub程序运行后，单击命令按钮，输出结果是 【11】 。在窗体上画一个命令按钮，其名称为Command1，PrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个整数："))IfnMod3=0AndnMod2=0AndnMod5=0ThenPrintn+10EndIfEndSub程序运行后，单击命令按钮，在输入对话框中输入60，则输出结是 【12】 。在窗体上画一个命令按钮，其名称为Command1，PrivateSubCommand1_Click()DimctAsStringDimntAsIntegerOpen"e:\stud.txt" 【13DoWhileTruect=InputBox("请输入姓名：")Ifct= 【14】 ThenExitnt=Val(InputBox("请输入总分："))Write#1, 【15】LoopClose#1EndSub以上程序的功能是，程序运行后，单击命令按钮，则向e盘根目录下的文件stud.txt中添加记录（保留已有记录），添加的记录由键盘输入；如果输入“end”，则结束输入。每条记录包含姓名（字符串型）和总分（整型）两个数据。请填空。参考答案参考答案一、选择题（每小题2分，共70分）（1）D（2）C（3）B（4）A（5）C（6）D（7）A（8）D（9）B（10）A（11）B（12）C（13）B（14）D（15）A（16）B（17）D（18）D（19）C（20）B（21）B（22）C（23）A（24）A（25）C（26）D（27）A（28）A（29）C（30）B（31）C（32）B（33）A（34）A（35）B二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。【1】线性结构【2】n【3】结构化【4】数据库管理系统【5】关系【6】AutoSize【7】Result*x【8】m【9】t【10】m<40或m<=39【11】4【12】70【13】ForAppendAs#1【14】"end"【15】ct,nt201120113VB20109VB试试题201020103VB试试题20103VB一、选择题（每题2分，共70分）下列叙述中正确的是(A )nnn（n/2）n（log2n）n（nlog2n）算法的时间复杂是指(D )A)算法的执行时间 B)算法所处理的数据量C)算法程序中的语句或指令条数 D)算法在执行过程中所需要的基本运次数软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件下面属于系统软件的是( B )A)编辑软件 B)操作系统 C)教务管理系统 D）浏览器软件（程序）调试的任务是(A )A)诊断和改正程序中的错误 B)进肯能多的发现程序中错误C)发现并改正程序中的所有错误 D)确定程序中错误的性质（5）数据流程图（DFD图）是(C)A)软件概要设计的工具B)软件详细设计的工具C)机构化方法的需求分析工具D)面向对象方法的需求分析工具软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属(B )A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段A）数据定义语言B）C）D）A）文件B）数据库C）字段D）记录E-RBB）C）D）RTRTA）选择C）交D）并VBDxⅡf(x>0,-x,x)A）|x|B）-|x|C）xD）-xPrivateSubCommand1_Click（）Dimsa%=100PrintEndasA）整型，整型变体型，变体型D）A）TextB）CaptionC）LeftD）Enabled下面不能在信息框中输出“VB”A）MsgBox"VB"B）x=MsgBox（"VB"）C）MsgBox（"VB"）D）CallMsgBox"VB"(不能输出VB)窗体上有一个名称为Option1某个单选按钮时，会调用下面的事件过程PrivateSubOption1_C1ick（IndexAsInteger）…EndSubIndexCA）Index1OB）IndexC）IndexD）IndexBA）Text1SetFocusGotFocusLostFocusD）GotFocusVB3KeyDownKeyUp，若光标在A这3个事件都会触发B）只触发KeyPress事件C）只KeyDown、KeyUpD）不触发其中任何一个事件A）标准模块中可以声明全局变量标准模块中可以包含一个SubMain程PublicD）一个工程中可以含有多个标准模块Form1，Win，MouseDown的过程名是AA）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1A）Dimarr()AsInteger…ReDimarr(3,5)B）Dimarr()AsInteger…ReDimarr(50)AsStringC）Dimarr()…ReDimarr(50)AsIntegerD）Dimarr(50)AsInteger…ReDimarr(20)DFunctiongcd(ByValxAsInteger,ByValyAsInteger)As8、12、163Printgcd(8,12,16)Printgcd(8)，gcd(12)，gcd(16)D）Printgcd(8,gcd(12,16))1Dima(3,5)AsIntegerFori=1To3Forj=1To5A(i,j)=i+jPrinta(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是AFori=1To5Forj=1To3Printa（j,i）;NextPrintNextFori=1To3Forj=1To5Printa（j,i）;NextPrintNextForj=1To5Fori=1To3Printa（j,i）;NextPrintNextFori=1To5Forj=1To3Printa（i,j）;NextPrintNextText1Command1PrivateSubCommandl_Click（）DimnIfText1.Text<>"23456"Thenn=n＋1Print"口令输入错误"&n&"次"EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是DDimnn=OPrint&n&Print+n+"次"Print"口令输入错误"&n&Print"口令输入错误"&Str(n)&"次"DimnStaticnP1CPrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XSingle,YAsSingle）PrintX,YEndSubPrivateSubP1_MouseDown（ButtonASInteger,ShiftAsInteger,XSingle,YAsSingle）Picture.PrintX,YEndSubPrivateSubASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSubPrivateSubForm_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSub计算二的近似值的一个公式是。πPrivateSubComand1_Click（）PI＝1Sign＝1n=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是CA）Fork=3Ton改为Fork=1ToB）n=20000n=20000000C）Fork=3TonFork=3TonStepD）PI=1PI=0APrivateSubComand1_Click（）a=10s=0Dos=s+a*a*aa=a-1LoopUntila<=0PrintsEndSubA）13+23+33+…+103B）10!+…+3!+2!+1!的值C）（1+2+3+…+10）3D）10103PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr（5）Asrec则下面的输出语句中正确的是A）Printarr.Code(2),arr.Caption(2)B）Printarr.Code,arr.CaptionC）Printarr(2).Code,arr(2).CaptionD）PrintCode(2),Caption(2)设窗体上有一个通用对话框控件CD1，CPrivateSubComand1_Click（）CD1.DialogTitle="打开文件"CD1.InitDir="C:\"CD1.Filter="所有文件|*.*|Word|*.doc|文本文件CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未打开文件"ElseEndIfEndSub

Print"要打开文件"&CD1.FileNameC:\栏中显示的是“所有文件”。下面的修改方案中正确的是A）把CD1.Action=1改为CD1.Action=2B）把“CD1.Filter=”C）CD1.Action=1：CD1.FilterIndex=3D）把CD1.FileName=""改为CD1.FileName="文本文件"395，PrivateSubComand1_Click（）Dimx%x=InputBox("请输入一个3位整数")PrintxMod10,x\100,(xMod100)\10EndSubA）395B）539C）593D）359List1List2（见图PrivateSubComand1_Click（）Fork=List1.ListCount-1To0Step-1IfList1.Selected（k）ThenList2.AddItemList1.List（k）List1.RemoveItemkEndIfNextkEndSubList12CommandlCA）List2B）List1C）A）B）的结果D）把List1中最后1个列表项删除并插入到List2中2Form1、Form2，Form1Form2Form1Text1（ASCII13）Form1，Form2。若口令为Form1PrivateSubText1_KeyPress（KeyAsciiAsInteger）IfKeyAscii=13ThenIfText1.Text="Teacher"ThenForm2.input.visible=TrueEndIf

ElseEndIf

Form2.input.visible=FalseForm1.HideForm2.ShowEndSubForm1Form2，BForm1Text1Form2Form1.Hide、Form2.Show2EndIfIfKeyAscii=13ThenIfKeyAscii="Teaeher"D）2Form2.input.Visible“Form2”删去Text1文件中PrivateSubComand1_Click（）Open"out.txt"ForOutputAs#2Print"Text1"Close#2EndSubA）Print"Text1Print#2,Text1Print"Text1PrintText1C）Print"Text1WriteD）把所有#2#1Command1PrivateSubComand1_Click（）Dimarr（5）AsIntegerFork=1To5arr（k）=kNextkprogarr（）Fork=1To5Printarr（k）NextkEndSubSubprog（a（）AsInteger）n=Ubound（a）Fori=nTo2step-1Forj=1Ton-1ift=a（j）:a（j）=a（j+1）:a（j+1）=tEndIfNextjNextEndSubA）12345B）54321C）01234D）43210下面程序运行时，若输入“VisualBasicProgramming”，DPrivateSubComand1_Click（）Dimcount（25）AsInteger,chAsStringch=Ucase（InputBox（"请输入字母字符串"））Fork=1ToLen（ch）n=Asc（Mid（ch,k,1））-Asc（"A"）Ifn>=0ThenCount（n）=Count（n）+1EndIfNextkm=count（0）Fork=1To25Ifm EndIfNextkPrintmEndSubA）0B）1C）2D）3二、填空题A,B,C,D,E,F,5,4,3,2,1队，然后再依次退队，则元素退队的顺序为【1】。设某循环队列的容量为50，如果头指针指向队头元素的前一位置指向队尾元素2】个元素。设二叉树如下：对该二叉树进行后序遍历的结果为 【3】 。软件是 【4】、数据和文档的集合。有一个学生选课的关系，其中学生的关系模式为：学生（班级，年龄），课程的关系模式为：课程（课号，课程名，学时），其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课（学号， 【5】 ，成绩）。为了使复选框禁用（即呈现灰色），应把它的value属性设为 【6】 。在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1Timer1Command1，如图12PrivateSubForm_Load（）Label1.Caption="欢迎"Timer1.Enabled=FalseTimer1.Interval= 【7EndSubPrivateSubTimer1_Timer（）Label1.Visible= 【8EndSubPrivateSubcommand1_Click（）【9】EndSub有如下程序：PrivateSubForm_Click（）n=10i=0Doi=i+nn=n-2LoopWhilen>2PrintiEndSub程序运行后，单击窗体，输出结果为 【10】。Command1OptionBase1PrivateSubCommand1_Click（）Dima（10）AsIntegerFori=1To10a（i）=iNextCallswap（ 【11】 Fori=1To10Printa（i）;NextEndSubSubswap（b（）AsInteger）n=Ubound（b）Fori=1Ton/2t=b（i）b（i）=b（n）b（n）=t【12】NextEndSubswap，a(1a(10)的值互换，a(2)a(9)的值互换，……。请填空。在窗体上画一个文本框，其名称为Text1，MultiLineTrue，然后编写如下的事件过程：PrivateSubForm_Click（）Open"d:\test\smtext1.Txt"ForInputAsDoWhileNot 【13】LineInput#1,aspect$Whole$=whole$+aspect$+Chr$（13）+Chr$（10）LoopText1.Text=whole$【14】Open"d:\test\smtext2.Txt"ForOutputAs#1Print#1,【15】Close#1EndSubsmtext1.txtsmtext2.txt20103VB选择题1-5 ADBAC6-10 BADBA11(D)12(B)13(C)14(A)15(D)16(C)17(B)18(A)19(B)20(A)21(A)22(D)23(A)24(D)25(C)26(C)27(A)28(C)29(C)30(B)31(C)32(B)33(A)34(B)35(D)填空题（1）A,B,C,D,E,F,5,4,3,2,1（2）15EDBGHFCA程序课号(6)【6】2(7)[7][8]Notlabel1.visible[9]Timer1.Enabled=Ture(10)[10]28(11)[11]a()或a(12)[12]n=n-1(13)[13]EOF(1)(14)[14]Close#1[15]Text1.Texttext1200920099VB笔试试题及答案一、选择题（270一、选择题下列数据结构中，属于非线性结构的是（ ）。A. 循环队列B.带链队列C.二叉树 D.带链答案C解析树均是非线性结构下列数据结构中,能够按照”先进后出”原则存取数据的是（ ）。循环队列B.栈 C.队列D.二叉答案B解析:栈是先进后出或后进先出的线性表对于循环队列,下列叙述中正确的是（ ）A.队头指针是固定不变的C.D.队头指针可以大于队尾指针，也可以小于队尾指针答案D指针小于队尾指针说明没有进行循环存放算法的空间复杂度是指（ ）。A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数答案A占空间,输入的初始数据所占空间和执行过程中所需要的额外空间.软件设计中划分模块的一个准则是（ ）。A. 低内聚低耦合B.高内聚低耦合C.低内聚高耦合 D.高内聚高耦合答案B度要低,低耦合,这样可以提高模块的独立性.下列选项中不属于结构化程序设计原则的是（ ）A.可封装B.自顶向下C.模块化D.逐步求精答案A软件详细设计产生的图如下该图是( ).A.N-SB.PADC.程序流程图D.E-R答案C数据库管理系统是（ ）。A.操作系统的一部分B.在操作系统支持下的系统软件C.一种编译系统一种操作系统B在E-R图中，用来表示实体联系的图形是（ ）A.椭圆形B.矩形C.菱形D.三角形答案C10.有三个关系R,S,T如下：RA BCa 12b 21c 31SA BCd 32TA BCa 12b 21c 31d 32其中关系T由关系R和S通过某种操作得到，该操作称为（ ）A.选择B.投影 C.交D.并答案D解析:T是由S表或R表中的元素组成的以下变量名中合法的是str_nVBD）(x*5+3)/(y*2-6)下面有关标准模块的叙述中，错误的是A）CaptionC）组合框D）FontItalic若看到程序有如下事件过程，则可以肯定的是，当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,ShiftAsInteger,XSingle,YAsSingle)Print"VBProgram"EndSub用鼠标左键或右键单击名称为“Click”的控件时，执行此过程30-50（3050）A）Int(Rnd*21+30)在程序运行时，下面的叙述中正确的是C）Form_LoadCommand1Text1PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotFocus()Text1.Text="等级考试"EndSub运行以上程序，单击命令按钮后B）Option1IfOption.Value=TrueThen下面语句中与该语句不等价的是C）IfValue=TrueThen1Max1，Min100，下面叙述中正确的是A）程序运行时，若使滚动条向左移动，滚动条的Value属性值就增加Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+1Printnuma;EndSub3var_dim3C）611PrivateSubCommand1_Click()Fori=5To1Step-0.8PrintInt(i);NextiEndSub运行程序，单击命令按钮，窗体上显示的内容为A）5432111PrivateSubCommand1_Click()Dima(3,3)Form=1To3Forn=1To3Ifn=mOrn=4-ma(m,n)=m+nElsea(m,n)=0EndIfPrinta(m,n);NextnPrintNextmEndSubB）204040406设有如下函数过程：Functionfun(aAsInteger,bAsInteger)DimcAsIntegerIfa<bThenc=a:a=b:b=cEndIfc=0Doc=c+aLoopUntilcModb=0fun=cEndFunctionfunB）a、b1Text1；1Timer1IntervalTrueTimer1下：PrivateSubTimer1_Timer()StaticflagAsIntegerIfflag=0Thenflag=1flag=-flagIfflag=-1ThenText1.ForeColor=&HFF&'&HFF&为红色ElseText1.ForeColor=&HC000&'&HC000&EndIfEndSub以下叙述中正确的是C）5（271+2+2^2+2^3+2^4+…+2^10中，若编写如下事件过程：PrivateSubCommand1_Click()Dima%,s%,k%s=1a=2Fork=2To10a=a*2s=s+NextkText1.Text=EndSubD）B）、C）两种修改标准模块中有如下程序代码：PublicxAsInteger,yAsSubvar_pub()x=10:y=20EndSub1PrivateSubCommand1_Click()DimxAsIntegerCallvar_pubx=x+y=y+Printx;EndSubB）100a，babFunctionfun(aAsInteger,bAsInteger)Whilea>ba=a-bWendfun=aEndFunctionD）Whilea>bWhilea>=bCommonDialog1选中的文件打开在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”出(X)”菜单项的访问键，可以将该菜单项的标题设置为退出(&X)11Command1Text1，再编写如下程序：DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfChr(KeyAscii)<>""Thenss=ss+Chr(KeyAscii)EndSubPrivateSubCommand1_Click()DimmAsString,iAsIntegerFori=Len(ss)To1Step-1m=m+Mid(ss,i,1)NextText1.Text=UCase(m)EndSub程序运行后，在文本框中输入“Number100”，中显示的是D）001REMBUN1Line1、Line2；名称为Shape1Line1（见图1Timer1True100，当圆遇到Line2IntervalPrivateSubTimer1_Timer()Fork=Line1.X1ToLine2.X1Step100IfShape1.Left+Shape1.Width<Line2.X1ThenShape1.Left=Shape1.Left+100EndIfNextkEndSub运行程序时发现圆立即移动到右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是B）把Fork=Line1.X1ToLine2.X1Step100和Nextk两行删除下列有关文件的叙述中，正确的是C）1Text1（Command1），List1PrivateSubCommand1_Click()Dimn%,k%n=Len(Text1.Text)Fork=0ToList1.ListCount-1IfLeft(List1.List(k),n)=Text1.TextThenList1.RemoveItemkEndIfNextkEndSubFork=0toList1.ListCount-1改为A）Fork=List1.ListCount-1To0Step-1二、填空题（每空2分，共30分）52311】14个结点。程序流程图中的菱形框表示的是【2件或判断。软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中【3】需求分析阶段产生“软件需求规格说明书”。“学生”和“可选课程”的联系为【4】多对多。作为主关键字的是【5】身份证号。Form1Form2Form11Form1Text1（圆的半径），Form2Form22PrivateSubCommand1_Click()IfText1.Text=""Thenmagbox"请输入半径！"ElseIfNotIsNumeric(【6】Text1.Text)ThenMsgBox"请输入数值数据！"Elser=Val(【7】Text1.Text)Form2.Show【8】Form2.Print"圆的面积是"&3.14*r*EndIfEndSubs，0～100，段：Ifs>=90ThenLevel="A"ElseIfs>=75Level="B"ElseIfs>=60Level="C"ElseLevel="D"EndIf下面用SelectCase请填空。SelectCasesCase【9】Is>=Level="A"Case75ToLevel="B"Case60ToLevel="C"Case【10】Else或Level="D"【11】EndSelectCommand12PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zx=3y=5z=fy(y)Printfx(fx(x)),yEndSubFunctionfx(ByValaAsInteger)a=a+afx=aEndFunctionFunctionfy(ByRefaAsInteger)a=a+afy=aEndFunction212121310。窗体上有名称为Command1Text1、能显示多行文并将文件中的内容（多行文本）显示在文本框中。下面是实现此能的程序，请填空。PrivateSubCommand1_Click()Text1=""Number=FreeFileOpen"c:\test.txt"ForInputAsNumberDoWhileNotEOF(【14】Number)LineInput#Number,sText1.Text=Text1.Text+【15】s+Chr(13)+Chr(10)LoopCloseEndSub参考答案一．选择题11.C12.D13.A14.C15.D16.D17.A18.C19.B20.C21.A22.C23.A24.B25.D26.C27.D28.B29.D30.A31.B32.D33.B34.C35.A二．填空题6.text1.texttext1.textForm27.ISELSEEND 8.12109.NUMBERS选择题1.C2.B3.D4.A5.B6.A