VB笔试模拟试卷5（共411题）

VB笔试模拟试卷5（共9套）（共411题）VB笔试模拟试卷第1套一、公共基础选择题(本题共10题，每题1.0分，共10分。)1、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1Click()Move500，500EndSub程序运行后，单击命令按钮，执行的操作为A、命令按钮移动到距窗体左边界、上边界各500的位置B、窗体移动到距屏幕左边界、上边界各500的位置C、命令按钮向左、上方向各移动500D、窗体向左、上方向各移动500标准答案：2知识点解析：Move是表示控件或窗体移动的方法。后接两个参数，分别表示要移动到某点的横坐标值与纵坐标值。对于窗体来说，横坐标与纵坐标分别表示窗体距离屏幕左边界与上边界的长度。本题表示单击Command1控制按钮后，窗体移动到(500,500)处。故答案为B。答案A与C是错误的，因为当方法前省去主体时，一般指窗体。D项错在Move方法并不是使窗体移动多大的距离，而是使窗体达到指定的位置。2、以下关于窗体的描述中，错误的是A、执行UnLoadForml语句后，窗体Forml消失，但仍在内存中B、窗体的Load事件在加载窗体时发生C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D、窗体的Height、Width属性用于设置窗体的高和宽标准答案：1知识点解析：本题考查窗体的方法与属性。在执行UnLoadForm1语句后，窗体Form1从内存中卸载，并从屏幕中消失。只有在执行Hide方法时，Form1才会消失但仍在内存中，故选择A。3、以下定义数组或给数组元素赋值的语句中，正确的是A、DimaAsVarianta=Array(1，2，3，4，5)B、Dima(10)AsIntegera=Array(1，2，3，4，5)C、Dima%(10)a(1)="ABCDE"D、Dima(3)，b(3)AsIntegera(0)=0a(1)=1a(2)=2b=a标准答案：1知识点解析：对于一数组，赋值一般可以用For循环来逐一赋值，也可以用Array函数来赋值。Array函数赋值的方法为：数组变量名=Array(表达式，表达式，…)故答案A是正确的。注意，在用Array函数赋值时，数组变量名后面不需要加“()”。选项B的错误在于它首先定义了一个静态数组，然后用Array函数赋值，并且所赋的元素只用5个，少于a数组应有的数组元素个数。选项c的错误在于数据类型不搭配，Dim定义a为%数据类型，而a(1)被赋以字符串数据。选项D中a数组的赋值方法是正确的，但b的赋值不能通过b=a这种方式，可以使用For循环语句来赋值。考生需特别注意。4、编制一个好的程序，首先要保证它的正确性和可靠性，还应强调良好的编程风格，在选择标识符的名字时应考虑A、名字长度越短越好，以减少源程序的输入量B、多个变量共用一个名字，以减少变量名的数目C、选择含义明确的名字，以正确提示所代表的实体D、尽量用关键字作名字，以使名字标准化标准答案：4知识点解析：标识符的名字应该能反映出它所代表的实际东西，应有一定的意义。名字不是越长越好，应当选择精练的意义明确的名字。必要时可以使用缩写名字，但这时要注意缩写规则要一致，并且给每个名字加注释。同时，在一个程序中，一个变量只有一种用途。5、函数String(n,"str")的功能是A、把数值型数据转换为字符串B、返回由n个字符组成的字符串C、从字符串中取出n个字符D、从字符串中第n个字符的位置开始取子字符串标准答案：2知识点解析：本题主要考查字符串函数String$。String(n,"str")返回n个指定字符组成的字符串，当指定字符为字符串时，返回该字符串第一个字符组成的n个字符的字符串。据此，本题应选择B项。6、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX，YEndSub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A、1516B、156C、1515D、56标准答案：2知识点解析：本题考查Static的用法。Static用于在过程中定义静态变量及数组变量。与Dim不同，如果用Static定义了一个变量，则每次引用该变量时，其值都会继续保留．本题中，三次单击命令按钮意味着每次Y值加5，X值也加5。由于在事件过程中事先给Y赋值1，所以每次单击按钮，Y值都被初始化为1，但X继续保留上次的值，即在第三次单击命令按钮时，X连加了3次5，Y值为1加5，故正确选项为D。7、下列叙述中正确的是A、软件交付使用后还需要进行维护B、软件一旦交付使用就不需要再进行维护C、软件交付使用后其生命周期就结束D、软件维护是指修复程序中被破坏的指令标准答案：1知识点解析：维护是软件生命周期的最后。一个阶段，也是持续时间最长、付出代价最大的阶段，在软件交付使用后，还需要进行维护。软件维护通常有以下四类：为纠正使用中出现的错误而进行的改正性维护；为适应环境变化而进行的适应性维护；为改进原有软件而进行的完善性维护；为将来的可维护和可靠而进行的预防性维护。软件维护不仅包括程序代码的维护，还包括文档的维护。综上所述，本题的正确答案是A，其余选项的说法错误。8、以下叙述中错误的是A、下拉式菜单和弹出式菜单都用菜单编辑器建立B、在多窗体程序中，每个窗体都可以建立自己的菜单系统C、除分隔线外，所有菜单项都能接收Click事件D、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见标准答案：8知识点解析：下拉式菜单与弹出式菜单都用菜单编辑器建立，不同的是，弹出式菜单还需要用PopupMenu方法激活。答案A表述正确。在多重窗体程序中，每个窗体都可以建立自己的菜单，答案B也是正确的。菜单中，除了分隔线外，所有菜单项都能接收Click事件，选项C表述正确。选项D处犯了一个典型的错误，就是没有区别Visible属性与Enabled属性。前者表示该菜单项不可见，或者表示该菜单项功能失效，此时显示为灰色。故本题选择D项。9、设有如下关系表：则下列操作中正确的是A、T=R∩SB、T=R∪SC、T=R×SD、T=R/S标准答案：2知识点解析：选项A、B、C分别进行交运算、并运算、笛卡尔积运算，选项D不是关系运算。T由属于关系R以及关系S的元组组成，简单来说，就是S和R的元组之和，是并运算，选项B正确。10、下列模式中，能够给出数据库物理存储结构与物理存取方法的是A、内模式B、外模式C、概念模式D、逻辑模式标准答案：1知识点解析：能够给出数据库物理存储结构与物理存取方法的是内模式。外模式是用户的数据视图，也就是用户所见到的数据模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。没有逻辑模式这一说法。正确答案为A。二、选择题(本题共20题，每题1.0分，共20分。)11、在窗体中添加一个名称为Commandl的命名按钮，然后编写如下程序：PrivateSubCommand1Click()PrintTab(1)；“第一”PrintTab(6)；“第二”EndSub程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)A、第一□□第二B、第一第二□□C、第一□□第二D、第一□□第二标准答案：4知识点解析：本题考查Tab函数以及Print方法使用。Tab(n)表示把光标移到由参数n指定的位置，如果当前的显示位置已经超过n，则自动下移一行。本题由于第一个Print方法后接逗号，为14个字符的区段，所以第二个Print方法显示的字符串会自动换行，故答案C。12、以下关于菜单的叙述中，错误的是A、在程序运行过程中可以增加或减少菜单项B、如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C、弹出式菜单在菜单编辑器中设计D、利用控件数组可以实现菜单项的增加或减少标准答案：2知识点解析：主要考查菜单项的增减。在菜单设计时，如果把一个菜单项的Enabled属性设置为False，则该项菜单呈灰色，表示不可用，并非是删除该项菜单。所以本题答案为B。13、设a="MicrosoftVisualBasic"，则以下使变量b的值为VisualBasic的语句是A、b=LeR(a,10)B、b=Mid(a，10)C、b=Right(a,10)D、b=Mid(a，11，10)标准答案：2知识点解析：本题考查考生对常用字符串函数的应用能力。考生应该对VB中的标准函数熟练掌握。Left函数是从字符串的左边取出一个字符串，选项A结果是Microsoft；Right函数是从字符串的右边取出一个字符串，选项C结果是isualBasic；Mid函数是取出字符串一部分连续字符组成新的字符串，函数形式为Mid(String,n,m)，从第n个字符开始，截取m个字符，如果略去m的话，则认为从第n个字符到字符串末尾，选项D结果是VisualBasi。字符串函数是考试重点内容，也是VB语言的基础，考生应该熟练使用。14、在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程．OptionBase0PrivateSubCommand1_ClickDimcityAsVariantcity=Array(“北京”，“上海”，“天津”，“重庆”)Printcity(1)EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A、空白B、错误提示C、北京D、上海标准答案：8知识点解析：本题主要考查数组的初始赋值。由于有“OptionBase0”，所以以Array函数赋值的数组下标下界为0。所以city(1)指Array赋给city的第二个元素，即“上海”，故本题选D。15、假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S，i，1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimStr1AsString，Str2AsStringStrl=InputBox(“请输入一个字符串”)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为，A、abcdefgB、ABCDEFGC、gfedcbaD、GFEDCBA标准答案：8知识点解析：本题主要考查对函数过程的调用，但关键点在于正确理解s1=UCase(Mid(S，i，1))+s1所表达的字符串相加顺序。当输入“abcde龟”后，首先通过Fori循环语句，逐一将该字符串中的字符按照从右往左的顺序变为大写字母后相加，最终结果为Str2="GFEDCBA"，故选择D项。做本题时，很容易选B，应加以注意。16、以下关于焦点的叙述中，错误的是A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B、当文本框失去焦点时，触发LostFocus事件C、当文本框的Enabled属性为False时，其Tab顺序不起作用D、可以用TabIndex属性改变Tab顺序标准答案：1知识点解析：本题考查焦点与Tab顺序。TabStop是可获得焦点的控件都具备的属性，当设置其为False时，控件仍保持在实际Tab顺序中的位置，只不过按Tab时会被跳过，但该控件仍可以通过键盘输入获得焦点从而接受数据的输入。故A项说法错误。17、下列程序段的执行结果为A=0：B=1DoA=A+BB=B+1LoopWhileA＜10PrintA；BA、105B、ABC、01D、1030标准答案：1知识点解析：本题考查Do循环语句的同时考查了Print方法的应用。当A＞=10时，Do循环终止，此时B值为5，A值为10，同时A与B之间用分号隔开，表示用Print输出A与B的值时以紧凑的方式输出，故答案为A。18、在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text2.Text="’’Text1.SetFocusEndSubPrivateSubText1_Change()Text2.Text=Mid(Text1.Text,8)EndSub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是A、BeijingChinaB、ChinaC、BeijingD、BeijingC标准答案：2知识点解析：本题考查文本框属性、文本框事件以及Mid函数的用法。当在文本框Text1中输入BeijingChina时，Text2.Text=Mid(Text1.Text,8)会执行。Mid(Str-ing,m,n)函数返回从m起向后的n个字符省略n时，则直到尾部结束。题目中Mid(BeijingChina,8)将返回China，所以选项B是正确答案。19、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：PrivateSubFormLoad()List1.AddItem"Item1"List1.Addltem"Item2"Listl.Addltem"Item3"EndSubPrivateSubCommand1Click()Listl.List(Listl.ListCount)="AAAA"EndSub程序运行后，单击命令按钮，其结果为A、把字符串“AAAA”添加到列表框中，但位置不能确定B、把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C、把列表框中原有的最后一项改为“AAAA”D、把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)标准答案：2知识点解析：List属性用来列出表项的内容，可以加下标用“()”括起来配合使用。ListCount是列表框一个很重要的属性，它返回列表框中表项的数量。同时还要注意列表框ListIndex属性值是从0开始，而不是从1开始。Listl.ListCount返回值为3，所以应该是插入到第4个位置，即选项B是正确的。20、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1Click()DimaAsIntegerDimbAsIntegera=2Fori=1To3b=F(A)PrintbNextiEndSub程序运行后，如果单击按钮，则在窗体上显示的内容是A、444B、456C、567D、555标准答案：2知识点解析：本题综合考查了Function函数过程的建立与调用及For循环控制语句。但解题的关键是理解Static定义变量，使变量具有的数值存储功能。本题在Fori的三次循环中，每调用一次函数过程F(A)，c的值都会在上次调用的基础上加1，b的数值保持不变，a的数值也保持不变，故单击按钮时，窗体上显示的内容为B项内容，即数值分别为4，5、6。21、在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1Click()Dimaa=Array(2，4，6，8)j=1Fori=4To1Step-3s=s+a(i)(jj=j(10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是A、22B、24C、26D、28标准答案：8知识点解析：根据题意，For循环在i为4和1时分别执行1次For循环语句，第1次执行时j值为1，a(i)为8；第2次执行时，j值为10，a(i)值为2，故最终用Print输出s时，s的值为20加8，答案为D。注意，本题事先声明了OptionBase1，故数组a的下标下界为1。22、下列程序段的执行结果为DimA(10，10)ForI=2To4ForJ=4To5A(I，J)=I*JNextJNextIPrintA(2，5)+A(3，4)+A(4，5)A、22B、42C、32D、52标准答案：2知识点解析：根据题意，该二维数组的赋值方法为A(I，J)=I(J，故A(2，5)、A(3,4)、A(4,5)的值分别为10、12、20。相加的结果为42，故答案为B。23、设有如下程序：OptionBase1PrivateSubCommand1Click()Dima(10)AsIntegerDimnAsIntegern=InputBox(“输入数据”)Ifn＜10ThenCall，GetArray(a，n)EndIfEndSubPrivateSubGetArray(b()AsInteger，nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+1c(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是A、数组b中的偶数被保存在数组c中B、程序运行结束时，在窗体上显示的是c数组中元素的个数C、GetArray过程的参数n是按值传送的D、如果输入的数据大于10，则窗体上不显示任何信息标准答案：4知识点解析：GetArray过程返回c数组中元素的个数。c数组元素由b(i)赋值，但只有b(i)中为偶数的元素才能赋值给c数组中的元素。单击按钮时，如果输入的n值小于10，则调用GetArray过程。据此A、B、D项都是正确的。C项的错误比较明显，GetArray过程的参数n前没有关键字“ByVal”，则默认为“ByRef”，即n是按传地址的方式传送参数的。24、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$="321"：b$="abc"Forj=1To5PrintMid$(a$，6-j，1)+Mid$(b$，j，1)；NextiEndSub程序运行后，输出的结果是；A、a1b2c3B、ab1c23C、c1b2a3D、a12bc1标准答案：2知识点解析：Mid函数是VisualBasic考试的热点之一。Mid(a$，i，n)表示从字符串a$的笫i个字符开始向后截取n个字符，据此不难看出答案为B。注意Print方法后面以分号结束，意味着每执行一次For循环输出的字符都以紧凑方式与上一次For循环输出的字符相连。25、以下叙述中错误的是A、在同一窗体的菜单项中，不允许出现标题相同的菜单项B、在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C、程序运行过程中，可以重新设置菜单的Visible属性D、弹出式菜单也在菜单编辑器中定义标准答案：1知识点解析：同一窗体可以出现相同标题的菜单项，A项表述错误。在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键，一般与Alt键配合使用。程序运行过程中，可以通过程序代码重新设置菜单的Visible属性。所以B、C项表述正确。弹出式菜单也在菜单编辑器中定义，使用时可以用PopupMenu方法打开。26、在窗体上绘制一个名称为Labell的标签，然后编写如下事件过程：PrivateSubForm_Click()Dimarr(10，10)AsIntegerDimiAsInteger，jAsIntegerFori=2To4Forj=2To4arr(i，j)=i*jNextiNextiLabell.Caption=Str(arr(2，2)+arr(3，3))EndSub程序运行后，单击窗体，在标签中显示的内容是A、12B、13C、14D、15标准答案：2知识点解析：多重循环属于考试难点，考生应该注意多重循环中环应该按照先进后出、后进先出的原则，不能交叉。按照这个原则将循环层次分清楚就不容易出错。程序运行后在标签中显示的内容是13，选项B正确。27、以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是A、KeyAscii参数是所按键的ASCII码B、KeyAscii参数的数据类型为字符串C、KeyAscii参数可以省略D、KeyAscii参数是所按键上标注的字符标准答案：1知识点解析：本题考查对于KeyPress事件过程的理解。28、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod3＜＞0Thenm=m+n\3NextnprintnEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是A、15B、18C、21D、24标准答案：4知识点解析：本题考查For循环控制语句，做好此题的关键是掌握For循环语句的执行过程。For循环首先把“初值”赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把“循环变量+步长”的值赋给循环变量，重复上述过程。据此，如果For循环的终值等于初值，For循环也会执行一次循环。本题需要输出执行完Forn循环后n值，应为21。根据前述，当执行完n=20的循环时，n被赋值21，然后再取检验它是否超过了终值。故正确答案为C。29、一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubfrmFunctionl()...EndSubForm2中定义的过程：PublicSubfrmFunction2()...EndSubmd1Func中定义的过程：PublicSubmdlFunction()...EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是A、上述三个过程都可以在工程中的任何窗体或模块中被调用B、frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用C、上述三个过程都只能在各自被定义的模块中调用D、只有mdlFunction过程能够被工程中各个窗体或模块调用标准答案：8知识点解析：本题考查过程的调用。只有在标准模块中用Public定义的Sub过程才能被工程中各个窗体或模块调用，故本题选D。30、在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：MicrosoftSubCommand1_Click()然后编写如下事件过程：PrivateSubCommand1_Click()Open"d：\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Text1.Text)c=Mid(Text1.Text，i，1)Ifc＞="A"Andc＜="Z"ThenPrint#1，LCase(C)EndIfNextiCloseEndSub程序运行后，单击命令按钮，文件outf.txt中的内容是A、MVBPB、mvbpC、MVBPD、mvbp标准答案：8知识点解析：首先考生应该弄清楚题目给出程序的功能是什么。首先使用Open语句创建outf.txt文件顺序文件。写入的内容是将文本框中的文字进行相关处理然后通过Print#语句向文件写入数据。LCase函数的功能是将大写字符串转换为小写，正确答案是选项D。三、公共基础填空题(本题共5题，每题1.0分，共5分。)31、实现算法所需的存储单元多少和算法的工作量大小分别称为算法的【】。标准答案：空间复杂度和时间复杂度知识点解析：算法的复杂性是指对一个在有限步骤内终止算法和所需存储空间大小的估计。算法所需存储空间大小是算法的空间复杂性，算法的计算量是算法的时间复杂性。32、数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。标准答案：存储结构知识点解析：数据结构包括3个方面，即数据的逻辑结构、数据的存储结构及对数据的操作运算。33、一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】标准答案：可重用性知识点解析：继承的优点：相似的对象可以共享程序代码和数据结构，从而大大减少了程序中的冗余，提高软件的可重用性。34、面向对象的模型中，最基本的概念是对象和【】。标准答案：类知识点解析：面向对象模型中，最基本的概念是对象和类。对象是现实世界中实体的模型化：将属性集和方法集相同的所有对象组合在一起，可以构成一个类。35、软件维护活动包括以下几类：改正性维护、适应性维护、【】维护和预防性维护。标准答案：完善性知识点解析：软件维护活动包括以下几类：改正性维护、适应性维护、完善性维护和预防性维护。改正性维护是指在软件交付使用后，为了识别和纠正软件错误、改正软件性能上的缺陷、排除实施中的误使用，应当进行的诊断和改正错误的过程：适应性维护是指为了使软件适应变化，而去修改软件的过程；完善性维护是指为了满足用户对软件提出的新功能与性能要求，需要修改或再开发软件，以扩充软件功能、增强软件性能、改进加工效率、提高软件的可维护性；预防性维护是为了提高软件的可维护性、可靠性等，为以后的进一步改进软件打下良好基础。四、填空题(本题共1题，每题1.0分，共1分。)36、在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml.______pmenu标准答案：PopupMenu知识点解析：本题属于记忆性内容，当在菜单编辑器中建立一个菜单后，可以使用“窗体名.PopupMenu菜单名”将该菜单变成弹出式菜单。五、填空题（含2小题）(本题共2题，每题1.0分，共2分。)37、设有程序：OptionBase1PrivateSubCommand1Click()Dimarrl，MaxasIntegerarrl=Array(12，435，76，24，78，54，866，43)______=arrl(1)Fori=1To8Ifarrl(i)＞MaxThen_______NextiPrint“最大值是：”；MaxEndSub以上程序的功能是：用Atray函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。标准答案：Max,Max=arrl(i)知识点解析：本题综合考查数组的初始赋值与For循环控制语句。根据题意，先用Array函数为数组arr1赋值，然后令变量Max等于arr1(1)，相当于给Max赋了一个初始值。在For循环中，进行8次循环，逐一遍历比较arr1(i)值与Max值的大小，如果arr1(i)＞Max，则令Max值等于此时的arr1(i)值。通过这个过程，求出arr1数组中的最大元素。故第12空填：Max。根据上面的分析，第13空应该把arrl(i)赋给Max，故填：Max=arrl(i)。38、在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：PrivateSubFormClick()Open"d：\test\smtext1.txt"ForInputAs#1DoWhileNotLineInput#1，aspectswhole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Open"d：\test\smtext2.txt"ForOutputAs#1Print#1,______Close#1EndSub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。标准答案：EOF(1),Text1.Text或Text1或Form1.Text1.Text或Form1.Text1或Me.Text1.Text或Me.Text1知识点解析：本题考查文件操作。文件操作是考试难点，也是众多考生认为困难的内容。首先把磁盘文件smtext1.txt的内容读到内存，如何判断文件是否读取完成呢?EOF函数的功能就是当文件指针到达文件尾部时返回True，否则返回False，当EOF(文件号)可以判断是否读取完成。Linelnput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个aspect$变量，然后进行相应运算，Chr(13)+Chr(10)的功能是回车换行。最后将whole$变量的值显示在文本框中，然后关闭#1文件。接下来就是如何把文本框中的内容存入文件中，这里使用Open"d：\test\smtext2.txt"ForOutputAs#1，该语句可以打开d：\test\目录下的名为smtext2.txt的文件，如果不存在，该语句将创建一个名为smtext2.txt的文件。文件的写入是由Print#语句实现，考生需要注意区分Print#语句与Write#语句的区别。VB笔试模拟试卷第2套一、公共基础选择题(本题共34题，每题1.0分，共34分。)1、下面程序运行后输出结果是()。ForI=1to2S=1Forj=0toI-1S=S+S*INextjPrintSNextIA、11B、02C、29D、69标准答案：C知识点解析：暂无解析2、窗体的隐藏和删除，分别用在不同的场合，隐藏Form1和删除Form1的命令是()A、HideForm1UnloadForm1B、Form1.HideForm1.UnloadC、Form1.HideUnloadForm1D、HideForm1Form1.Unload标准答案：C知识点解析：暂无解析3、程序的基本控制结构是()。A、Do-Loop结构、Do-LoopWhile结构和For-Next结构B、子程序结构，自定义函数结构C、顺序结构，选择结构和循环结构D、单行结构，多行结构和多分支结构标准答案：C知识点解析：暂无解析4、下列程序段的执行结果为()。Dimm(10),n(10)I=3ForI=1to5M(t)=tN(I)=2*I+tNexttPrintn(I);m(I)A、311B、315C、113D、153标准答案：C知识点解析：暂无解析5、下列程序段的执行结果为()。a=6Fork=1To0a=a+kNextkPrintk;aA、-16B、116C、16D、1121标准答案：C知识点解析：暂无解析6、下列各种形式的循环中，输出“*”的个数最少的循环是()。A、a=5:b=8DoPrint"*"a=a+1LoopWhilea＜bB、a=5:b=8DoPrint"*"a=a+1LoopUntila＜bC、a=5:b=8DoUntila-bprint"*"b=b+1LoopD、a=5:b=8DoUntila＞bPrint"*"a=a+1Loop标准答案：C知识点解析：暂无解析7、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Text1.TextSelectCasenCase1To20x=10Case2,4,6x=20CaseIs＜10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是()。A、10B、20C、30D、40标准答案：A知识点解析：暂无解析8、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500,500EndSub程序运行后，单击命令按钮，执行的操作为()A、命令按钮移动到距窗体左边界、上边界各500的位置B、窗体移动到距屏幕左边界、上边界各500的位置C、命令按钮向左、上方向各移动500D、窗体向左、上方向各移动500标准答案：B知识点解析：暂无解析9、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()a=12345PrintFormat$(a,"000,00")EndSub程序运行后，单击命令按钮，窗体上显示的是()。A、123.45B、12345.00C、12345D、00123.45标准答案：B知识点解析：暂无解析10、已知数组a(1To10)AsInteger,下面调用GetValue函数正确的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=1To10GetValue=GetValue+a(i)NextiEndFunctionA、S=GetValue(a(1To10))B、S=GetValue(a)C、S=GetValue(a(10))D、S=GetValuea标准答案：B知识点解析：暂无解析11、计算z的值，当x大于等于y时，z=x；否则z=y。下列语句错误的是()A、Ifx＞=yThenz=x:z=yB、Ifx＞=yThenz=xElsez=yC、z=y:Ifx＞=yThenz=xD、Ifx＜yThenz=yElsez=x标准答案：A知识点解析：暂无解析12、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是()。A、42B、1218C、1230D、46标准答案：B知识点解析：暂无解析13、设有如下程序段：x=2Fori=1To10Step2x=x+iNext运行以下程序后，x的值是()。A、26B、27C、38D、57标准答案：B知识点解析：暂无解析14、在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是()。PrivateSubForm_LoadText1.Text=""Text1.SetFocusFork=1to5t=t*kNextkText1.Text=tEndSubA、在文本框中显示120B、文本框中仍为空C、在文本框中显示1D、出错标准答案：D知识点解析：暂无解析15、在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：PrivateSubCommand1_Click()a=InputBox("请输入日期(1～31)")t="旅游景点："_&IIf(a＞0Anda＜=10，"长城:,"")_&IIf(a＞10Anda＜=20，"故宫","")_&IIf(a＞20Anda＜=31，"颐和园:,"")Text1.Text=tEndSub程序运行后，如果从键盘上输入16，则在文本框中显示的内容是()A、旅游景点：长城故宫B、旅游景点：长城颐和园C、旅游景点：颐和园D、旅游景点：故宫标准答案：D知识点解析：暂无解析16、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxtA_KeyPress(keyAsciiAsInteger)EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是()。A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键标准答案：D知识点解析：暂无解析17、在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：PrivateSubForm_Load0ShowText1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubText1Change()Text2.Text=Mid(Text1.Text,8)EndSub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是()。A、BeijingChinaB、ChinaC、BeijingD、BeijingC标准答案：B知识点解析：暂无解析18、在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果是()。optionbase1PrivateSubCommand1_Ctick()Dima(5)AsIntegerDimkAsIntegerDimtotalAsIntegera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6Fork=1To5total=total+a(k)NextkPrinttotalEndSubA、10B、15C、27D、35标准答案：C知识点解析：暂无解析19、在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox("请输入：")IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(xAsInteger)AsIntegerIfX＜10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为()。A、0B、5C、15D、无任何输出标准答案：B知识点解析：暂无解析20、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码：PrivaeSubM1_Click(IndexAsInteger)Form1.Caption="myform2"EndSub运行时，单击按钮数组中的第1个按钮，窗本标题为()。A、Form1B、M1C、myform1D、myform2标准答案：D知识点解析：暂无解析21、下面程序段执行结果为()。x=Int(Rnd()+4)SelectCasexCase5Print"excellent"Case4Print"good"Case3Print"pass"CaseElsePrint"fail"EndSelectA、excellentB、goodC、passD、fail标准答案：B知识点解析：暂无解析22、Sub过程与Function过程最根本的区别是（）。A、Sub过程名称与Function过程名称的格式不统一B、Function过程可以有参数，Sub过程不可以C、两种过程参数的传递方式不同D、Sub过程的过程名称不能有返回值，而Function过程能通过过程名称得到返回值标准答案：D知识点解析：暂无解析23、下列选项中不符合良好程序设计风格的是（）。A、源程序要文档化B、数据说明的次序要规范化C、避免滥用goto语句D、模块设计要保证高耦合、高内聚标准答案：D知识点解析：暂无解析24、函数String(n,"str")的功能是（）。A、把数值型数据转换为字符串B、返回由n个字符组成的字符串C、从字符串中取出n个字符D、从字符串中第n个字符的位置开始取子字符串标准答案：B知识点解析：暂无解析25、以下关于菜单的叙述中，错误的是（）。A、在程序运行过程中可以增加或减少菜单项B、如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C、弹出式菜单在菜单编辑器中设计D、利用控件数组可以实现菜单项的增加或减少标准答案：B知识点解析：暂无解析26、设有如下语句：str1=IntputBox("输入"，""，"练习")从键盘上输入字符串“示例”后，str1的值是（）。A、输入C、练习D、示例标准答案：D知识点解析：暂无解析27、以下（）程序段可以实施X、Y变量值的互换。A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y标准答案：C知识点解析：暂无解析28、下列表达式中，（）的运算结果与其他3个不同。A、10g(Exp(-3.5))B、Int(-3.5)+0.5C、-3.5D、Sin(30*3.14/180)标准答案：D知识点解析：暂无解析29、andomize语句的功能是（）。A、产生个(0，1)之间的随机小数B、产生一个[1，10]之间的随机整数C、产生一个(-1，1)之间的随机小数D、产生新的随机整数标准答案：D知识点解析：暂无解析30、不能脱离控件(包括窗体)而独立存在的过程是（）。A、事件过程B、通用过程C、Sub过程D、函数过程标准答案：A知识点解析：暂无解析31、使用ReDim/Preserve可以改变数组（）。A、最后一维的大小B、第一维的大小C、所有维的大小D、改变维数和所有维的大小标准答案：A知识点解析：暂无解析32、文本框控件中将Text的内容全部显示为所定义的字符的属性项是（）。A、PasswordCharB、需要编程来实现C、PasswordD、以上都不是标准答案：A知识点解析：暂无解析33、关于多行结构条件语句的执行过程，正确的是（）。A、各个条件所对应的〈语句块〉中，一定有一个〈语句块〉被执行B、找到〈条件〉为True的第一个入口，便从此开始执行其后的所有〈语句块〉C、若有多个〈条件〉为True，则它们对应的〈语句块〉都被执行D、多行选择结构中的〈语句块〉，有可能任何一个〈语句块〉都不被执行标准答案：D知识点解析：暂无解析34、执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456)，使y的值是123456的语句是（）。A、y=x$+List1.List(O)B、y=x$+List1.List(1)C、y=Val(x$)+Val(List1.List(0))D、y=Val(x$)&Val(List1.List(1))标准答案：A知识点解析：暂无解析二、公共基础填空题(本题共11题，每题1.0分，共11分。)35、以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。Functionrev(newl)AsStringb=Mid(_______,1,1)ifb=""thenrev=""elserev=rev(Mid(new1,2))+_______endifEndFunctionPrivateSubForm_Click()old="12345"PrintoldPrintrev(old)EndSub标准答案：new1b知识点解析：暂无解析36、以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。PrivateSubCommand.Click()Dimarr(1To20)Fori=1To20arr(i)=_______Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)NextiSum=0ForEachxInarrIfx＞50ThenPrintTab(20);xSum=______EndIfNextxPrintTab(20);"Sum=";SumEndSub标准答案：Int(Rnd*99+1)Sum+x知识点解析：暂无解析37、图案■表示______。标准答案：单选按钮知识点解析：暂无解析38、要选择多个不相邻的控件，按住______或SHIFT键不放，再单击要选择的控件。标准答案：Ctrl知识点解析：暂无解析39、语句Print5*5\5/5的输出结果是______。标准答案：25知识点解析：暂无解析40、表达式Fix(-12.08)+Int(-23.82)的值为______。标准答案：-36知识点解析：暂无解析41、数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为______。标准答案：物理独立性知识点解析：暂无解析42、在程序运行时，如果将框架的______属性设为False，则框架的标题呈灰色，同时框架内的所有对象均被屏蔽，不允许用户对其进行操作。标准答案：Enabled知识点解析：暂无解析43、VB6.0保存工程文件的快捷键是______。标准答案：Ctrl+S知识点解析：暂无解析44、扩展名为.bas的文件称为______。标准答案：程序模块文件知识点解析：暂无解析45、图像框控件使用系统资源比图片框______。标准答案：少知识点解析：暂无解析VB笔试模拟试卷第3套一、公共基础选择题(本题共33题，每题1.0分，共33分。)1、有如下一个Sub过程：Submlt(ParamArraynumbers())n=1ForEachxInnumbersn=n*xNextxPrintnEndSub在一个事件过程中如下调用该Sub过程：PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimdAsIntegera=1b=2c=3d=4mlta,b,c,dEndSub该程序的运行结果为()。A、12B、24C、36D、48标准答案：B知识点解析：暂无解析2、假定有如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenupopFormEndIfEndSub则以下描述中错误的是()。A、该过程的功能是弹出一个菜单B、PopForm是在菜单编辑器中定义的弹出式菜单的名称C、参数X、Y指明鼠标的当前位置D、Button=2表示按下的是鼠标左键标准答案：D知识点解析：暂无解析3、窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。PrivateSubCommand1_Clcik()Dimaa=Array(1,2,3,4,5)Fork=1To4s=s+a(k)NextkPrintsEndSubA、10B、14C、15D、120标准答案：B知识点解析：暂无解析4、设有以下循环结构Do循环体LoopWhile〈条件〉则以下叙述中错误的是()。A、若“条件”是一个为0的常数，则一次也不执行循环体B、“条件”可以是关系表达式、逻辑表达式或常数C、循环体中可以使用ExitDo语句D、如果“条件”总是为True，则不停地执行循环体标准答案：A知识点解析：暂无解析5、在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)ifn\2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是()。A、7236B、10836C、726D、1086标准答案：A知识点解析：暂无解析6、设有如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=InputBox("输入数据")Ifn＜10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=Clnt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+1c(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是()。A、数组b中的偶数被保存在数组C中B、程序运行结束时，在窗体上显示的是c数组中元素的个数C、GetArray过程的参数n是按值传送的D、如果输入的数据大于10，则窗体上不显示任何信息标准答案：C知识点解析：暂无解析7、下列关于DO…Loop语句的叙述不正确的是()。A、Do…loop语句采用逻辑表达式来控制循环体执行的次数B、当Dowhile…Loop或Dountil…Loop语句中while或until后的表达式的值为true或非零时，循环继续C、Do…Loopwhile语句与Do…Loopuntil语句都至少执行一次循环体D、Dowhile…Loop语句与Dountil…Loop语句可能不执行循环体标准答案：B知识点解析：暂无解析8、下列程序段的执行结果为()。a=1b=1ForI=1To3f=a+ba=bb=fPrintf：NextIA、236B、235C、234D、228标准答案：B知识点解析：暂无解析9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是()A、PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelStart=Len(Text1.text)EndSubB、PrivateSubText1_LostFocus()Text1.SelStart=0Text1.SelStart=Len(Text1.text)EndsubC、PrivateSubText1_Change()Text1.SelStart=0Text1.SelStart=Len(Text1.text)EndsubD、PrivateSubText1_SetFocus()Text1.SelStart=0Text1.SelStart=Len(Text1.text)Endsub标准答案：A知识点解析：暂无解析10、有如下程序：PrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter＜20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后，单击窗体，输出结果为()。A、150B、20-1C、10TrueD、10False标准答案：D知识点解析：暂无解析11、下列程序段()能够正确实现条件：如果X＜Y则A=15，否则A=-15。A、IfX＜YThenA=15A=-15PrinAB、IfX＜YThenA=15:PrintAA=-15:PrintAC、IfX＜YThenA=1.5:PrintAElseA=-15:PrintAEndIfD、IfX＜YThenA=15ElseA=-15PrintAEndIf标准答案：C知识点解析：暂无解析12、编写如下事件过程：PrivateSubForm-MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrint"Hello"EndIfEndSub程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下()操作。A、同时按下Shift键和鼠标左键B、同时按下Shift键和鼠标右键C、同时按下Ctrl、Alt键和鼠标左键D、同时按下Ctrl、Alt键和鼠标右键标准答案：D知识点解析：暂无解析13、阅读下面的程序段：Fori=1To3Forj=1ToiFork=jTo4a=a+1NextkNextjNexti执行上面的三重循环后，a的值为()。A、9B、14C、20D、21标准答案：C知识点解析：暂无解析14、下列选项中不属于结构化程序设计方法的是（）。A、自顶向下B、逐步求精C、模块化D、可复用标准答案：D知识点解析：暂无解析15、在文本框中，当用户键入一个字符时，能同时引发的事件的是（）。A、KeyPress和ClickB、KeyPress和LostFocusC、KeyPress和ChangeD、Change和LostFocus标准答案：C知识点解析：暂无解析16、若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。A、ValueB、CancelC、DefaultD、Enabled标准答案：C知识点解析：暂无解析17、如果要在程序代码中为图片框动态加载和清除图像，可以利用（）函数。A、InputBoxB、InputC、LoadPictureD、PaintPicture标准答案：C知识点解析：暂无解析18、以下描述正确的是（）。A、过程的定义可以嵌套，但过程的调用不能嵌套B、过程的定义不可以嵌套，但过程的调用可以嵌套C、过程的定义和过程的调用均可以嵌套D、过程的定义和过程的调用均不能嵌套标准答案：B知识点解析：暂无解析19、VisualBasic根据计算机访问文件的方式将文件分成三类，其中不包括（）。A、顺序文件B、Unix文件C、二进制文件D、随机文件标准答案：B知识点解析：暂无解析20、以下能够触发文本框Change事件的操作是（）。A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容标准答案：D知识点解析：暂无解析21、在用通用对话框控件建立”打开”或”保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是（）。A、text(.txt)|(*.txt)B、文本文件(.txt)|(.txt)C、text(.txt)FFFFF||(*.txt)D、text(.txt)(*.text)标准答案：A知识点解析：暂无解析22、为启动定时器控件，需要设置定时器的属性是（）。A、NameB、IntervalC、LeftD、Top标准答案：B知识点解析：暂无解析23、已知变量X、Y为整型，且x=4，y=12，S为字符串型，且s=a，1blok为标签控件，下列赋值语句合法的是（）。A、x=1blok.CaptionB、Lblok.caption=Str(x)C、x*3=yD、Y=x*s标准答案：B知识点解析：暂无解析24、以下叙述中错误的是（）。A、一个工程可以包括多种类型的文件B、VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C、程序运行后，在内存中只能驻留一个窗体D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样标准答案：C知识点解析：暂无解析25、在窗体模块的通用声明段中声明变量时，不能使用（）关键字。A、DimB、PublicC、PrivateD、Static标准答案：D知识点解析：暂无解析26、以下关于多重窗体程序的叙述中，错误的是（）A、用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B、在多重窗体程序中，各窗体的菜单是彼此独立的C、在多重窗体程序中，可以根据需要指定启动窗体D、对于多重窗体程序，需要单独保存每个窗体标准答案：A知识点解析：暂无解析27、要使控件与框架捆绑在一起，以下操作正确的是（）。A、要在窗体不同位置上分别画一框架和控件，再将控件拖到框架上B、在窗体上画好控件，再画框架将控件框起来C、在窗体上画好框架，再在框架中画控件D、在窗体上画好框架，再双击工具箱中的控件标准答案：C知识点解析：暂无解析28、下面4个语句中，能打印显示40*90字样的是（）。A、Print"40*90"B、Print40*90C、PrintChr$(40)+"*"+CHr$(90)D、PrintVal("40")*Val("90")标准答案：A知识点解析：暂无解析29、在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板。A、Form_ClickB、Form_LoadC、Form1_ClickD、Foma1_Load标准答案：B知识点解析：暂无解析30、程序设计语言的基本成分是数据成分、运算成分、控制成分和（）。A、对象成分B、变量成分C、语句成分D、传输成分标准答案：D知识点解析：暂无解析31、下列各选项说法错误的一项是（）。A、文件对话框可分为两种，即打开(Open)文件对话框和保存(SaveAs)文件对话框B、通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题C、打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D、DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性标准答案：D知识点解析：暂无解析32、下面关于多重窗体的叙述中，正确的是（）。A、作为启动对象的Main子过程只能放在窗体模块中B、如果启动对象的Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一个窗体C、没有启动窗体，程序不能运行D、以上都不对标准答案：B知识点解析：暂无解析33、应用程序设计完成后，应将程序保存，保存的过程是（）。A、只保存窗体文件即可B、只保存工程文件即可C、先保存工程文件，之后还要保存窗体文件D、先保存窗体文件(或标准模块文件)，之后还要保存工程文件标准答案：D知识点解析：暂无解析二、公共基础填空题(本题共13题，每题1.0分，共13分。)34、下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()DimaAsInteger，nAsInteger，CoutAsIntegerDimSnAsLong，TnAsLongCout=1Sn=0Tn=0a=InputBox("请输入a的值：")n=InputBox("请输入n的值!")DOTn=Tn*10+aSn=Sn+TnCout=Cout+1______Debug.Printa,n,SnEndSub标准答案：Loopwhilecout＜=n或LoopUntilCout=n+1知识点解析：a和n的值必须已知，表达式才能计算。但程序中没有给变量n赋值的语句，可见第一个空白行应该填写给n赋值的语句。Do循环应该有与之相对应的终端语句，可见第二个空白行应填写Do循环的终端语句，即While语句，同时要构造出控制循环的＜条件＞。程序中有四个赋值语句，其中有一个计数语句Cout=Cout+1，可见控制循环次数的变量应是Cout。35、用户可以用______语句定义自己的数据类型。标准答案：Type知识点解析：用户可以用Type语句来定义数据类型，格式是：Type数据类型名数据类型元素名As类型名数据类型元素名As类型名……EndType其中“数据类型名”是要定义的数据类型的名字，其命名规则和变量的命名规则相同；“数据类型元素名”也遵守相同的规则，且不能是数组名；“类型名”可以是任何基本数据类型，也可以是用户定义的类型。36、下列程序运行后的输出结果是______。PrivateSubf(k,s)s=1Forj=1TokS=S*jNextEndSubPrivateSubCommand1_Click()Sum=0Fori=1To3Callf(i,s)Sum=Sum+sNextPrintSumEndSub标准答案：9知识点解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程