国家二级（VB）机试模拟试卷13（共367题）

国家二级（VB）机试模拟试卷13（共9套）（共367题）国家二级（VB）机试模拟试卷第1套一、选择题(本题共40题，每题1.0分，共40分。)1、程序流程图中带有箭头的线段表示的是()。A、图元关系B、数据流C、控制流D、调用关系标准答案：C知识点解析：在数据流图中，用标有名字的箭头表示数据流。在程序流程图中，用标有名字的箭头表示控制流。所以选择C。2、在数据库设计中，将E-R图转换成关系数据模型的过程属于()。A、需求分析阶段B、概念设计阶段C、逻辑设计阶段D、物理设计阶段标准答案：C知识点解析：逻辑结构设计的任务：概念结构是各种数据模型的共同基础，为了能够用某一DBMS实现用户需求，还必须将概念结构进一步转化为相应的数据模型，这正是数据库逻辑结构设计所要完成的任务。它包括从E-R图向关系模式转换和逻辑模式规范化及调整、实现。3、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为ComTest1。设窗体Form1标题为“MyForm1”，双击控件数组中的第3个按钮，打开代码编辑器，编写如下代码：PrivaeSubComTest1_Click(IndexAsInteger)Form1．Caption＝"MyForm2"EndSub运行时，单击按钮数组中的第1个按钮，则窗体标题显示为()。A、Form1B、ComTest1C、MyForm1D、MyForm2标准答案：D知识点解析：本题考查控件数组。建立控件数组以后，数组中的每个元素依靠Index属性来区分，名称相同。题目中程序运行时，不要单击哪个命令按钮，窗体的标题都会改成“Myform2”。4、下面关于算法的叙述中，正确的是()。A、算法的执行效率与数据的存储结构无关B、算法的有穷性是指算法必须能在执行有限个步骤之后终止C、算法的空间复杂度是指算法程序中指令(或语句)的条数D、以上三种描述都正确标准答案：B知识点解析：算法在运行过程中需辅助存储空间的大小称为算法的空间复杂度。算法的有穷性是指一个算法必须在执行有限的步骤以后结束。5、算法的有穷性是指()。A、算法程序的运行时间是有限的B、算法程序所处理的数据量是有限的C、算法程序的长度是有限的D、算法只能被有限的用户使用标准答案：A知识点解析：算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。有穷性是指算法程序的运行时间是有限的。6、设a=2，b=3，c=4，d=5，下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+cA、1B、TrueC、FalseD、-1标准答案：B知识点解析：一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：(1)首先进行函数运算；(2)接着进行算术运算，其次序为：算术运算符，幂运算符(^)优先级最高，其次是取负运算(一)、乘(*)、浮点除(／)、整除(＼)、取模(Mod)、加(+)、减(-)、字符串连接符(&)；(3)然后进行关系运算(=、>、<、<>、<=、>=)：(4)最后进行逻辑运算(Not、And、Or、Xor、Eqv、Imp)本题先计算“2*b=6、a+c=5”，然后计算“3>2*b=False”、“a=c=False”、“ba+c=True”，那么表达式转化为“FalseOrFalseAndTrueOrTrue”，所以最后结果为“True”。7、以下关于DoUntil…Loop循环的说法正确的是()。A、先进入循环执行语句段落后，再判断是否再进入循环B、先进入循环执行语句段落后，再判断是否不再进入循环C、执行前先判断是否不满足条件，若不满足才进入循环D、执行前先判断是否不满足条件，若满足才进入循环标准答案：C知识点解析：本题考查DoLIntil…Loop循环的。对于这种循环结构，条件判断在循环体前，因此有可能一次循环体也不运行。在Until引出的循环条件为False时执行循环体，条件为True时退出循环。8、8．6787E+8写成普通的十进制数是()。A、86787000B、867870000C、8678700D、8678700000标准答案：B知识点解析：本题考查浮点数的表示。E表示10，后面的整数为10的幂。也就是数学中的8．6787×108形式。9、有以下程序段，当在消息框中输入8后，y的值为()。x=InputBox(“EnterlanInteger")x=CInt(x)SelectCasexCaseIs<=0y=0CaseIs<=10y=5+2*xCaseIs<=15y=x一CaseIs>15y=0EndSelectA、18B、19C、20D、21标准答案：D知识点解析：本题考查程序段的分析。SelectCase语句描述了当x取不同值时y值的情况。当在输入框中输入8，并单击“确定”按钮后，x得到的值为8。此时，满足SelectCase语句中的第二个Case语句，因此执行v=5+2*x=5+2*8=21。10、下面叙述中错误的是()。A、软件测试的目的是发现错误并改正错误B、对被调试的程序进行"错误定位"是程序调试的必要步骤C、程序调试通常也称为DebugD、软件测试应严格执行测试计划，排除测试的随意性标准答案：A知识点解析：软件测试的目的是为了发现错误而执行程序的过程，并不涉及改正错误，所以选项A)错误。程序调试的基本步骤有：错误定位、修改设计和代码，以排除错误、进行回归测试，防止引进新的错误。程序调试通常称为Debug，即排错。软件测试的基本准则有：所有测试都应追溯到需求、严格执行测试计划，排除测试的随意性、充分注意测试中的群集现象、程序员应避免检查自己的程序、穷举测试不可能、妥善保存测试计划等文件。11、在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是()。A、B、C、D、标准答案：D知识点解析：无法重复，运行，添加标准EXE工程，结束运行。D选项正确。12、某人编写了下面的程序：PrivateSubCommand1_Click()DimaAsInteger，bAsIntegera=InputBox("请输入整数")b=lnputBox("请输入整数")proaprobCallpro(a+b)EndSubPrivateSubpro(nAsInteger)While(n>0)PrintnMod10；n=n＼10WendPrintEndSub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：321432753但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是()。A、把过程pro的形式参数nAsInteger改为ByValnAsIntegerB、把Callpro(a+b)改为proa+bC、把n=n＼10改为n=n／10D、在prob语句之后增加语句c％=a+b，再把Callpro(a+b)改为proc标准答案：A知识点解析：在过程定义中过程的形式参数定义时如果没有ByVal指明参数的传递方式，那么默认为地址传递，这样过程中对形参的改变将影响到实参的值。本程序中过程定义语句PrivateSubpro(nAsInteger)说明形参n为按地址传递的，而在过程内语句n=n＼10改变了形参的值，因此，a、b的值就不再是最初输入的值了，表达式a+b就不是期望的两个输入数的和。因此得不到正确结果。只要把PrivateSubpro(nAsInteger)改为PrivateSubpro(ByValnAsInteger)，程序即可得到正确结果，因此A选项正确。13、以下说法中正确的是()。A、事件过程也是过程，只能由其他过程调用B、事件过程的过程名是由程序设计者命名的C、事件过程通常放在标准模块中D、事件过程是用来处理由用户操作或系统激发的事件的代码标准答案：D知识点解析：事件过程也是过程，其他过程或系统都可以调用它。故A选项错误。事件过程的过程名是由系统命名的。故B选项错误。通常事件过程放在窗体模块中。故C选项错误。事件过程是用来处理由用户操作或系统激发的事件的代码。只有当用户或系统触发事件后，才执行相应的事件过程。故D选项正确。14、一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为()。A、16B、10C、6D、4标准答案：A知识点解析：根据二叉树的性质3：在任意一棵二叉树中，度为0的叶子结点总是比度为2的结点多一个，所以本题中度为2的结点是5－1＝4个，所以度为1的结点的个数是25－5－4＝16个。15、有三个关系R、S和T如下：则由关系R和S得到关系T的操作是()。A、自然连接B、并C、交D、差标准答案：D知识点解析：关系T中的元组是关系R中有而关系S中没有的元组的集合，即从关系R中除去与关系s中相同元组后得到的关系T。所以做的是差的运算。16、下列有关数据库的描述，正确的是()。A、数据库设计是指设计数据库管理系统B、数据库技术的根本目标是要解决数据共享的问题C、数据库是一个独立的系统，不需要操作系统的支持D、数据库系统中，数据的物理结构必须与逻辑结构一致标准答案：B知识点解析：数据库设计的目的实质上是设计出满足实际应用需求的实际关系模型。数据库技术的主要目的是有效地管理和存取大量的数据资源，包括：提高数据的共享性，使多个用户能够同时访问数据库中的数据；减小数据的冗余，以提高数据的一致性和完整性；提供数据与应用程序的独立性，从而减少应用程序的开发和维护代价。17、程序运行时，单击命令按钮，则产生的操作是()。A、窗体左上角移动到距屏幕左边界、上边界各200的位置B、窗体左上角移动到距屏幕右边界、上边界各200的位置C、窗体由当前位置向左、向上各移动200D、窗体由当前位置向右、向下各移动200标准答案：A知识点解析：Move方法是窗体的移动方法，其中200,200是窗体左上角的坐标(X，Y)。坐标系是以屏幕左上角为原点，向右为X轴正方向，向下为Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各200的位置。故A选项正确。18、下列关于二叉树的叙述中，正确的是()。A、叶子结点总是比度为2的结点少一个B、叶子结点总是比度为2的结点多一个C、叶子结点数是度为2的结点数的两倍D、度为2的结点数是度为1的结点数的两倍标准答案：B知识点解析：根据二叉树的基本性质3：在任意一棵二叉树中，度为0的叶子结点总是比度为2的结点多一个。所以选择B。19、要计算x的平方根并放入变量y，正确的语句是()。A、y＝Exp(x)B、y＝Sgn(x)C、y＝Int(x)D、y＝Sqr(x)标准答案：D知识点解析：Exp函数是e为底的指数函数，即ex；Sgn是符号函数，正数返回1，负数返回－1,0返回0；Int是取整函数，取<＝N的最大整数；Sqr是求平方根函数。故D选项正确。20、求1!+2!+…+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommandl_Click()DimiAsIntegerDimyAsLongFori=1To10NextPrintyEndSub为实现功能要求，程序的横线处应该填入的内容是()。A、Calls(i)B、CallsC、y=y+s(i)D、y=y+s标准答案：C知识点解析：题目中过程s的功能是实现一个数的阶乘，而题目是求1到10的阶乘的和，则程序空缺处应该是过程s返回值的累加，因此就应该为y=y+s(i)。21、为了声明一个长度为128个宇符的定长字符串变量StrD，以下语句中正确的是()。A、DimStrDAsStringB、DimStrDAsString(128)C、DimStrDAsString[128]D、DimStrDAsString*128标准答案：D知识点解析：有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的，字符串长度可以改变，比如：DimstrAsString。如果声明一个定长字符串变量，形如DimstrAsString*字符个数。故D选项正确。22、设有以下程序代码：PrivateSubCommand1_Click()a=Array(1，2，7，10，6)b=Array(5，4，7，8，2)i=0j=0DoIfi<=UBound(a)Andj<=UBound(b)ThenIfa(i)UBound(a)Andj>UBound(b)EndSub上面事件过程执行后产生的输出是()。A、12245677810C、12710654781D、12547782106标准答案：D知识点解析：程序中变量a和变量b分别为数组变量，并且使用Array函数给两个数组进行了初始化，变量i和j初始值均为0，程序进入Do……LoopUntil循环结构，程序执行过程如下所示：第一次循环，变量i=0，j=0，ifi<=uBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>uBound(b)，条件为假，继续执行循环。第二次循环，变量i=1，j=0，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)uBound(a)Andj>UBound(b)，条件为假，继续执行循环。第三次循环，变量i=2，j=0，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>UBound(b)，条件为假，继续执行循环。第四次循环，变量i=2，j=l，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>L／Bound(b)，条件为假，继续执行循环。第五次循环，变量i=2，j=2，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>UBound(b)，条件为假，继续执行循环。第六次循环，变量i=2，j=3，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>UBound(b)，条件为假，继续执行循环。第七次循环，变量i-3，j=3，ifi<=UBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>UBound(b)，条件为假，继续执行循环。第八次循环，变量i=3，j=4，ifi<=uBound(a)andj<=UBound(b)条件为真，执行判断语句ifa(i)UBound(a)Andj>UBound(b)，条件为假，继续执行循环。第九次循环，变量i=3，j=5，ifi<=uBound(a)andj<=uBound(b)条件为假，执行判断语句Ifi<=UBound(a)条件为真，执行语句printa(i)，i=i+1输出10，变量i的值为4；执行循环判断语句i>uBound(a)Andi>UBound(b)，条件为假，继续执行循环。第十次循环，变量i=4，j=5，ifi<=UBound(a)andj<=UBound(b)条件为假，执行判断语句Ifi<=UBound(a)条件为真，执行语句printa(i)，i=i+1输出6，变量i的值为5；执行循环判断语句i>uBound(a)Andi>UBound(b)，条件为真，循环结束。所以程序输出的结果为12547782106，D选项正确。本题选择D选项。23、以下关于过程及过程参数的描述中，错误的是()。A、过程的参数可以是控件名称B、调用过程时使用的实参的个数应与过程形参的个数相同(假定不含可变参数)C、只有函数过程能够将过程中处理的信息返回到调用程序中D、窗体可以作为过程的参数标准答案：C知识点解析：过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时实参也可以是一般数据类型、控件名或窗体。故选项A、D正确。调用过程时使用的实参的个数、类型、顺序应与过程中形参相同。故选项B正确。在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中，Sub过程也可以。Sub过程中形参声明时前面有关键字ByRef或省略ByRef(默认)时，实参和形参之间传递的是地址，Sub过程中形参的变化也会引起实参的变化，这样Sub过程中处理的信息也可以传回调用程序中。故选项c说法错误。24、软件设计中模块划分应遵循的准则是A、低内聚低耦合B、高耦合高内聚C、高内聚低耦合D、以上说法均错误标准答案：C知识点解析：根据软件设计原理提出如下优化准则：①划分模块时，尽量做到高内聚、低耦合，保持模块相对独立性，并以此原则优化初始的软件结构。②一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近。③软件结构的深度、宽度、扇入、扇出应适当。④模块的大小要适中。C正确。25、编写如下程序：PrivateSubCommand1_Click()Fori=1To4PrintSpace(12-3*i)；Forj=1ToiPrintj；NextjFork=i-1To1Step-1Printk；NextkPrintNextiEndSub程序运行后，单击命令按钮Command1，输出结果为()。A、

B、

C、

D、

标准答案：C知识点解析：PrintSpace(12-3*i)语句为打印空格符。根据变量i的值变化，打印的个数不同。For循环的执行根据变量值进行相应的打印。26、数据库技术的根本目标是()。A、数据存储B、数据共享C、数据查询D、数据管理标准答案：B知识点解析：数据库是长期储存在计算机内、有组织的、可共享的大量数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，并可被各个应用程序所共享，所以数据库技术的根本目标是解决数据共享问题。27、为了使标签中的内容居中显示，应把Alignment属性设置为()。A、0B、1C、2D、3标准答案：C知识点解析：本题考查Alignment属性。控件的Alignment属性表示控件中的文字水平对齐方式，属性值可取3种值：0为左对齐，1为右对齐，2为居中。28、对于窗体Form1，下列叙述中正确的是A、语句Form1.Hide与Form1.Visible=True的功能是等价的B、语句Form1.Hide与Form1.Visible=False的功能是等价的C、语句LoadForm1与Form1.Visible=False的功能是等价的D、语句UnloadForm1与Form1.Visible=True的功能是等价的标准答案：B知识点解析：Form1.Hide：隐藏窗体Form1，使当前窗体不可见。Form1.Visible：设置窗体Form1是否可见，Visible值为True时，窗体Form1可见，值为False时，窗体Form1不可见，故选项A错误，选项B正确；Load(装入)事件，该事件主要用来在启动程序时对属性和相关变量的初始化。在装入窗体后，如果运行程序，将自动触发该事件。Unload(卸载)事件，该事件的作用是从当前的内存中清除一个窗体包括关闭和执行Unload语句所触发的事件。此外如果重新装入该窗体，则窗体中的所有控件都要重新初始化，故选项C和D均错误。正确答案为B选项。29、窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：PrivateSubCommand1_Click()Fori＝0ToList1.ListCount－1IfList1.Selected(i)＝TrueThenList2.AddItemTextEndIfNextEndSub上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是()。A、将For循环的终值改为List1.ListCountB、将List1.Selected(i)＝True改为List1.List(i).Selected＝TrueC、将List2.AddItemText改为List2.AddItemList1.List(i)D、将List2.AddItemText改为List2.AddItemList1.ListIndex标准答案：C知识点解析：题目程序不能将List1中的选中项添加到List2中，List2.AddItemText一行有误，应该改为List2.AddItemList1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。30、设a＝10，b＝5，c＝1，执行语句Printa>b>c后，窗体上显示的是()。A、TrueB、FalseC、11D、出错标准答案：B知识点解析：本题中Print语句中的表达式只有">"运算符，相同优先级，左结合。先计算a>b，即10>5，值为True，(即－1)，再计算－1>1，结果为False。故B选项正确。31、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()Counter＝0Fori＝1To4Forj＝6To1Step－2Counter＝Counter＋1NextjNextiLabel1.Caption＝Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是()。A、11B、12C、16D、20标准答案：B知识点解析：32、确定图片框Picture1在窗体上位置的属性是()。A、Width和HeightB、Left和TopC、Width和TopD、Height和Left标准答案：B知识点解析：确定图片框在窗体上位置的属性是Left和Top，它们使用的是相对坐标，以窗体为参考点。33、假定在窗体上添加了一个通用对话框控件，其名称为CD1，并有如下程序段：CD1.ShowOpenCD1.DefaultExt="doc"在打开文件的对话框中选择了"c:\file1.txt"文件，则FileTitle属性的值是A、file1.docB、file1.txtC、c:\file1.txtD、c:\file1.doc标准答案：B知识点解析：FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。该属性与FileName属性的区别是：FileName属性用来指定完整的路径，如"d:\prog\vbf\test.frm"；而FileTitle只指定文件名，如"test.frm"。34、为了保存数据，需打开顺序文件"E:\UserData.txt"，以下正确的命令是A、OpenE:\UserData.txtForInputAs#1B、Open"E:\UserData.txt"ForInputAs#2C、OpenE:\UserData.txtForOutputAs#1D、Open"E:\UserData.txt"ForOutputAs#2标准答案：D知识点解析：打开顺序文件的基本格式为：Open"文件名称"ForModeAs#文件号。"文件名称"表示要打开的文件的路径。Mode为打开模式：OutPut用于输出；Append用于追加写入；Input用于读取。文件号为打开文件时指定的句柄(即文件号)。35、鼠标拖放控件要触发两个事件，这两个事件是()。A、DragOver事件和DragDrop事件B、Drag事件和DragDrop事件C、MouseDown事件和KeyDown事件D、MouseUp事件和KeyUp事件标准答案：A知识点解析：当鼠标拖动控件到目标对象上，不松开鼠标时，触发目标对象的DragOver事件；松开鼠标时，就会触发目标对象的DragDrop事件。故选A。36、假定有如下的程序段：DimintVarAsIntegerintvar=TruePrintintVar则输出结果是A、0B、-1C、TrueD、False标准答案：B知识点解析：VB里面True=-1,False=0。37、窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：PrivateTypexaAsIntegerbAsIntegerEndTypePrivateSubCommand1_Click()DimyAsxy.a＝InputBox("")Ify.a\2＝y.a/2Theny.b＝y.a*y.aElsey.b＝Fix(y.a/2)EndIfText1.Text＝y.bEndSub对以上程序，下列叙述中错误的是()。A、x是用户定义的类型B、InputBox函数弹出的对话框中没有提示信息C、若输入的是偶数，y.b的值为该偶数的平方D、Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回标准答案：D知识点解析：x是用户定义的一种变量类型，可以使用它来声明变量。InputBox("")函数的提示信息为""，即为空，因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数，如果是那么y.b的值就是y.a的值的平方。Fix函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五入，因此D选项错。38、窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。用于区分控件数组ChkOpt1中每个元素的属性是()。A、CaptionB、ListCountC、ListIndexD、Index标准答案：D知识点解析：控件数组的每个元素都有一个与之关联的下标，下标值由Index属性指定，控件数组的各元素就以这个属性来区分。39、A、选择B、差C、交D、并标准答案：B知识点解析：关系T是关系R的一部分，并且是关系R去掉R和S相同的元素，符合差操作。40、窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*100)NextNextx=a(1,1)y=a(1,1)Fori=1To4Forj=1To4Ifx<a(i,j)Thenx=a(i,j)Ify>a(i,j)Theny=a(i,j)Nexts=s+a(i,i)NextPrintx,y,sEndSub关于以上程序，以下叙述中错误的是A、二维数组元素的值是不大于99的随机整数B、计算结果x是二维数组各元素中的最大数C、计算结果y是二维数组各元素中的最小数D、计算结果s是二维数组各行第一个元素之和标准答案：D知识点解析：程序首先通过For循环给数组a元素赋值。取随机数函数返回的值介于0和1之间。乘以100后取整介于0和99。故A）正确。接下来对x和y赋初值（a的第一个元素），在循环内部进行数据大小的比较，把当前比x大的存入x，比y小的存入y，循环结束后，x中存储的是最大值，y中存储的是最小值。故B），C）对。s中存储一维和二维下标相同的数组元素的和。选D）。二、基本操作题(本题共2题，每题1.0分，共2分。)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。41、在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。标准答案：[操作步骤]步骤1：新建一个“标准。EXE”工程，选择[工程]→[部件]命令，在弹出的“部件”对话框的列表中选中“MicroSoftCommonDiMogControl6．0”项目，单击“确定”按钮。步骤2：在窗体Form1上画一个通用对话框，其相关属性设置如表12—7所示。步骤3：编写Form1的Iroad事件，加入下面的代码：CD1．ShowSave步骤4：按要求将文件保存至考生文件夹中。知识点解析：通用对话框的InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。通用对话框的初始路径由InitDir属性设置，默认文件名由FileName属性设置，标题由DialogTitle属性设置。42、在名称为Form1的窗体上设计一个菜单。要求在窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1子菜单不可用，menu2子菜单已经选中(运行时的效果如图3所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．Frm。标准答案：[操作步骤]步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表12—8所示。步骤2：打开代码编辑窗口，编写“上一菜单项可用”命令的Click事件过程。参考代码：PrivateSubmenu2_Click()menu1．Enabled=TrueEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：①VB中的菜单是通过菜单编辑器来设计的。菜单编辑器中的基本设置项有：“标题”项，对应出现在菜单中的显示内容；“名称”项，系统识别菜单项的唯一关键字(不能重复)；“索引”项，用于设置菜单数组中各元素的索引号；“快捷键”项，是一个下拉列表框，用于设置菜单项的快捷键；“帮助上下文”项，设置当鼠标移动到某菜单项上按＜Fl＞键时显示的帮助信息在帮助文件中的对应位置；Visible(可见)项，用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见；Enabled(有效)项，用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效(显示为灰色)。通过编辑按钮区的七个按钮可对菜单进行添加、插入、删除、提升(设置为上一级菜单)、缩进(设置为下一级菜单)、上移、下移等操作。②文本框的Text属性用于设置或返回其显示的文本内容。本题原程序设计思路：在“上一菜单项可用”命令的单击事件过程中，通过语句设置“不可用菜单项”命令的Enabled属性值为True。三、简单应用题(本题共1题，每题1.0分，共1分。)43、(1)在考生文件夹下有一个工程文件sjt3．vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。标准答案：(1)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。PrivateSubForm_Click()Fori=1To5’输入5行Forj=1To6一i’循环实现输入空格，每行依次减少一个空格Print””；NextjForj=1To2*1-1’观察图像每行*的个数Print”*”；NextjPrintNextiFori=1To4Forj=1Toi+1’同问题1Print””；NextjForj=1To(9-2*1)’同问题2Print”*”；NextjPrintNextiEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。DimdAsIntegerPrivateSubCommandl_Click()Timer1．Enabled=True’当单击”开始”按钮时，Timer生效EndSubPrivateSubCommand2_Click()Timer1.Enabled=False’当单击”停止”按钮时，Timer失效EndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimerl_Timer()IfOptionlThen’判断Optionl是否被单击Shape2．Top=Shape2.Top+d*50’实现圆垂直移动IfShape2．Top＜=Shape1．TopOrShape2．Top+Shape2．Width＞=Shape1．Top+Shape1．HeightThen’判断Shape2与Shape1的位置d=一d’当圆移出Shape1时，改变移动方向EndIfElseIfOption2ThenShape2．Left=Shape2.Left+d*50’实现水平移动IfShape2．Left＜=Shape1．LeftOrShape2．Left+Shape2．Width＞=Shape1．Left+Shape1．WidthThend=-d’当圆移出Shape1时，则改变移动方向EndIfEndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。知识点解析：暂无解析四、综合应用题(本题共1题，每题1.0分，共1分。)44、在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找出a、c数组中元素的最大值，并将所找到的结果分别显示在。Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为确的内容，并编写相应程序，实现程序的功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，打开代码编辑窗口，在指定位置编写代码。Max=x(1)NextFori=2ToUBound(x)t．Text=MaxIfx(i)>MaxThenFori=1ToUBound(a)Max=x(i)c(i)=a(i)+b(i)EndIfNext步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。知识点解析：暂无解析国家二级（VB）机试模拟试卷第2套一、选择题(本题共40题，每题1.0分，共40分。)1、在窗体上有一个名称为Labell的标签和一个名称为Timerl的计时器，并编写有如下几个事件过程：PrivateSubForm_Load()Timerl．Enabled[*]FalseTimer1．InterVal=______EndSubPrivateSubForm_Click()Timerl．Enabled=______EndSubPrivateSubTimerl_Timer()Label1．Caption=_______EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1s钟变换一次，在横线处应填写()。A、1000TrueTime$()B、100TrueTime$()C、1000FalseTime$()D、100FalseTime$()标准答案：A知识点解析：考查时钟控件。时钟控件的Interval属性为两个Timer事件之间的事件间隔，单位为ms(毫秒)，若间隔1s，那么Interval属性为1000。单击窗体时启动时钟，因此时钟的Enabled属性为True，执行Timer事件，利用Time函数获得系统时间。2、一间宿舍可住多个学生，则实体宿舍和学生之间的联系是()。A、一对一B、一对多C、多对一D、多对多标准答案：B知识点解析：因为一间宿舍可以住多个学生即多个学生住在一个宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。3、内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是()。A、顺序内聚B、偶然内聚C、时间内聚D、逻辑内聚标准答案：B知识点解析：内聚是从功能角度来衡量模块的联系，它描述的是模块内的功能联系。内聚有如下种类，它们之间的内聚度由弱到强排列：偶然内聚——模块中的代码无法定义其不同功能的调用。但它使该模块能执行不同的功能，这种模块为巧合强度模块。逻辑内聚——这种模块把几种相关的功能组合在一起，每次被调用时，由传送给模块的参数来确定该模块应完成哪一种功能。时间内聚——这种模块顺序完成一类相关功能，比如初始化模块，它顺序地为变量置初值。过程内聚——如果一个模块内的处理元素是相关的，而且必须以特定次序执行，则称为过程内聚。通信内聚——这种模块除了具有过程内聚的特点外，还有另外一种关系，即它的所有功能都通过使用公用数据而发生联系。顺序内聚——如果一个模块内各个处理元素和同一个功能密切相关，而且这些处理必须顺序执行，处理元素的输出数据作为下一个处理元素的输入数据，则称为顺序内聚。功能内聚——如果一个模块包括为完成某一具体任务所必需的所有成分，或者说模块中所有成分结合起来是为了完成一个具体的任务，此模块则为功能内聚模块。4、设有以下函数过程PdvateFunctionFun(a()AsInteger，bAsSlring)AsIntegerEndFunction若已有变量声明：Dimx(5)AsInteger，nAsInteger，chAsString则下面正确的过程调用语句是()。A、x(O)=Fun(x，"ch")B、n=Fun(n，ch)C、CallFunx，"ch"D、n=Fun(x(5)，ch)标准答案：A知识点解析：在过程定义时如果将其形参定义为数组，则在调用该过程时所赋予的对应实参必须为数组名，而不能是普通变量、数组元素等。Sub子过程可以使用Call关键字来调用，但是Function函数过程不可以使用Call关键字调用，同时函数过程有一个返回值，可以将其赋值给其他变量或者数组元素。5、当用()方式打开文件时，如果对文件进行写操作，则写入的数据附加到原文件的后面。A、OutputB、AppendC、InputD、Random标准答案：B知识点解析：本题考查文件的打开方式。以追加的方式打开文件时，每次写入的记录存放在文件的末尾。6、为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommandl_Click()a％=10：b％=20Callswap(a，b)Printa,bEndSubPrivateSubswap(ByValaAsInteger，ByValbAsInteger)c=a：a=b：b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是()。A、调用swap过程的语句错误，应改为：Callswapa,bB、输出语句错误，应改为：Print”a”，”b”C、过程的形式参数有错，应改为：swap(ByRefaAsInteger，ByRefbAsInteger)D、swap中3条赋值语句的顺序是错误的，应改为a=b：b=c：c=a标准答案：C知识点解析：考查参数传递。VB过程调用中，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递(即形参的结果会传递给实参)。中为了实现数据的交换，要求进行传址调用，因此形参前面不应用ByVal声明。7、一棵二叉树的前序遍历结果是ABCEDF，中序遍历结果是CBAEDF，则其后序遍历的结果是()。A、DBACEFB、CBEFDAC、FDAEBCD、DFABEC标准答案：B知识点解析：由于该二叉树的前序遍历结果是ABCEDF，显然A结点为根结点，所以后序遍历时A结点是最后遍历的，其后序遍历的结果为CBEFDA。8、下列叙述中，不属于软件需求规格说明书的作用的是()。A、便于用户，开发人员进行理解和交流B、反映出用户问题的结构，可以作为软件开发工作的基础和依据C、作为确认测试和验收的依据D、便于开发人员进行需求分析标准答案：D知识点解析：软件需求规格说明书有以下几个方面的作用：①便于用户、开发人员进行理解和交流；②反映出用户问题的结构，可以作为软件开发工作的基础和依据：③作为确认测试和验收的依据。9、若看到程序中有以下事件过程，则可以肯定的是，当程序运行时()。PrivateSubClick_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Print"VBProgram"EndSubA、用鼠标左键单击名称为"Command1"的命令按钮时，执行此过程B、用鼠标左键单击名称为"MouseDown"的命令按钮时，执行此过程C、用鼠标右键单击名称为"MouseDown"的控件时，执行此过程D、用鼠标左键或右键单击名称为"Click"的控件时，执行此过程标准答案：D知识点解析：本题中，Click是控件的名称，MouseDown是鼠标按下事件，当用鼠标左键或右键单击Click控件时就会触发MouseDown事件，执行MouseDown事件过程。故选D。10、在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：FunctionFun1(ByValaAsInteger，bAsInteger)AsIntegerDimtAsIntegert＝a－bb＝t＋aFun1＝t＋bEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx＝10PrintFun1(Fun1(x，(Fun1(x，x－1)))，x－1)EndSub程序运行后，单击命令按钮，输出结果是()。A、10B、0C、11D、21标准答案：B知识点解析：本题是过程的嵌套调用，过程嵌套调用时要先计算最内层的过程，然后由里向外执行。因此Fun1(Fun1(x，(Fun1(x，x－1)))，x－1)执行过程如下：先执行Fun1(x，x－1)，由于形参a是按值传递，因此不会影响x的值，x＝10，即Fun1(10,9)。t＝1，b＝1＋10＝11，则函数返回值为1＋11＝12。再执行Fun1(x，(Fun1(x，x－1)))，由于内层过程返回12，因此又可写成Fun1(x，(12))，由于x仍为原值，因此过程即Fun1(10,12)。t＝－2，b＝－2＋10＝8，则函数返回值为－2＋8＝6。最后执行Fun1(Fun1(x，(Fun1(x，x－1)))，x－1)，即Fun1(6，x－1)，由于x仍为原值，因此过程即为Fun1(6,9)。t＝－3，b＝－3＋6＝3，则函数返回值为－3＋3＝0。设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString，strLAsIntegertStr＝""strL＝Len(xStr)i＝strL/2DoWhilei<＝strLtStr＝tStr&Mid(xStr，i＋1，1)i＝i＋1LoopFun＝tStr&tStrEndFunction11、在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger，A2(4)AsIntegerFork=0To2A1(k+1)=InputBox("请输入一个整数")A2(3一k)=A1(k+1)NextkPrintA2(k)EndSub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为()。A、0B、1C、2D、3标准答案：C知识点解析：程序运行过程如下：k=0，输入2，A1(k+1)=A1(0+1)=A1(1)=2，A2(3一k)=A2(3一0)=A2(3)=2k=1，输入4，A1(k+1)=A1(1+1)=A1(2)=4，A2(3一k)=A2(3—1)=A2(2)=4k=2，输入6，A1(k+1)=A1(2+1)=A1(3)=6，A2(3一k)=A2(3—2)=A2(1)=6k=3，For循环结束，输出A2(k)的值即A2(3)的值，即2。12、在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc(LAsLabel)L．Caption="1234"EndSubPfivateSubForm_Load()Label1．Caption="ABCDE"Label2．Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2．Caption)Callfunc(Tabell)Label2．Caption=aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为()。A、ABCD和10B、1234和100C、ABCD和100D、1234和10标准答案：D知识点解析：程序运行，窗体加载时设置Label1显示为ABCD，Label2显示为10。单击命令按钮，执行按钮的单击事件过程，过程中Val函数将Label2的标题字符串转换为数值赋给变量a，此时a的值为10，然后调用func过程传入Label1为参数，func过程中设置Label1的标题为“1234”，回到按钮单击事件过程，设置Label2的标题为变量a的值，即10。因此两个标签中显示的内容分别为1234和10。13、下列可作为VisualBasic变量名的是()。A、A#AB、constAC、?xyD、4A标准答案：B知识点解析：本题考查变量命名规则。VB中变量的命名应遵循以下规则：只能由字母、数字和下划线组成；第一个字符必须是英文字母；有效字符为255个；不能用关键字做变量名。14、为了使文本框只具有垂直滚动条，应先把MuhiLine属性设嚣为True，然后再把ScrollBars属性设置为()。A、0B、1C、2D、3标准答案：C知识点解析：文本框的ScrollBars属性值：0表示无滚动条，l表示只有水平滚动条，2表示只有垂直滚动条，3表示水平和垂直滚动条都有。本题文本框只其有垂直滚动条，则ScrollBar属性值就设置为2，故C选项正确。15、窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击"删除"按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1_Click()Dimn%，k%n＝Len(Text1.Text)Fork＝0ToListl.ListCount－1IfLeft(List1.List(k)，n)＝Text1.TextThenList1.RemoveItemkEndIfNextkEndSub在调试时发现，如输入"陈"，可以正确删除所有姓"陈"的项目，但输入"刘"，则只删除了"刘邦"、"刘备"2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork＝0ToList1.ListCount－1改为()。A、Fork＝List1.ListCount－1To0Step－1B、Fork＝0ToList1.ListCountC、Fork＝1ToList1.ListCount－1D、Fork＝1ToList1.ListCount标准答案：A知识点解析：错误原因：每一次删除列表框满足项，列表框的项目数目就会相应地减少，所以就出现了漏删内容，如果把循环变量k改成从List1.ListCout－1到0，从最后一个项目往第一个项目查找，满足条件就删除该项目，从而不会出现遗漏现象，所以正确答案为A。16、某人编写了下面的程序，希望能把Text1文本框中的内容写到Temp．txt文件中PrivateSubCommand1_Click()Open"Temp．txt"ForOutputAs#2Print"Text1"Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是()。A、把所有#2改为#1B、把Print"Text1"改为Print#2．Text1C、把Print"Text1"改为Write"Text1"D、把Print"Text1"改为PrintText1标准答案：B知识点解析：本题是一个文件输出的问题。若要对以Output形式打开的某义仲使用Printl方法进行输出，标准格式为Print文件号。字符串。17、使用Line控件在窗体上画一条从(O，0)到(600，700)的直线，则其相应属性的值应是()。A、X1=0，X2=600，Y1=0，Y2=700B、Y1=0，Y2=600，X1=0，X2=700C、X1=0，X2=0，Y1=600，Y2=700D、Y1=0，Y2=0，X1=600，X2=700标准答案：A知识点解析：X1、Y1、X2、Y2属性是直线的起点、终点坐标。故选A。18、窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSUbCommandl_Click()Dimarr(5)AsIntegerFork=1To5arr(k)=kNextkprogarr()Fork=1To5Printarr(k)；NextkEndSubSubprog(a()AsInteger)n=UBound(a)Fori=nTo2step一1Forj=1Ton一1ffa(j)＜a(j+1)Thent=a(j)：a(j)=a(j+1)：a(j+1)=tEndIfNextjNextiEndSUb程序运行时，单击命令按钮后显示的是()。A、12345B、54321C、01234D、43210标准答案：B知识点解析：程序对数组元素赋初值为1、2、3、4、5。Ubound函数返回数组可用的最大下标，过程prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)＜a(j+1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时。使用的是“传地址”方式，因此程序输出的是排序后的数组元素值，即5、4、3、2、1。19、已知过程定义的首行为Subsum(aAsInteger，bAsInteger)，则下面过程调用语句中正确的是()。A、Callsum(x；y)B、sumx:yC、sum(x，y)D、sumx，y标准答案：D知识点解析：sub过程的调用有两种方式，一种是把过程的名字放在Call语句中，一种是把过程名作为一个语句来使用。A选项和B选项参数之间的分隔符应使用“；”，故A、B选项均错误;C选项应去掉“实际参数”的括号；故D选项正确。20、数据库设计过程不包括()。A、概念设计B、逻辑设计C、物理设计D、算法设计标准答案：D知识点解析：数据库设计过程主要包括需求分析、概念结构设计、逻辑结构分析、数据库物理设计、数据库实施、数据库运行和维护阶段。答案为D选项。21、有下面程序代码：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。22、对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为A、9B、10C、45D、90标准答案：C知识点解析：冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为9+8+7+6+5+4+3+2+1=45，选C。23、在VB中，函数过程与子程序过程的区别之一是A、函数过程必须有参数，而子程序过程可以没有B、函数过程的参数传递只采用值传递，而子程序过程只采用地址传递C、在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能D、函数过程有返回值，而子程序过程没有标准答案：D知识点解析：在VisualBasic中有两类过程：一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点是完成某种特定功能的一组程序代码；不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是Sub过程的过程不能直接返回值，而Function过程能直接返回值。24、设窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"<=Chr(KeyAscii)AndChr(KeyAscii)<="Z"ThenKeyAscii=KeyAscii+(Asc("a")-Asc("A"))EndIfn=0IfKeyAscii=13ThenFork=1ToLen(Text1)ch$=Mid(Text1,k,1)If"a"<=chAndch<="z"Thenn=n+1NextkText2=nEndIfEndSub程序运行时，在Text1文本框中输入"VisualBasic6.0"后按回车键，则在Text2文本框显示的是A、11B、16C、VisualBasic6.0D、visualbasic6.0标准答案：A知识点解析：Text1_KeyPress过程中，先把输入的字符串中大小字母变成小写字母。当按下回车键后，执行For循环统计小写字母的个数。退出循环后把n值赋给Text2。选A。25、要清除已经在图片框Picture1中打印的字符串而不清除图片框中的图像，应使用语句()。A、Picture1．ClsB、Picture1．Picture=LoadPicture("")C、Picture1．Pint""D、Picture1．Picture""标准答案：A知识点解析：本题考查常用的方法。Cls方法的使用形式为：[对象]．Cls，作用是清除运行时在窗体或图形框中显示的文本或图形，而不能清除图像。要不清除在设计时的文本，同时也不能清除图形，应用LoqdPicture可以清除或者装入图片。26、编写如下程序：PrivateSubCommand1_Click()DimnAsIntegerDimxAsString,yAsString,sAsStringx="#"y="**"Forn=1To4IfnMod2=0Thens=String(Len(y)+n,y)Elses=String(Len(x)+n,x)EndIfPrintsNextnEndSub程序运行后，单击命令按钮Command1，输出结果为A、##****####******B、#**###****C、**####****######D、##****######********标准答案：A知识点解析：Len(x)=1，Len(y)=2，String（n，s）生产n个同一字符组成的字符串，此字符由s指定，当s为字符是，生产n个由s组成的字符串，当s为字符串时，字符为s的第一个字符。在For循环中，n从1到4，当n为偶数时（nmod2=0）即当n为2、4时，分别在第2行、第4行，输出含有n+len（y）个的"*"（由y决定）的字符串；当n为奇数时（nmod2！=0），即当n为1、3时，分别在第1行、第3行，输出含有n+len（x）个"#"（由x决定）的字符串。当n=1时，s=String(Len(x)+n，x)=String(1+1,"#")=##，输出##；当n=2时，s=String(Len(y)+n,y)=String(2+2,"**")=****，输出****；当n=3时，s=String(Len(x)+n，x)=String(1+3,"#")=####，输出####；当n=4时，s=String(Len(y)+n,y)=String(2+4,"**")=******，输出******；故A项正确。27、确定一个控件在窗体上的位置的属性是()。A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left标准答案：D知识点解析：本题考查对象的基本属性。Height和width属性决定了控件的高度和宽度，而Top和Left属性决定了控件在窗体中的位置属性。28、下面关于鼠标拖放操作的叙述中错误的是A、源对象的DragMode属性用来设置拖动模式B、当鼠标拖动源对象到达目标对象上并放开鼠标键时，引发目标对象的DragDrop事件C、控件的DragIcon属性可以加载一个图标D、在自动拖放模式下，用鼠标把源对象拖到目标位置放开，就实现了源对象的移动，不必再编程标准答案：D知识点解析：A、B、C项表述都正确。在自动模式下，如果只是修改其属性，那么当松开鼠标键后，被拖动的控件又回到原来的位置，只有编写相关事件过程，才能实现了源对象的移动，故D项错误。29、阅读程序：PrivateSubForm_Click()a＝0Forj＝1To15a＝a＋jMod3NextjPrintaEndSub程序运行后，单击窗体，输出结果是()。A、105B、1C、120D、15标准答案：D知识点解析：30、窗体上有1个名称为Text1的文本框和1个名称为Label1的标签。运行以下程序，在文本框中输入VisualBasic，则标签中显示内容为basic的是A、PrivateSubText1_Change()Label1.Caption=LCase(Mid(Text1.Text,7))EndSubB、PrivateSubText1_Change()Label1.Caption=UCase(Left(Text1.Text,5))EndSubC、PrivateSubText1_Change()Label1.Caption=UCase(Right(Text1.Text,5))EndSubD、PrivateSubText1_Change()Label1.Caption=LCase(Left(Text1.Text,5))EndSub标准答案：A知识点解析：Mid(s,n1，n2)是字符串截取函数，从s的第n1个字符开始，向后截取n2个字符，，其中n2可省略，省略时，就是截取s的第n1个字符以后的所有字符。Left（s，n）截取字符串s左边的n个字符；Right（s，n）截取字符串s右边的n个字符。故LCase函数将字符串中的大写字母转换为小写字母，UCase函数将字符串中的小写字母转换为大写字母。题目中的A项要求将对输入的VisualBasic，转化为basic作为标签显示内容。B项和C项都将小写字母转化为大写字母。A项中的"LCase(Mid(Text1.Text,7))"将VisualBasic截取从第7个字符开始向后所有字符，并将其中大写字母转换为小写字母，得到basic，故A项正确。B项中"UCase(Left(Text1.Text,5))"是截取字符串左边的5个字符并将其中的小写字母转换为大写字母，得到VISUA，故B错误。C项"UCase(Right(Text1.Text,5))"是截取字符串右边的5个字符并将其中的小写字母转换为大写字母，得到BASIC，故C项错误。D项"LCase(Left(Text1.Text,5))"是截取字符串左边的5个字符并将其中的大写字母转化为小写字母，得到visua，故D项错误。31、对于滚动条控件，下列说法正确的是A、Max属性值不能小于Min属性值B、LargeChange属性值必须大于SmallChange属性值C、SmallChange属性值可以大于LargeChange属性值D、单击滚动箭头时会触发Scroll事件标准答案：C知识点解析：Max属性表述滚动条所能达到的最大值，Min属性表述滚动条所能达到的最小值，故Maz必须大于或等于Min，A项正确。L