国家二级（VB）机试模拟试卷23（共391题）

国家二级（VB）机试模拟试卷23（共9套）（共391题）国家二级（VB）机试模拟试卷第1套一、选择题(本题共40题，每题1.0分，共40分。)1、下面叙述中错误的是A、由于窗体不能获得焦点，所以窗体没有键盘事件B、框架控件没有键盘事件C、标签控件没有键盘事件D、文本框有键盘事件，但当Enabled属性被设置为False时，其键盘事件无法被激活标准答案：A知识点解析：KeyPreview属性返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为：KeyDown、KeyUp和KeyPress。当KeyPreview的值为True时窗体先接收键盘事件，然后是活动控件接收事件；为False时（缺省值）活动控件接收键盘事件，而窗体不接收。2、设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是A、滚动条的Max和Min属性的值分别是1和100B、滚动条的Max和Min属性的值分别是100和1C、文本框中显示的是滚动条Value属性的值D、如果把滚动框移动到中间位置，文本框中将显示50标准答案：B知识点解析：在一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值(Min)，最下端代表最大值(Max)；水平滚动条的值从左到右递增，最左端代表最小值(Min)，最右端代表最大值(Max)，其取值范围为－32768～32768。3、设窗体上有1个名称为List1的列表框，程序运行时，如果选中了第3个列表项（最上面的列表项为第0个列表项），则下面不成立的是A、List1.Selected(List1.ListIndex)的值为TrueB、List1.Selected(3)的值为TrueC、List1.List(3)的值为TrueD、List1.ListIndex的值为3标准答案：C知识点解析：暂无解析4、利用通用对话框控件打开字体对话框的操作是A、把通用对话框控件的Action属性设置为4B、把通用对话框控件的Action属性设置为5C、调用通用对话框控件的OpenFont方法D、调用通用对话框控件的ShowText方法标准答案：A知识点解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的Action属性用于设置被打开对话的类型。5、为了显示弹出式菜单，要使用A、窗体的PopupMenu方法B、窗体的OpenMenu方法C、菜单的PopupMenu方法D、菜单的OpenMenu方法标准答案：A知识点解析：显示弹出式菜单使用PopupMenu方法。6、为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是A、DragMode=1B、DragMode=0C、DragIcon=1D、DragIcon=0标准答案：A知识点解析：实现对象的自动拖放应设置DragMode=1。7、设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是A、执行Form1中的语句：Form1.Text1=Form2.Text1B、执行Form1中的语句：Text1=Form1.TextC、执行Form2中的语句：Form1.Text1=Text1D、执行Form2中的语句：Text1=Form1.Text1标准答案：D知识点解析：把Form1上文本框中的内容复制到Form2上的文本框中，所以应该在Form2中添加语句：Text1=Form1.Text1。8、设窗体上有一个Picture1图片框，要求在图片框中的指定位置（坐标为（500，300））输出"OK"，下面可以实现这一功能的事件过程是A、PrivateSubForm_Click()Picture1.CurrentX=500Picture1.CurrentY=300Picture1.Print"OK"EndSubB、PrivateSubForm_Click()Picture1.Left=500Picture1.Top=300Picture1.Print"OK"EndSubC、PrivateSubForm_Click()Picture1.CurrentX=500Picture1.CurrentY=300Print"OK"EndSubD、PrivateSubForm_Click()Picture1.Left=500Picture1.Top=300Print"OK"EndSub标准答案：A知识点解析：VB中，窗体和图片框具有CurrentX、CurrentY属性，经常用这两个属性来设置当前绘图点。VB中在图片框特定位置显示文本：Picture1.CurrentX=x座标’设置当前X方向座标Picture1.CurrentY=y座标’设置当前Y方向座标Picture1.Print"文本内容"’在当前位置输出文本三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。9、下面有3个程序段可以正确判断，另一个不能正确判断的是A、Ifa+b>cAnda+c>bAndb+c>aThenPrint"可以构成一个三角形"ElsePrint"不能构成三角形"EndIfB、Ifa+b>cOra+c>bOrb+c>aThenPrint"可以构成一个三角形"ElsePrint"不能构成三角形"EndIfC、Ifa+b<=cOra+c<=bOrb+c<=aThenPrint"不能构成三角形"ElsePrint"可以构成一个三角形"EndIfD、Ifa+b<=cOra+c<=bThenPrint"不能构成三角形"ElseIfb+c<=aThenPrint"不能构成三角形"ElsePrint"可以构成一个三角形"EndIf标准答案：B知识点解析：三角形构成的条件必须满足任意2边之和大于第3边，即a，b，c任何两个的和必须大于第三个。A）满足。B）中的Or是或，条件不满足。C）和D）可以通过判断，均能进行正确判断。选B）。10、有下面程序代码：PrivateSubCommand1_Click()i=1DoWhilei<5j=1Doj=j+1Print"*";LoopUntili+j>10Printi=i+2LoopEndSub程序运行时输出字符"*"的个数是A、50B、20C、16D、15标准答案：C知识点解析：Do…LoopUntil循环和DoWhile…Loop循环都是满足执行条件时会一直执行循环体内的语句。直到条件不满足退出。外循环i初值为1，条件是小于5，每次循环加2，则执行2次。内循环条件i=1时执行10次，i=3时执行6次。选C）。11、下面程序的功能是输出100以内所有素数：PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek<=n/2And__________IfnModk=0Thenisprime=Falsek=k+1LoopIfisprimeThenPrintnEndIfNextnEndSub为使上面程序可以实现该功能，程序代码中横线处应填写的代码是A、isprimeB、NotisprimeC、n<100D、n<=100标准答案：A知识点解析：素数是大于1的自然数，除了1和本身不能被任何数整除的数。程序用DoWhile循环对n进行判断，如能被整除isprime赋值为False。否则赋值为True。随后的代码检测isprime为True时执行打印。因此DoWhile判断条件中除了判断循环变量的上限还需要判断isprime的值。根据执行条件可知，选A）。12、设有下面程序代码：PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1ToUBound(a)Ifa(k)>mThenn=mm=a(k)ElseIfa(k)>nAnda(k)<>mThenn=a(k)EndIfNextkPrintnEndSub程序运行时的输出是A、数组中最大的数（即98）B、数组中最小的数（即12）C、数组中第2大的数（即87）D、数组中第1个数（即22）标准答案：C知识点解析：n和m都获得数组元素a（0）的值。在For循环中，k=1时，a（k）=a（1）=43，If条件满足，n=a（0），m=a（1）。ElseIf判断的相同值的条件，只有在大于n并且不等于m的时候才赋值给n。因此n中存储的数永远比m小。而m中的值是数组中最大的值。因此选C）。13、设有下面程序代码：PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,str)Printstr,nEndSubPrivateFunctionfun(chAsString,strAsString)AsIntegerDimstrbufAsString,cAsString,nAsIntegerFork=1ToLen(str)c=Mid$(str,k,1)Ifc<>chThenstrbuf=strbuf&cElsestrbuf=strbuf&UCase(c)n=n+1EndIfNextkstr=strbuffun=nEndFunction程序运行时的输出是A、VisualBasicProgramming0B、VisuAlBAsicProgrAmming3C、VisulBsicProgrmming3D、VisualBasicProgramming2标准答案：B知识点解析：Mid$(A$,4,2)是为了与老版本的VB兼容（$的作用是强制将函数的返回值设为字符型）。&用来连接字符串。If条件判断字符是否和输入的字符相等，相等则n加1。选B）。14、设有下面程序代码：OptionBase1PrivateSubCommand1_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(64,24,98,27,58,41)Fork=1To6x(a(k))=b(k)NextkFork=1To6Printx(k);NextkEndSub程序运行时的输出是A、272441649858B、642498275841C、242741586498D、986458412724标准答案：A知识点解析：第一个For循环对x数组元素赋初值。被赋的值根据下标，从b数组中获取。而x的下标从数组a中的元素获得。注意OptionBase1的影响，下标从1开始。因此x数组中的值实际上是按照a数组中值进行了一个重新排序。即x（1）是数组b中第4个元素的值：27，其它值以此类推。选A）。由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0（该点称为"零点"）。15、设有VB函数：PrivateFunctionf(xAsSingle)AsSingle可以返回f(x)的值（函数体没有给出）。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。PrivateSubCommand1_Click()Dimx1AsSingle,x2AsSinglex1=InputBox("请输入一个实数x1")x2=InputBox("请再输入一个实数x2")If(____________)ThenPrint"在";x1;"与";x2;"之间存在零点"ElsePrint"不能确定在";x1;"与";x2;"之间是否存在零点"EndIfEndSubPrivateFunctionf(xAsSingle)AsSingle……EndFunction为使上面程序可以实现该功能，程序代码中横线处应填写的代码是A、f(x1)>0Orf(x2)<0B、f(x1)<0Andf(x2)<0C、f(x1)*f(x2)<0D、f(x1)*f(x2)>0标准答案：C知识点解析：判断x1和x2之间是否存在零点的条件是x1和x2符号相反。即x1和x2的积是负数。函数f可以返回f（x）的值，因此满足上述条件的表达式是f(x1)*f(x2)<0，选C）。16、设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Picture=LoadPicture("OPEN.bmp")Image3.Visible=FalseEndSubPrivateSubImage1_Click()Image2.Picture=Image1.PictureEndSubPrivateSubImage2_Click()Image3.Picture=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Image3.PictureEndSub在程序运行期间单击Image2，则在窗体上看到的结果是A、在Image3中显示Image2中的图片B、Image1、Image2中原有图片被交换了C、Image1、Image2中都是原来Imege1中的图片D、Image1、Image2中都是原来Imege2中的图片标准答案：B知识点解析：Form_Load过程中在图相框里载入相应图片。点击Image2时，激发Image2_Click事件，在事件中图片进行了交换。选B）。17、设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组（下标从0开始）。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。PrivateSubCheck1_Click(IndexAsInteger)Fork=0ToList1.ListCount-1IfCheck1(Index).Caption=List1.List(k)ThenExitForEndIfNextkIfk<List1.ListCountThenList1.RemoveItemkElseList1.AddItem______________________EndIfEndSub为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是A、kB、Check1.CaptionC、Check1(k)D、Check1(Index).Caption标准答案：D知识点解析：题干给出的是没有该复选框的标题时，把该复选框的标题添加到列表框中。List1.AddItem可以为列表框添加新项。需要添加的项要根据索引添加。选D）。18、窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码：DimrAsSingle,flagAsIntegerPrivateSubForm_Load()r=Shape1.WidthTimer1.Enabled=TrueTimer1.Interval=500EndSubPrivateSubTimer1_Timer()Ifflag=0ThenShape1.Width=Shape1.Width-10IfShape1.Width<=100Thenflag=1EndIfElseShape1.Width=Shape1.Width+10IfShape1.Width>=rThenflag=0EndIfEndIfEndSub运行程序后产生的结果是A、圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B、圆一直在缩小C、圆每隔0.5秒向右移动一次D、圆每隔1秒向下移动一次标准答案：A知识点解析：Form_Load过程中设定timer事件定时触发；在Timer1_Timer过程中，圆圈先变小后变大，然后退出。下一次timer事件触发时继续这个过程。因此，选A）。19、下列叙述中正确的是A、程序执行的效率与数据的存储结构密切相关B、程序执行的效率只取决于程序的控制结构C、程序执行的效率只取决于所处理的数据量D、以上说法均错误标准答案：A知识点解析：程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构、所处理的数据量等有关。20、下列与队列结构有关联的是A、函数的递归调用B、数组元素的引用C、多重循环的执行D、先到先服务的作业调度标准答案：D知识点解析：队列的修改是依先进先出的原则进行的，D正确。21、一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈，然后再依次出栈，则元素出栈的顺序是A、1,2,3,A,B,CB、C,B,A,1,2,3C、C,B,A,3,2,1D、1,2,3,C,B,A标准答案：C知识点解析：栈的修改是按后进先出的原则进行的，所以顺序应与入栈顺序相反，故选C。22、下面属于白盒测试方法的是A、等价类划分法B、逻辑覆盖C、边界值分析法D、错误推测法标准答案：B知识点解析：白盒测试法主要有逻辑覆盖、基本路径测试等。逻辑覆盖测试包括语句覆盖、路径覆盖、判定覆盖、条件覆盖、判断-条件覆盖，选择B。其余为黑盒测试法。23、下面对对象概念描述正确的是A、对象间的通信靠消息传递B、对象是名字和方法的封装体C、任何对象必须有继承性D、对象的多态性是指一个对象有多个操作标准答案：A知识点解析：对象之间进行通信的构造叫做消息，A正确。多态性是指同一个操作可以是不同对象的行为，D错误。对象不一定必须有继承性，C错误。封装性是指从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作，B错误。24、软件设计中模块划分应遵循的准则是A、低内聚低耦合B、高耦合高内聚C、高内聚低耦合D、以上说法均错误标准答案：C知识点解析：根据软件设计原理提出如下优化准则：①划分模块时，尽量做到高内聚、低耦合，保持模块相对独立性，并以此原则优化初始的软件结构。②一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近。③软件结构的深度、宽度、扇入、扇出应适当。④模块的大小要适中。C正确。25、下面描述中不属于数据库系统特点的是A、数据共享B、数据完整性C、数据冗余度高D、数据独立性高标准答案：C知识点解析：数据库系统的特点为高共享、低冗余、独立性高、具有完整性等，C错误。26、数据库设计过程不包括A、概念设计B、逻辑设计C、物理设计D、算法设计标准答案：D知识点解析：数据库设计过程主要包括需求分析、、概念结构设计、逻辑结构分析、数据库物理设计、数据库实施、数据库运行和维护阶段。答案为D选项。27、下面为单精度实型（即单精度浮点型）变量的是A、x$B、x&C、x!D、x#标准答案：C知识点解析：$：字符串型，&：长整型，!：单精度实型，#：双精度实型。28、语句：PrintInt(Rnd*5+20)的输出不可能是A、20B、22C、24D、25标准答案：D知识点解析：本题考查Rnd随机函数和Int取整函数，首先Rnd随机函数的范围为[0,1)，Int函数的作用是返回不大于自变量的最大整数，所以当Rnd*5后变为[0,5)，再加上20变为[20,25)，经取整后变为[20,24]，所以本题的正确答案是选项D。29、设变量x的值是845，则下面语句的输出是Printx\100+(xMod100)\10+xMod10A、17B、548C、845D、485标准答案：A知识点解析：整除运算(\)的结果是商的整数部分。例如，7\2表示整除，商为4.5,结果取整数部分3,不进行四舍五入。如果参加整除的操作数是浮点数，则先按四舍五入的原则将它们变成整数，然后再执行整除运算。例如，对于8.5\2,先将8.5变成9再进行整除，商为4.5,结果为4。取余运算(Mod)是求两个整数相除后的余数。如果参加取余运算的操作数是浮点数，则先按四舍五入的原则将它们变成整数，然后再执行取余运算。例如，对于8.5\2.1,先将8.5变成9,2.1变成2,然后9除以2与1,因此取余结果为1。算术运算符的优先级：先乘除，后加减；乘方优先于乘除；函数优先于乘方；Mod次于乘除而优先于加减；括号最优先。本题中，x\100结果为8，(xMod100)\10结果为4，xMod10结果为5，所以输出为17，选项A）正确。30、有下面的程序段：x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是A、字符串B、输入C、请输入D、空白（即未输出任何内容）标准答案：C知识点解析：在题目已给语句中，InputBox函数使用了3个参数：第一个参数"字符串"用于显示信息；第二个参数"输入"用来显示对话框的标题；第三个参数"请输入"是默认输入值，在输入区显示出来。选项C）正确。31、在下面语句或函数中，不能描述选择结构的是A、If语句B、IIf函数C、SelectCase语句D、While语句标准答案：D知识点解析：While语句不能描述选择结构。32、如果要在语句：a=Array(1,2,3,4,5)的前面声明变量a，则正确的声明是A、Dima(4)AsIntegerB、Dima(5)AsVariantC、Dima(1To5)AsIntegerD、DimaAsVariant标准答案：D知识点解析：Array函数只能给变体类型变量数组初始化，所以选项D正确。33、在VB中，函数过程与子程序过程的区别之一是A、函数过程必须有参数，而子程序过程可以没有B、函数过程的参数传递只采用值传递，而子程序过程只采用地址传递C、在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能D、函数过程有返回值，而子程序过程没有标准答案：D知识点解析：在VisualBasic中有两类过程：一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点是完成某种特定功能的一组程序代码；不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是Sub过程的过程不能直接返回值，而Function过程能直接返回值。34、设有以下定义语句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是A、a=12B、a.x=12C、point=12D、point.x=12标准答案：B知识点解析：用户可以利用Type语句定义自己的数据类型，其格式如下：Type自定义类型名元素名(下标)As类型名…[元素名(下标)As类型名]EndType要表示某个自定义数据类型的变量中某个元素时，形式如下：变量名.元素名。所以选项B)是正确的。35、VB应用程序不能把一个二维表格中的数据存入文件A、VB数据文件不包括VB的窗体文件B、VB应用程序可以用随机方式读写数据文件C、VB应用程序在读写数据文件之前，必须用Open语句打开该文件D、VB应用程序不能把一个二维表格中的数据存入文件标准答案：D知识点解析：VB应用程序可以把一个二维表格中的数据存入文件。36、为使文本框具有初始值"VB"，在设计阶段正确的操作是A、选中该文本框，在属性窗口中把Text属性的值改为"VB"B、选中该文本框，在属性窗口中把Caption属性的值改为"VB"C、双击该文本框，在弹出的窗口中输入"VB"D、单击该文本框，在该文本框中直接输入"VB"标准答案：A知识点解析：根据题意，选中该文本框，在属性窗口中把Text属性的值改为"VB"。37、下列控件中，不响应Click事件的是A、框架B、标签C、图像框D、形状标准答案：D知识点解析：形状控件不响应Click事件。38、下面关于命令按钮的叙述中错误的是A、命令按钮上可以显示图片B、命令按钮上的文字就是其Caption属性的值C、在程序运行过程中，不能改变命令按钮的标题D、运行程序时，当命令按钮获得焦点后，按下回车键也能激活它的Click事件标准答案：C知识点解析：在程序运行过程中，可以改变命令按钮的标题。39、设窗体上有一个名称为Check1的复选框，并有下面程序代码：PrivateSubCheck1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Check1.Value=1EndSub根据上面的事件过程，可以得出结论A、鼠标单击该复选框，复选框的标题被改为"1"B、鼠标右键单击该复选框，可以选中该复选框C、鼠标左键单击该复选框，它被选中，右键单击它，取消选中D、鼠标右键单击该复选框，它被选中，左键单击它，取消选中标准答案：B知识点解析：在鼠标单击事件过程中，Button属性值为1时代表按下鼠标左键，值为2时代表按下鼠标右键，单击鼠标左键或者右键都能触发MouseDown事件。Value属性值决定每个复选框的选中状态：0为未选、1为选中、2为不可用(以灰色呈现)。选B）。40、设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1；有2个名称分别为Option1、Option2的单选按钮，其标题分别为"30"、"50"；还有下面程序代码：PrivateSubOption1_Click()HScroll1=Val(Option1.Caption)EndSubPrivateSubOption2_Click()HScroll1=Val(Option2.Caption)EndSub程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是A、在最左边B、在最右边C、在中间D、在中间偏左的位置标准答案：C知识点解析：滚动条的Value属性用于设置滚动滑块所处的位置。Max和Min属性分别设置滚动条的最大值和最小值，水平滚动条的最左端为Min，最右端为Max，Max的值减去Min的值得到当前滚动条的刻度个数。单击Option2单选按钮，滚动滑块的位置设置为50，正好在整个滚动条的中间位置。因此，答案为C）。二、基本操作题(本题共1题，每题1.0分，共1分。)41、(1)在名称为Forml的窗体上添加一个名称为Label1标题为“列表框的使用”的标签。再添加一个名称为List1的列表框，列表中含有5个表项，其内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。程序运行后的窗体如图所示。要求：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再添加两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2，如图所示。需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，当前文件夹下的图片文件“图片．jpg”显示在图像框中；如果单击“隐藏图片”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。标准答案：(1)【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.136。步骤2：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.137。步骤2：编写程序代码。参考答案PrivateSubCmd1_Click()Image1.Picture=LoadPicture(App.Path&"\图片.jpg")EndSubPrivateSubCmd2_Click()Image1.Picture=LoadPicture("")EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析三、简单应用题(本题共1题，每题1.0分，共1分。)42、(1)在考生文件夹下有一个工程文件sjt3．vbp，请在窗体上建立一个菜单，主菜单项为“项目”(名称为Item)，它有两个名称分别为Add和Delete的子菜单项，标题分别为“添加项目”和“删除项目”，然后添加一个列表框(名称为List1)和一个文本框(名称为Text1)，如图1所示。编写适当的事件过程。程序运行后，如果执行“添加项目”命令，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果执行“删除项目”命令，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3．vbp(相应的窗体文件名为sjt3．frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp(相应的窗体文件名为sjt4．frm)，其功能是通过调用过程Sort将数组按升序排序。程序运行后，在4个文本框中输入一组整数(如图1所示)，然后单击命令按钮，即可使数组从小到大排序，并显示在文本框中(如图2所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。[*343]步骤2：分析并编写程序代码。程序提供代码PrivateSubAdd_Click()Text1.Text=InputBox("请输入要添加的项目")’List1.AddItem?EndSubPrivateSubDelete_Click()Text1.Text=InputBox("请输入要删除的项目")’Fori=0To?’IfList1.List(i)=?Then’List1.RemoveItem?EndIfNextiEndSub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount-1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger’Start=？(a)’Finish=？(a)’Fori=?To2Step-1’Forj=1To?’Ifa(j)?a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4arr2(i)=CInt(arr1(i))NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=arr2(4)EndSub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：4第4个？处填入：3第5个？处填入：>步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析四、综合应用题(本题共1题，每题1.0分，共1分。)43、在考生文件夹下有一个工程文件sjt5．vbp，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码DimstepyAsInteger’纵向移动增量DimstepxAsInteger’横向移动增量ConstLEFTBUTTON=1PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2’圆的半径IfButton=LEFTBUTTONThenx0=Shape1.Left+radius’圆心的x坐标y0=Shape1.Top+radius’圆心的y坐标Ifx=x0Thenstepy=Sgn(y-y0)*50’stepx=？Elsea=(y-y0)/(x-x0)’斜率stepx=Sgn(x-x0)*50’？=a*stepxIfAbs(stepy)>Abs(stepx)Thenstepy=Sgn(y-y0)*50stepx=stepy/aEndIfEndIf’？=TrueElse’？=FalseEndIfEndSubPrivateSubTimer1_Timer()’Shape1.MoveShape1.Left+stepx,Shape1.Top+?EndSub程序结束参考答案第1个？处填入：0第2个？处填入：stepy第3个？处填入：Timer1.Enabled第4个？处填入：Timer1.Enabled第5个？处填入：stepy步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析国家二级（VB）机试模拟试卷第2套一、选择题(本题共40题，每题1.0分，共40分。)1、下列叙述中正确的是()。A、程序执行的效率与数据的存储结构密切相关B、程序执行的效率只取决于程序的控制结构C、程序执行的效率只取决于所处理的数据量D、以上说法均错误标准答案：A知识点解析：程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构和所处理的数据量等有关。2、下列与队列结构有关联的是()。A、函数的递归调用B、数组元素的引用C、多重循环的执行D、先到先服务的作业调度标准答案：D知识点解析：队列的修改是依“先进先出”的原则进行的，D正确。3、对下列二叉树进行前序遍历的结果为()。A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZ标准答案：C知识点解析：前序遍历是指在访问根节点、遍历左子树与遍历右子树这j者中，首先访问根节点，然后遍历左子树，最后遍历右子树；并且，在遍历左右子树时，仍然先访问根节点，然后遍历左子树，最后遍历右子树。前序遍历描述为：若二叉树为空，则执行空操作。否则①访问根节点；②前序遍历左子树；③前序遍历右子树。C正确。4、—个栈的初始状态为空。现将元素1，2，3，A，B，C依次入栈，然后再依次出栈，则元素出栈的顺序是()。A、1，2，3，A，B，CB、C，B，A，1，2，3C、C，B，A，3，2，1D、1，2，3，C，B，A标准答案：C知识点解析：栈的修改是按“后进先出”的原则进行的，所以顺序应与入栈顺序相反，故选C。5、下面属于白盒测试方法的是()。A、等价类射分法B、逻辑覆盖C、边界值分析法D、错误推测法标准答案：B知识点解析：白盒测试法主要有逻辑覆盖、基本路径测试等。逻辑覆盖测试包括语句覆盖、路径覆盖、判定覆盖、条件覆盖、判断一条件覆盖，选择B。其余为黑盒测试法。6、下面对对象概念描述正确的是()。A、对象间的通信靠消息传递B、对象是名字和方法的封装体C、任何对象必须有继承性D、对象的多态性是指一个对象有多个操作标准答案：A知识点解析：对象之问进行通信的构造叫做消息，A正确。多态性是指同一个操作可以是不同对象的行为，D错误。对象不一定必须有继承性，C错误。封装性是指从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作，B错误。7、软件设计中模块划分应遵循的准则是()。A、低内聚低耦合B、高耦合高内聚C、高内聚低耦合D、以上说法均错误标准答案：C知识点解析：根据软件设计原理提出如下优化准则：①划分模块时，尽量做到高内聚、低耦合，保持模块相对独立性，并以此原则优化初始的软件结构。②一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近。③软件结构的深度、宽度、扇入、扇出应适当。④模块的划、要适中。C正确。8、下面描述中不属于数据库系统特点的是()。A、数据共享B、数据完整性C、数据冗余度高D、数据独立性高标准答案：C知识点解析：数据库系统的特点为高共享、低冗余、独立性高、具有完整性等，C错误。9、数据库设计过程不包括()。A、概念设计B、逻辑设计C、物理设计D、算法设计标准答案：D知识点解析：数据库设计过程主要包括需求分析、概念结构设计、逻辑结构分析、数据库物理设计、数据库实施、数据库运行和维护阶段。答案为D选项。10、有三个关系R、S和T如下：则由关系R和S得到关系T的操作是()。A、皂签连接B、交C、投影D、并标准答案：A知识点解析：关系R和关系s有公共域，关系T是通过公共域的等值进行连接的结果，符合自然连接，选A。11、下面操作中，不能正确保存正在编辑的工程的是()。A、鼠标右键单击“工程资源管理器窗口”中该工程的图标，在弹出的菜单中选“保存工程”B、单击“文件”菜单，在下拉菜单中选“保存工程”C、单击“工程”菜单，在下拉菜单中选“保存工程”D、直接单击工具栏上的安钮标准答案：C知识点解析：“工程”的下拉菜单中没有“保存工程”。12、下面为单精度实型(即单精度浮点型)变量的是()。A、x$B、x&C、x!D、x#标准答案：C知识点解析：$：字符串型，&：长整型，!：单精度实型，#：双精度实型。13、语句：PrintInt(Rnd*5+20)的输出不可能是()。A、20B、22C、24D、25标准答案：D知识点解析：本题考查Rnd随机函数和Int取整函数，首先Rnd随机函数的范围为[0，1)，Int函数的作用是返回不大于自变量的最大整数，所以当Rnd*5后变为[0，5)，再加上20变为[20，25)，经取整后变为[20，24]，所以本题的正确答案是选项D。14、设变量x的值是845，则下面语句的输出是()。Printx＼100+(xMod100)＼10+xMod10A、17B、548C、845D、485标准答案：A知识点解析：整除运算(＼)的结果是商的整数部分。例如，7、2表示整除，商为4．5，结果取整数部分3，不进行四舍五入。如果参加整除的操作数是浮点数，则先按四舍五入的原则将它们变成整数，然后再执行整除运算。例如，对于8．5＼2，先将8．5变成9再进行整除，商为4．5，结果为4。取余运算(Mod)是求两个整数相除后的余数。如果参加取余运算的操作数是浮点数，则先按四舍五入的原则将它们变成整数，然后再执行取余运算。例如，对于8．5、2．1，先将8．5变成9，2．1变成2，然后9除以2与1，因此取余结果为1。算术运算符的优先级：先乘除，后加减；乘方优先于乘除；函数优先于乘方；Mod次于乘除而优先于加减；括号最优先。本题中，x＼100结果为8，(xMod100)＼10结果为4，xMod10结果为5，所以输出为17，选项A正确。15、有下面的程序段：x=InputBox(”字符串”，”输入”，”请输入”)Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是()。A、字符串B、输入C、请输入D、空白(即未输出任何内容)标准答案：C知识点解析：在题目已给语句中，：InputBox函数使用了3个参数：第一个参数“字符串”用于显示信息；第二个参数“输入”用来显示对话框的标题；第三个参数“请输入”是默认输入值，在输入区显示出来。选项c正确。16、在下面语句或函数中，不能描述选择结构的是()。A、If语句B、IIf函数C、SelectCase语句D、While语句标准答案：D知识点解析：While语句不能描述选择结构。17、如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是()。A、Dima(4)AsIntegerB、Dima(5)AsVariantC、Dima(1To5)．AsIntegerD、DimaAsVariant标准答案：D知识点解析：Array．函数只能初始化变体类型变量数组，所以选项D正确。18、在VB中，函数过程与子程序过程的区别之一是()。A、函数过程必须有参数，而子程序过程可以没有B、函数过程的参数传递只采用值传递，而子程序过程只采用地址传递C、在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能D、函数过程有返回值，而子程序过程没有标准答案：D知识点解析：在VisualBasic中有两类过程：一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点是完成某种特定功能的一组程序代码；不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是Sub过程不能直接返回值，而Function过程能直接返回值。19、设有以下定义语句：PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是()。A、a=12B、a．x=12C、point=12D、point．x=12标准答案：B知识点解析：用户可以利用Type语句定义自己的数据类型，其格式如下：Type自定义类型名元素名(下标)As类型名…[元素名(下标)As类型名]EndType要表示某个自定义数据类型的变量中某个元素时，形式如下：变量名，元素名。所以选项B是正确的。20、下面关于VB数据文件的叙述中错误的是()。A、VB数据文件不包括VB的窗体文件B、VB应用程序可以用随机方式读写数据文件C、VB应用程序在读写数据文件之前，必须用Open语句打开该文件D、VB应用程序不能把一个二维表格中的数据存入文件标准答案：D知识点解析：VisualBasic应用程序可以把一个二维表格中的数据存入文件。21、为使文本框具有初始值“VB”，在设计阶段正确的操作是()。A、选中该文本框，在属性窗口中把Text属性的值改为“VB”B、选中该文本框，在属性窗口中把Caption属性的值改为“VB”C、双击该文本框，在弹出的窗口中输入“VB”D、单击该文本框，在该文本框中直接输入“VB”标准答案：A知识点解析：根据题意，执行选中文本框操作，在属性窗口中把Text属性的值改为“VB”。22、下列控件中，不响应Click事件的是()。A、框架B、标签C、图像框D、形状标准答案：D知识点解析：形状控件不响应Click事件。23、下面关于命令按钮的叙述中错误的是()。A、命令按钮上可以显示图片B、命令按钮上的文字就是其Caption属性的值C、在程序运行过程中，不能改变命令按钮的标题D、运行程序时，当命令按钮获得焦点后，按下Enter键也能激活它的Click事件标准答案：C知识点解析：在程序运行过程中，可以改变命令按钮的标题。24、设窗体上有一个名称为Check1的复选框，并有下面程序代码：PrivateSubChecki_MouseDown(ButtonAsInteger，XAsSingle，YAsSingle)Check1．Value=1EndSub根据上面的事件过程，可以得出结论()。A、鼠标单击该复选框，复选框的标题被改为“1”B、鼠标右键单击该复选框，可以选中该复选框C、鼠标左键单击该复选框，它被选中，右键单击它，取消选中D、鼠标右键单击该复选框，它被选中，左键单击它，取消选中标准答案：B知识点解析：在鼠标单击事件过程中，Button属性值为1时代表按下鼠标左键，值为2时代表按下鼠标右键，单击鼠标左键或者右键都能触发MouseDown事件。Vague属性值决定每个复选框的选中状态：0为未选、1为选中、2为不可用(以灰色呈现)。选B。25、设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1；有2个名称分别为Optionl、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码：PrivateSubOption1_Click()HScroll1=Val(Option1．Caption)EndSubPrivateSubOption2_Click()HScroll1=Val(Option2．Caption)EndSub程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是()。A、在最左边B、在最右边C、在中间D、在中间偏左的位置标准答案：C知识点解析：滚动条的Value属性用于设置滚动条所处的位置。Max和Min属性分别设置滚动条的最大值和最小值，水平滚动条的最左端为Min，最右端为Max，Max的值减去Min的值得到当前滚动条的刻度个数。单击Option2单选按钮，滚动条的位置设置为50，正好在整个滚动条的中间。因此，答案为C。26、设窗体上有一个名称为List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是()。A、List1．List(List1．ListCount)="VB程序"B、List1．List(List1．ListCount-1)="VB程序"C、List1．AddItem"VB程序"D、List1．Addhem"VB程序"，Listl．ListCount标准答案：B知识点解析：List控件的ListCount属性返回列表部分项目的个数。List1．ListCount-1是倒数第二个。故答案选B。27、设窗体上有一个名称为Timer1的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Text1的文本框和下面的事件过程：PrivateSubTimer1_Timer()StaticxAsLongx=x+1Text1=xEndSub程序运行一段时间后，文本框中显示的是100，则表示()。A、程序已经运行了100秒B、程序已经运行了100毫秒C、程序已经运行了50秒D、文本框到窗体左边框的距离是100标准答案：C知识点解析：过程Timer1-Timer()按计时器的Interval属性值定时运行。该属性用来设置计时器事件之间的间隔，以毫秒为单位，取值范围为0～65535，因此其最大时间间隔不能超过65秒。文本框中显示值是100时，表示Timer1_Timer()运行了100次，则运行时间是100*500毫秒=50秒。所以本题答案为C。28、有下面事件过程：PrivateSubForm_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)IfButton=2ThenForm1．PSet(X，Y)PSet方法可以在X，Y处画一个点EndIfEndSub程序运行后，产生的效果是()。A、在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点B、按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹C、按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹D、不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹标准答案：C知识点解析：MouseMove中Button是一个整数，它对应鼠标各个按钮的状态，如果某个按钮按下，其中就有一个二进制位被设置。Button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于l，2，和4。它指示这些鼠标按钮的整体状态；三个二进制位中的一些、全部、或一个也没有被设置，指示这些按钮中的一些、全部、或一个也没有被按下。程序中Button=2表示鼠标右键被按下。故答案选C。29、下面关于控件数组的叙述中正确的是()。A、控件数组中所有控件的名称相同，但其Index属性值各不相同B、控件数组中所有控件的名称相同，但其Value属性值各不相同C、控件数组中每个元素都是独立的控件，因此都有各自的事件过程D、上述都是错误的标准答案：A知识点解析：控件数组的Index属性，标识数组中的每个控件，使之与其他控件能够区分开来，索引在内部必须是唯一的，不能与其他相同。表示在一个集合中，其他集合的索引与这个集合的索引无关。故答案选A。30、下面关于菜单的叙述中正确的是()。A、为了使得选中一个菜单项就可以执行某种操作，要为它的Click事件过程编写执行该操作的代码B、同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名C、只能使用鼠标右键把弹出式菜单弹出来D、弹出式菜单中的菜单项不能再有自己的子菜单标准答案：A知识点解析：Click事件在鼠标单击时触发，要选中菜单项就执行某种操作，可以在Click事件过程中编写需要执行的操作代码。A正确。VisualBasic中的菜单项不管是同级还是不同级都不允许同名，B错误。一般情况下，不显示弹出式菜单。需要时用PopupMenu方法显示弹出式菜单。C错误。VisualBasic中允许有多级弹出式菜单，D错误。31、有下面程序代码：PrivateSubCommand1_Click()Fork=5To1Step-1x=k+x*10NextkPrintxEndSub程序运行后，单击命令按钮Commandl，输出结果是()。A、12345B、54321C、15D、150标准答案：B知识点解析：For循环用来对x赋值。步长为-1，一共执行5次，第一次执行完后x=5，第二次执行完后x=54，以此类推，选B。32、有下面程序代码：PrivateSubCommand1_Click()a=3s=0Fork=1To5s=s+aModka=a+kNextkPrintsEndSub程序运行后，单击命令按钮Command1，输出结果是()。A、15B、13C、4D、1标准答案：C知识点解析：Mod为求余函数。For循环执行5次。第一次执行时aModk的值为0，则8=0，8=4；循环继续直到k=5退出。分步计算可得最后s=4，选C。33、有下面程序代码：PrivateSubCommand1_Click()DimsignAsIntegersign=1a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintC；sign=-signNextkEndSub程序运行后，单击命令按钮Command1，输出结果是()。A、3-12-3-1B、3581321C、-11-2-1-1D、34567标准答案：A知识点解析：For循环执行5次，运行程序，按公式计算，可依次得出答案，结果选A。34、有下面程序代码：PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a，"T")PrintIIf(n=0，"未找到"，n)EndSUdPrivateFunctionsearch(strAsString，chAsString)AsIntegerFork=1ToLen(str)c=Mid(str，k，1)Ifc=chThensearch=kExitFunctionEndIfNextksearch=0EndFuncfion程序运行后，单击命令按钮Command1，输出结果是()。A、0B、8C、6D、未找到标准答案：C知识点解析：Mid函数从字符串中获取指定位置的字符值。search函数中找到相同的字符时退出循环，并返回该字符在字符串中的位置。Command1_Click事件中打印查找的结果。选C。35、有下面程序代码：PrivateSubCommand1_Click()a=Array(1，2，3，4，5，6，7，8，9，10)n=UBound(a)Fork=0ToUBound(a)／2Printa(k)*a(n)；n=n-1NextkEndSub程序运行后，单击命令按钮Commandl，输出结果是()。A、26122030B、212205690C、3028241810D、1018242830标准答案：D知识点解析：UBound获取数组a的上标值，n=9。For循环边界为0至4。每次执行For的循环体时均会进行打印。选D。36、有下面程序代码：PrivateSubCommand1_Click()DimxAsInteger，sAsIntegerx=1Fork=1To3x=x+1procxs=s+xNextkPrintsEndSubPrivateSubproc(ByValaAsInteger)StaticxAsIntegerx=x+1a=a+xEndSub程序运行后，单击命令按钮Command1，输出结果是()。A、6B、9C、15D、19标准答案：B知识点解析：ByVal表示参数传递时是值传递。不改变实参的值。Command1_Click事件中procx语句不改变x的值。因此可直接按照For循环的规律计算s的值。选B。37、窗体上有1个Timerl计时器，1个Shape1形状控件，还有下面程序代码：DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1．Enabled=TrueTimer1．Interval=1000EndSubPrivateSubTimer1_Timer()IfflagThenShape1．Height=Shape1．Height*2Shape1．Width=Shape1．Width*2ElseShape1．Height=Shape1．Height*0．5Shape1．Width=Shape1．Width*0．5EndIfflag=NotflagEndSub执行程序所产生的效果是()。A、Shape1形状的尺寸在缩小到原来一半和恢复原状这2种状态间切换，每秒切换一次B、Shape1形状的尺寸在扩大到原来2倍和恢复原状这2种状态间切换，每秒切换一次C、Shape1形状的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换，每秒切换一次D、Shape1形状的尺寸会不断扩大标准答案：B知识点解析：Form_Load过程中设定Timer事件定时触发，定时时间为1秒；在Timer1_Timer过程中，Shape1形状的尺寸在扩大到原来2倍和恢复原状，然后退出。下一次Timer事件触发时继续这个过程。因此，选B。38、有下面程序代码：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger，x，bx=InputBox("请输入一个多位整数")Fork=1ToLen(x)b=Mid(x，k，1)a(Val(b)+1)=a(val(b)+1)+1NextkFork=1To10Printa(k)；NextkEndSub程序运行时，单击命令按钮Command1，输入2355270224，则输出是()。A、1.04112e+009B、4.11201e+008C、2.35527e+009D、4.22073e+009标准答案：A知识点解析：Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个For循环进行打印。选A。39、设窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"＜=Chr(KeyAscii)A．ndChr(KeyAscii)＜="Z"ThenKeyAscii=KeyAscii+(Asc("a")-Asc("A"))EndIfn=0IfKeyAscii=13ThenFork=1ToLen(Text1)ch＄=Mid(Textl，k，1)If"a"＜=chAndch＜="z"Thenn=n+1NextkText2=nEndIfEndSub程序运行时，在Text1文本框中输入“VisualBasic6．0”后按回车键，则在Text2文本框显示的是()。A、11B、16C、VisualBasic6．0D、visualbasic6．0标准答案：A知识点解析：Text1_KeyPress过程中，先把输入的字符串字母变成小写的。当按下Enter键后，执行For循环统计小写字母的个数。退出循环后把n值赋给。Text2。选A。40、工程中有Form1、Form2两个窗体(Forml中有文本框Text1，Form2中有Text1文本框和command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码：Form1中的代码如下：PrivateSubText1_DblClick()Text1="VisualBasic"Form2．ShowEndSubForm2中的代码如下：PrivateSubConmmnd1_Click()Text1=Form1．Text1Form1．ShowEndSub下面关于程序的叙述中错误的是()。A、双击Form1的Text1后，Text1中显示“VisualBasic”，弹出Form2B、双击Rorm1的Text1后，Form2成为当前窗体C、单击Form2的命令按钮，Form1成为当前窗体D、Form2的Text1=Form1．Text1语句不能正确执行标准答案：D知识点解析：本题考查窗体切换的知识。双击Forml的Text1时触发Text1_DblClick事件，Text1中显示“VisualBasic”，弹出Form2，此时，Form2成为当前窗体；单击Form2的命令按钮时触发Command1_Click事件，Forml成为当前窗体。选D。二、基本操作题(本题共1题，每题1.0分，共1分。)41、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“控件数组”的窗体上，添加1个名称为Cmd1的控件数组，该控件数组由三个命令按钮组成，其标题分别是“插入”、“删除”和“更新”，索引号分别为0、1、2。程序运行后的窗体如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名保存为Sjt1．vbp，窗体文件名保存为sjt1．frm。(2)在名称为Forml的窗体上添加1个名称为Text1、内容为“计算机”的文本框，且文本内容显示为小四号字；再添加3个命令按钮，名称分别为“Command1”、“Command2”和“Command3”，标题分别是“居左”、“居中”、“居右”，如图所示。要求：编写3个命令按钮的Click事件过程，使得单击“居右”按钮时，文本框的内容靠右对齐；单击“居中”按钮时，文本框的内容居中对齐；单击“居左”按钮时，文本框的内容将靠左对齐。程序中不得使用变量，每个事件过程中只能写一条语句。*注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。标准答案：(1)【操作步骤】步骤1：建立界面，并设置控件的属性。程序中涉及控件及属性见表1。步骤2：调试并运行程