2023年大学v课程题库全集

ｖb单选、操作部分一、单项选择题1、与传统的程序设计语言相比，VｉｓuａlBasic最突出的特点是(Ｃ)。A、结构化程序设计 ﻩﻩＢ、程序开发环境C、事件驱动编程机制 ﻩ D、程序调试技术2、赋值语句:ａ=12３&ＭID("1２3456"，3,2）执行后,a变量中的值是(C)。A、＂12334"ﻩﻩﻩﻩB、12３ ﻩﻩC、1233４ ﻩﻩＤ、157３、保存一个工程至少应保存两个文献，这两个文献分别是(B）。A、文本文献和工程文献ﻩ B、窗体文献和工程文献Ｃ、窗体文献和标准模块文献 D、类模块文献和工程文献４、以下能在窗体Ｆorm1的标题栏中显示"VisualBａsic窗体"的语句是(C)。A、Form1.Name＝"VisｕaｌBasｉc窗体＂B、Fｏrm1.Title=＂ＶisuaｌＢasｉc窗体"C、Forｍ1.Captioｎ＝＂ＶisｕａlBａｓｉｃ窗体"Ｄ、Foｒm1.Texｔ="VisuａlBasic窗体＂５、为了装入一个VisuａｌBａｓic应用程序,应当(Ｄ）A、只装入窗体文献(.ｆrm）Ｂ、只装入工程文献(.vｂp)C、分别装入工程文献和标准模块文献（.bas)D、分别装入工程文献、窗体文献和标准模块文献６、赋给一个数组的数据类型一定要(A)。A、相同ﻩ Ｂ、不相同ﻩ ﻩC、两可 ﻩ D、都不对7、下面对的的赋值语句是(C）。Ａ、x+y=30ﻩﻩＢ、ｙ=π*r*r Ｃ、y=x+３０ﻩ D、3ｙ＝x8、VisuａlBasic6.0集成环境的主窗口中不涉及(C)。Ａ、标题栏 ﻩB、菜单栏 Ｃ、状态栏 D、工具栏9、以下叙述中错误的是(C)。Ａ、ViｓualBasic是事件驱动型可视化编程工具B、ＶｉsｕａｌBａsｉｃ应用程序不具有明显的开始和结束语句C、VisｕalBaｓic工具箱中的所有控件都具有宽度（Width)和高度(Heiｇｈt)属性D、VisｕａｌBasic中控件的某些属性只能在运营时设立10、要使Pｒint方法在Form＿Load事件中起作用,要对窗体的(Ｃ)属性进行设立。A、Backｃolorﻩ ﻩ Ｂ、ForeColorC、AutoRedrawﻩﻩ D、BackStyle11、若要使命令按钮不可操作,要对(A)属性进行设制。A、Enaｂled B、VｉsibleＣ、BackColorﻩﻩ ﻩＤ、Ｃaｐtiｏn12、以下叙述中错误的是(B）。A、一个工程中可以包含多个窗体文献B、在一个窗体文献中用Pｒivaｔe定义的通用过程能被其他窗体调用Ｃ、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文献。D、一个工程默认的启动对象是Fｏrm1１3、Cls方法可以清除窗体或图片框中的(C）内容。A、在设计阶段使用Piｃtuｒe设立的背景位图B、在设计阶段放置的控件C、在运营阶段产生的图形和文字D、以上均可１４、设x=3，ｙ=５，则以下表达式值为真的是(C)A、(-3+5>ｘ)Anｄ(y>０)ﻩﻩＢ、(x<0)Eqv(ｙ>0）C、（ｘ>y)Ｏr（y>0)ﻩ ﻩﻩＤ、ｘ＞=yＡndy＞1015、为了防止用户随意将光标置于控件之上，应将进行(D)设立。A、将控件的ＴabＩndex属性设立为0B、将控件的TabＳtｏp属性设立为TrueＣ、将控件的TａbＳtop属性设立为FａlseD、将控件的Enaｂlｅd属性设立为Faｌse1６、要判断在文本框是否按了Enter键，应在文本框的（Ｄ）事件中判断。A、ChaｎgeﻩﻩB、ＫｅyＤoｗnﻩﻩC、Cｌicｋﻩ D、ＫeｙPress17、以下关于焦点的叙述中,错误的是(Ａ)。A、假如文本框的TabSｔop属性为Faｌse，则不能接受从键盘上输入的数据B、当文本框失去焦点时,触发LｏstFocus事件Ｃ、当文本框的Eｎａbled属性为Falsｅ时,其Tab顺序不起作用D、可以用ＴａｂIｎdex属性改变Tab顺序18、假如文本框的Enabｌeｄ属性设为Falｓe，则（Ａ)。A、文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上。B、文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容。C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。Ｄ、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。１9、程序运营后，在窗体上单击鼠标,此时窗体不会接受到的事件是(C）。Ａ、MousｅDｏｗnﻩﻩ Ｂ、MouseUpＣ、Lｏaｄ ﻩﻩﻩ D、Cｌｉck20、图像框有一个属性，可以自动调整图形的大小,以适应图像框的尺寸，这个属性是(B）。A、AuｔｏsizｅﻩﻩﻩﻩB、ＳｔretchC、ＡutoReｄｒawﻩﻩ D、Ａｐpearaｎce21、为了防止用户随意将光标置于控件之上，应设立的属性是(Ｄ)。A、将控件的TabIｎｄｅx属性设立为0B、将控件的TabStｏp属性设立为TｒueC、将控件的ＴabStop属性设立为FalseD、将控件的Ｅｎabled属性设立为Fａlsｅ22、不管何控件,共同具有的是(B)属性。Ａ、Texｔ ﻩ ﻩﻩB、NamｅC、FoｒeCｏｌｏｒ ﻩ ﻩD、Cａptiｏn23、以下关于窗体的描述中,错误的是（A)。A、执行UnloadForm1语句后，窗体Fｏrm1消失,但仍在内存中Ｂ、窗体的Loaｄ事件在加载窗体时发生C、当窗体的Ｅnａｂlｅd属性为Fａlse时,通过鼠标和键盘对窗体的操作都被严禁Ｄ、窗体的Height、Wiｄｔｈ属性用于设立窗体的高和宽2４、当运营程序时，系统自动执行窗体的(A）事件过程。A、Ｌoadﻩﻩﻩ B、ＣlｉcｋＣ、Uｎlｏaｄ ﻩ ﻩﻩD、GotFｏｃus25、窗体设计器是用来设计（B)。A、应用程序的代码段 B、应用程序的界面Ｃ、对象的属性ﻩﻩﻩﻩＤ、对象的事件26、VisualBasｉc是一种面向对象的可视化程序设计语言，采用了(A)的编程机制。A、事件驱动ﻩ ﻩﻩﻩB、按过程顺序执行C、从主程序开始执行 ﻩＤ、按模块顺序执行27、拟定一个控件在窗体上的位置的属性是(D)。A、Wiｄth或Height ﻩ B、Ｗidth和HeighｔＣ、Ｔop或Ｌeftﻩ ﻩﻩD、Ｔｏp和Ｌeft２8、假如要改变窗体的标题，则需要设立的属性是(A）。A、Capｔioｎﻩﻩﻩ ﻩＢ、ＮａmｅC、ＢaｃｋCｏlor ﻩﻩ D、BｏrderStyle２9、以下叙述中错误的是(Ｃ)。Ａ、打开一个工程文献时，系统自动装入与该工程有关的窗体、标准模块等文献Ｂ、保存ViｓｕalBasiｃ程序时，应分别保存窗体文献及工程文献Ｃ、VｉsualＢaｓic应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发３0、以下叙述中错误的是(B)。A、双击鼠标可以触发DblCｌicｋ事件Ｂ、窗体或控件的事件的名称可以由编程人员拟定C、移动鼠标时,会触发MoｕseＭoｖｅ事件Ｄ、控件的名称可以由编程人员设定31、在VisuａｌBasiｃ中最基本的对象是(C)。它是应用程序的基石,是其他控件的容器。A、文本框ﻩﻩﻩ B、命令按钮C、窗体 ﻩ ﻩ ﻩD、标签32、以下叙述中对的的是(Ａ)。A、窗体的Name属性指定窗体的名称,用来标记一个窗体B、窗体的Naｍe属性的值是显示在窗体标题栏中的文本Ｃ、可以在运营期间改变对象的Namｅ属性的值D、对象的Naｍe属性值可认为空3３、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(C）。A、工程资源管理器窗口ﻩ ﻩﻩ B、工具箱窗口C、代码窗口ﻩ ﻩ ﻩﻩＤ、属性窗口３4、VisuａlBasic是一种面向对象的可视化程序设计语言,采用了的编程机制是（A)。A、事件驱动ﻩ ﻩ B、按过程顺序执行C、从主程序开始执行 ﻩﻩ Ｄ、按模块顺序执行35、用来设立粗体字的属性是(C)。A、FontＩｔalicﻩ ﻩﻩ ﻩB、FoｎtNａmeC、ＦontBｏｌｄﻩﻩﻩﻩﻩ ﻩD、ＦontＳiｚe3６、假如一个工程具有多个窗体及标准模块，则以下叙述中错误的是（A)。Ａ、假如工程中具有SuｂＭain过程,则程序一定一方面执行该过程B、不能把标准模块设立为启动模块C、用Ｈide方法只是隐藏一个窗体,不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体３7、为了把焦点移到文本框，所使用的方法是(A)。A、SeｔFocus ﻩ ﻩ B、VisiｂｌeC、Refｒesｈﻩ ﻩﻩ D、GetＦocuｓ38、IＮT(100*RND）产生的随机整数的闭区间是（A)。A、[0,99]ﻩ Ｂ、［1，100]C、[0,10０］ﻩ ﻩﻩﻩD、[１，９９]3９、假如要在命令按钮上显示图形文献,应设立命令按钮的（Ｂ）。A、Stylｅ属性和Graphics属性B、Style属性和Pｉcture属性C、Capｔioｎ属性ﻩ ﻩ ﻩD、Gｒaphｉｃs属性40、若要使命令按钮不可操作,要对(A)属性进行设制。A、Ｅｎaｂｌeｄ ﻩ B、VisibleC、BａｃkColor ﻩﻩﻩﻩＤ、Caｐtion41、假定窗体的名称为Forｍ1,则把窗体的标题设立为“VB_Ｔest”的语句为(B)。A、Ｆorｍ１=“VB＿Tesｔ”ﻩ B、Foｒm1．Ｃａpｔｉon=“ＶB_Ｔest”C、Ｆｏｒｍ1．Tｅxt＝“VＢ_Ｔeｓt”ﻩD、Fｏrm1．ｎame=“ＶＢ_Ｔest”４2、以下叙述中错误的是(Ａ)。A、在工程资源管理器窗口中只能包含一个工程文献及属于该工程的其他文献B、以．BAS为扩展名的文献是标准模块文献C、窗体文献包含该窗体及其控件的属性D、一个工程中可以具有多个标准模块文献4３、要使文本框获得输入焦点，则应采用文本框控件的哪个方法(A)。A、GotＦｏｃus ﻩ B、ＬoｓｔFocｕsＣ、KeyPｒessﻩ D、SetＦocus4４、以下不能在“工程资源管理器”窗口中列出的文献类型是(B）。A、.basﻩﻩB、．ｒesﻩﻩﻩＣ、．fｒｍ ﻩ D、．oｃx４5、刚建立一个新的标准EXＥ工程后,不在工具箱中出现的控件是(C)。A、单选按钮ﻩﻩB、图片框 C、通用对话框ﻩﻩ D、文本框４6、以下叙述中错误的是(Ｂ)。Ａ、双击鼠标可以触发DblＣlicｋ事件B、窗体或控件的事件的名称可以由编程人员拟定C、移动鼠标时,会触发MoｕseMoｖｅ事件D、控件的名称可以由编程人员设定４7、以下可以触发文本框Chanｇe事件的操作是(D）。A、文本框失去焦点 ﻩ B、文本框获得焦点C、设立文本框的焦点ﻩ D、改变文本框的内容48、以下叙述中错误的是(C)。A、一个工程中只能有一个ＳubMain过程B、窗体的Sｈow方法的作用是将指定的窗体装入内存并显示该窗体Ｃ、窗体的Hide方法和Unload方法的作用完全相同D、若工程文献中有多个窗体,可以根据需要指定一个窗体为启动窗体49、语句PrintAbs(-6^２)+Iｎt（-６^2)的输出结果是(A）。A、0ﻩﻩ B、1ﻩﻩﻩＣ、－1 ﻩ D、-7250、假如将布尔常量值TRＵE赋值给一个整型变量，则整型变量的值为（B)。A、０ﻩﻩ Ｂ、-1 ﻩﻩC、ＴRUEﻩﻩﻩ D、FＡLSE51、函数Stｒing（n,"str")的功能是（Ｂ)。A、把数值型数据转换为字符串Ｂ、返回由n个字符组成的字符串Ｃ、从字符串中取出ｎ个字符D、从字符串中第n个字符的位置开始取子字符串52、语句PrｉｎｔFoｒmaｔ(“HelloWorｌd”,“>”)的输出结果是（C)。Ａ、hｅｌlｏＷOＲLD ﻩＢ、heｌloworｌdC、HELLOWOＲLDﻩ ﻩﻩD、HELＬOｗorlｄ53、声明符号常量应当用关键字(B)。Ａ、Sｔａtic ﻩ B、Cｏnsｔﻩ Ｃ、Private ﻩﻩD、Vａｒianｔ54、要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句（Ｂ)。Ａ、OptionBase0ﻩﻩ B、OptiｏnExplｉcitC、ＯｐtiｏnBaｓｅ１ﻩﻩﻩﻩD、OｐtｉｏｎCompａre５５、下列可作为ＶｉｓｕalBａsiｃ变量名的是(D)。Ａ、A＃AﻩﻩB、4Ａﻩ ﻩＣ、?xyﻩ D、ｃoｎstA56、设a=10,b=5，ｃ=1,执行语句Prｉntａ>ｂ>c后,窗体上显示的是(B)。A、True ﻩB、Ｆａｌse C、１ﻩ ﻩ Ｄ、犯错信息57、执行x$=Sｔｒing(６，"１2４ａｂc")后,x的值是(B）。A、124ａbｃ ﻩ B、11１111 C、１24ﻩ ﻩＤ、ａbc58、设a＝6,则执行x=IIf(ａ>５,-1,０)后,x的值为(D)A、５ﻩ B、6 ﻩﻩﻩC、0ﻩﻩﻩ D、-159、执行语句:ｃ$=“Gｌad”&Ｍｉd$（“Ｎiceｔomeetyou”,5,3)，则变量c$的值为（C）。Ａ、Nｉcetomeｅtyou B、ＧlａdNicｅｔoｍeetyｏuC、Gladtｏ ﻩﻩ ﻩD、Glad60、下面(D）是合法的字符常数。A、ABC$ﻩﻩB、＂ＡＢC" ﻩC、'ABC'ﻩ D、ＡＢC61、对于语句Ifｘ=１Ｔhｅnｙ=1,下列说法对的的是（Ｃ)。A、ｘ=1和y=1均为赋值语句B、ｘ=1和y=１均为关系表达式C、x＝1为关系表达式,y＝１为赋值语句D、x=1为赋值语句，y=1为关系表达式62、设有声明：DimＸAsＩnｔeger,假如Sgn(X)的值为-1,则X的值是（Ｄ)。Ａ、任何整数ﻩ ﻩB、0ﻩﻩC、等于0的整数 D、小于0的数６3、在一行内写多条语句时，每个语句之间用（Ｂ)符号分隔。A、，ﻩ B、： ﻩ ﻩＣ、、ﻩﻩﻩﻩﻩD、;６4、从键盘上输入两个字符串,分别保存在变量sｔr1、ｓtｒ2中。拟定第二个字符串在第一个字符串中起始位置的函数是（D)。A、Ｌeftﻩ B、Midﻩ C、String ﻩＤ、Instｒ65、设S=＂中华人民共和国",表达式Leｆt(Ｓ，1）+Ｒighｔ(Ｓ,1）+Miｄ(S,3,2）的值为（Ｂ）A、"中华民国"ﻩﻩ ﻩ B、"中国人民"Ｃ、"中共人民" ﻩﻩﻩ D、"人民共和"66、下列可作为VisuａlＢasic中的变量名的是(A)。A、Filename ﻩB、A(A+B) ﻩC、254DﻩﻩﻩＤ、Print67、下面(A）是合法的变量名。A、X＿yzﻩﻩ B、12３abc ﻩC、Inｔeｇeｒﻩ D、X-Ｙ6８、以下变量命名非法的是（C)。A、xyz123ﻩ Ｂ、pｒiｎtaa C、bｏｏlean Ｄ、Bｅrnald6９、设有变量声明:DiｍTeｓtDateAsDａte,为变量ＴesｔDate对的赋值的表达方式是(A)。A、TexｔＤaｔｅ=＃１/1/20２3#B、TestDate=#“1/1/2023C、TeｘｔDatｅ=date(“1/1/2０２3D、TestDate=Foｒmat（“m/d／yy”,“1/1/20237０、设ａ＝2,b=3,c=4,d=5，表达式a＞bＡNＤc<=d的值是(Ｂ）。A、TｒueﻩﻩＢ、Faｌse Ｃ、-1 ﻩD、１71、表达式6*8Moｄ9的值是(B)。A、4 ﻩﻩＢ、３ﻩ C、６ﻩﻩﻩD、７72、假设变量bool_ｘ是一个布尔型（逻辑型)的变量，则下面对的的赋值语句是(Ｄ)Ａ、bool_x＝"Falｓe"ﻩ ﻩB、bool_ｘ=.Falｓe.C、bool＿ｘ=#Fａｌsｅ＃ﻩ ﻩD、boｏl_x＝False73、设a=“ＶiｓuａlBasic”，下面使b＝“Bａsｉｃ”的语句是(B)。A、b＝Leｆｔ（ａ,8,12)ﻩﻩﻩﻩＢ、b=Ｍｉｄ(a，８,5）C、b＝Ｒigｔh(a，５，5) ﻩD、ｂ＝Leｆt(a,8，５)７4、语句PrintＦoｒmａt$(３2548.5,“###,###.###”)的输出结果是（B)。A、32548．５ﻩﻩB、3２,5４８.5 Ｃ、03２,548.50ﻩ D、３２,５４8.50７5、以下声明语句中错误的是（D）。A、Cｏｎstvar1=123ﻩﻩ B、Dimｖar2='AＢC'C、Diｍx_ｙ＿ｚ% ﻩﻩ D、Sｔａticvａr3ＡsIｎtｅｇer76、可以同时删除字符串前导和尾部空白的函数是（Ｃ)。A、Ltｒiｍ Ｂ、Rｔrim ﻩＣ、Trim ﻩﻩＤ、Ｍｉｄ７7、下列可为合法变量名的是(D)。A、IｎtｅgｅrB、False ﻩC、pubｌiｃ ﻩD、ｔhankｓgiｖiｎg78、变量未赋值时,数值型变量的值为（A)。A、0ﻩﻩ B、空 ﻩﻩ Ｃ、1ﻩﻩﻩ D、无任何值7９、表达式16／４－2^5*８／4Mod5＼2的值为(B）。A、14ﻩ ﻩB、４ﻩﻩ C、20 ﻩﻩD、2确的80、下面Iｆ语句记录满足性别为男、职称为副专家以上、年龄小于4０岁条件的人数，不正语句是（D）。Ａ、Ｉfseｘ=＂男"Aｎdａge＜４0And（duｔy=＂专家＂Oｒｄuty="副专家")Thenｎ=ｎ+1Ｂ、Ifsex="男"Andage＜４0AnｄInＳtr(duty,"专家")>0Ｔｈenｎ=ｎ+1C、Ifsex="男＂Andage＜４0AｎdRigｈt(duty,2)="专家"Thenｎ=n+1D、Ifsex="男"Ａnｄａge<４0Andｄuty="专家"Aｎddｕｔｙ="副专家"Thｅｎn=n+1８1、设a=3，b=5,则以下表达式值为真的是(B）。Ａ、a>=bAnｄb>１0B、(a>b)Oｒ（b>０)Ｃ、(a＜０)ｏr(b<0)D、(-３+５>ａ)And（b>0）82、执行语句a=InputBox("Ｔoday＂，"Tｏmｏrroｗ","Ｙestｅrday",,，"Ｄａyｂefｏｒeyesterday",5）,将显示一个输入对话框,在对话框的输入区中显示的信息是(Ａ）。A、TodayB、TomorrowC、YeｓｔerdayD、DａｙbeforeYesterｄａｙ83、VB提供了结构化程序设计的３种基本结构,这3种基本结构是(B)。A、递归结构,分支结构，循环结构B、选择结构,过程结构,顺序结构C、过程结构,输入、输出结构,转向结构D、分支结构,循环结构，顺序结构8４、下面If语句记录满足性别为男、职称为副专家以上、年龄小于40岁条件的人数，不对的的语句是（D)。Ａ、Iｆｓｅx=“男”Ａnｄａｇe＜40AndInＳｔr（dｕｔy,“专家”)>0Thenn=n+1B、Ifsex=“男”Anｄａge＜4０Ａnd(dｕty＝“专家”Ｏrduty=“副专家”）Thenｎ=n＋1C、Iｆｓeｘ=“男”Aｎdａge<40AndＲｉght（duty,2)=“专家”Ｔhｅｎn=n+１D、Iｆsex=“男”Andage＜40Andｄuty=“专家”Andｄｕtｙ=“副专家”Thenn=n＋185、当语句w=IIf(４>1０,”Reｄ”,“Greeｎ”）执行后,变量w中的值是（C)。A、ＮｕｌlＢ、“Rｅd”Ｃ、“Gｒeen”D、－１86、赋值语句：a=123＋MID(“123456”，３,2)执行后，ａ变量中的值是（Ａ、“１2334B、１2３C、1２334Ｄ、15787、设有语句x=IｎpｕｔBox(“AAAA”,“BBBB”,“”),程序运营后，所产生的对话框的标题应为(Ｃ)。A、ＡAAAB、空C、BBBＢＤ、犯错，不能产生对话框8８、下面对的的赋值语句是（C）。Ａ、ｘ+y=30B、y=π*ｒ*rC、y=ｘ+30D、3y＝x8９、ＶB提供了结构化程序设计的三种基本结构,三种基本结构是(D)。Ａ、递归结构、选择结构、循环结构Ｂ、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构Ｄ、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数,不对的的是（D)。A、Ｍax=ＩＩf(x＞y,x,y)B、Ifｘ＞yThenＭax＝xＥlseＭax=ｙC、Ｍax=ｘ：Ifｙ＞＝ｘTheｎMax=yＤ、Ifｙ＞ｘＴhenMax=y:Max=x91、下列程序段:ＤimxIfxThｅnPrｉntxElsePrintx+１运营后，显示的结果是（A）。A、1B、０Ｃ、-1D、犯错９2、以下不属于vb的三种基本结构的是(C）?Ａ、顺序结构Ｂ、选择结构C、递归结构D、循环结构93、语句Ifx=1Tｈｅｎy=1,下列说法对的的是（C）。Ａ、x＝1和y=1均为赋值语句B、x＝1和ｙ=1均为关系表达式C、ｘ＝1为关系表达式,y=1为赋值语句D、x=1为赋值语句,ｙ=1为关系表达式9４、赋值语句:ａ=１23&MID(“12３4５６”A、“１2３34Ｂ、1２3C、12334D、157９5、下面程序段显示的结果是（A)。Ｄimｘx=Int(Rnd）+5SelｅctCasｅxCase5“优秀”Casｅ4Print“良好”Case3Prｉnt“通过”ＣasｅElsePｒinｔ“不通过”ＥnｄSelｅctA、优秀B、良好Ｃ、通过D、不通过9６、为了给x,y,z这3个变量赋初值1，下面对的的赋值语句是（A)。A、ｘ=1：y=1:z＝1B、x=１，y＝１,z=1Ｃ、ｘ=ｙ=ｚ＝1D、xｙｚ=197、下列语句对的的是(C）A、IfA≠BThenＰｒｉnt"A不等于B"B、IｆA<>BThenPrｉntfA不等于BＣ、ＩｆA＜>ＢＴhenＰriｎt"A不等于B"D、IｆA≠BPrint＂Ａ不等于B"98、设有语句x$=ＩnputBox(“输入数值”,“０”，“示例”),程序运营后,假如从键盘上输入数A、变量X的值是数值1０B、在IｎputBｏx对话框标题栏中显示的是“示例”C、0是默认值Ｄ、变量Ｘ的值是字符串“10９９、运营下列程序段后,显示的结果为(B）Ｊ１=４：Ｊ2＝9ＩfＪ1<J2ThenPrintＪ2ElsePrintJ１A、４B、9C、13Ｄ、4910０、IｎpuｔBｏx函数返回值的类型为(B）。A、数值B、字符串Ｃ、变体D、数值或字符串（视输入的数据而定）101、一个数组说明为Dima（0ｔｏ5，1to5)AｓInteger，则该数组共有(Ｃ）个元素。A、25B、36Ｃ、3０D、不拟定10２、数组声明语句Dｉma(2to3，-2to２,3tｏ5）中,数组a包含元素的个数为（C)。Ａ、120B、７５Ｃ、3０Ｄ、13103、假如在上题语句前加入OｐtionＢａse1，则该数组共有（D)个元素。Ａ、15B、１6C、１3D、不拟定104、假如有声明Ｄiｍa(１５)AsIntegｅr，则该数组共有（Ｂ）个元素。A、1５B、１6C、13Ｄ、不拟定105、一个数组说明为Dima(５,1to５)AｓInteｇer，则该数组共有（Ｃ）个元素。A、25B、3６C、30Ｄ、不拟定10６、在VB中,默认的数组下标的下界从0开始，要想在通用声明段界定下界，则应使用（A）。A、OｐtｉonＢaｓeB、OptionExpｌicitC、ExpｌiciｔD、LoｗBase107、如下数组声明语句，对的的是(B)。Ａ、Ｄima[3,4]asＩntegeｒＢ、Dima(3,4)asIｎｔeｇeｒC、Dima（n,ｎ）asIntegerＤ、Diｍａ[3］[4）asIｎｔeger１08、赋给一个数组的数据的值的类型一定要(Ａ）。Ａ、相同B、不相同C、两可Ｄ、都不对1０9、数组的下标可取的变量类型是（A)。Ａ、数值型B、字符型Ｃ、日期型Ｄ、可变型１10、数组声明语句Ｄima（０to３,-２tｏ2,0to５)中，数组ａ包含元素的个数为(Ａ)。A、１20Ｂ、７5C、6０D、13111、假定有如下的Sub过程：SuｂS（xAsSingle,yAsSingle)t=xｘ=t／yｙ＝tModｙＥnｄSub在窗体上添加一个命令按钮,然后编写如下事件过程:ＰｒｉvaｔｅSubComｍanｄ1_Cｌiｃｋ()DimaAsSingleDｉｍbＡsＳinglea=5:b=4Ｓa,ｂPrｉnｔａ,bＥnｄSuｂ程序运营时，单击命令按钮得到的结果(Ｄ)。A、5４Ｂ、１1Ｃ、1.254D、1.２5１112、用以下方式声明的变量，(B）可以在整个程序中通用?A、在窗体模块用Dim进行声明B、在窗体模块用Pｕblｉc进行声明C、在窗体模块用Prｉｖate进行声明D、在窗体模块用Sｔatｉｃ进行声明11３、在窗体上添加一个命令按钮和三个标签,编写事件过程：PrivateｘAsＩntegerＰrivaｔeSubCｏmmａnd1_Click(）SｔatiｃyAsInteｇｅrDimzＡsIntegerN=1０:ｚ=N+z:ｙ＝y+z:ｘ=x+zLaｂｅl1.Captiｏｎ=ｘLabel2.Capｔion=yLabel３．Caｐtｉon=zEｎdSuｂ程序运营后，连续三次单击命令按钮，则三个标签中显示的内容分别是(A)。A、１0１010Ｂ、３030３0C、3０3010D、1０3030114、以下叙述中错误的是(D)。A、假如过程被定义为Ｓtatiｃ类型,则该过程中的局部变量都是Sｔaｔiｃ类型B、Suｂ过程中不能嵌套定义Ｓub过程C、Sub过程中可以嵌套调用Ｓub过程D、事件过程可以像通用过程同样由用户定义过程名1１5、在在窗体上添加一个命令按钮Comｍand１和一个文本框Teｘt１，然后编写如下事件过程：PriｖaｔeSubCｏmmａｎd1＿Cｌｉck()DimxAsInｔｅger，ｙAｓInｔeger，zAsIntegerx=5ｙ=7z=0Tｅxt1.Ｔeｘt=""Cａｌlp1(ｘ,y,z)Text1.Text=Stｒ（z)EndSubPｒｉvａteSubp１(ＢyVaｌaAsIｎteger,ＢyValbAｓInteger，cAｓIｎteｇer)ｃ=a+bEnｄSub程序运营后，单击命令按钮得到的结果是（A）。A、12B、0C、Ｓｔｒ(z)D、没有显示结果１1６、假如在程序中要将ａ定义为静态变量，且为整型数,则应使用的语句是:（B）A、RｅdｉmaＡｓIntegeｒB、StaticaAsＩｎｔegerC、PubｌｉcaAｓIｎtｅgｅrD、DiｍａAsInteｇeｒ11７、以下程序的运营结果是（C）Ｓubs１(ｂ（)ＡsIｎｔegｅr)Foｒi＝1To4b（i）＝2*iＮextiEndＳubPriｖateSubCoｍmand1_Cliｃk(）Dｉｍａ(１To4）AsIntｅgerＦorｉ＝1To4 a(i)=i＋５Nextis1a()Fori=1Tｏ4Pｒinta（i)NextiＥndＳuｂA、12141618Ｂ、６78９C、2468Ｄ、１２３４１18、以下程序的运营结果是（D）。Fuｎｃtionf（ｍAsInｔeger)ＡsIｎtｅｇｅrb＝1StatｉccAｓIｎtegeｒb＝b+1c=c+1f=m＊ｂ*cEndFuncｔｉonPrivateＳubＣｏmmanｄ１＿Cｌicｋ()DimaAsIntegera＝2Sum=０Fｏri＝1To3Ｓum=Ｓｕｍ+f(a)ＮextiPrintＳumEnｄSubＡ、１2Ｂ、2８C、32D、2４１19、下列程序输出结果(C）。PrｉvａteSubCoｍmand1_Cｌick()Foｒi＝1To１0GetVａｌueiＮｅｘｔｉPｒｉntGetVａｌue(ｉ）ＥnｄSubPriｖateＦｕnctionGetValｕe(ByValaAｓIntegeｒ)SｔatｉcSAsIｎtｅgeｒS＝S+aＧetVaｌue=SＥndFuｎctioｎA、10Ｂ、65Ｃ、66D、１1１2０、在过程定义的变量,若希望在离开该过程后，还能保存过程中局部变量的值,则应使用(D)关键字在过程中定义局部变量。Ａ、DｉmＢ、ＰrivateC、PubliｃD、Ｓtatic121、在过程定义中用(C)表达形参的传值。A、ＶarB、ByＤｅfＣ、ByVａlD、Value12２、在在窗体上添加一个命令按钮Coｍmａｎd1和两个名称分别为Ｌaｂｅｌ1和Lａｂｅｌ2的标签,然后编写如下事件过程：PrivatｅＸAsIｎtegerPｒivateSubComｍanｄ1_Click()X=5:y=3Caｌlpｒｏc(X,y）Label1．Capｔiｏn＝XＬaｂel2．Captioｎ=yEndSubSuｂｐroc（BｙValaＡsInteger,BｙVａｌbAｓＩnteger)X=a*ay=ｂ+ｂＥndSub程序运营后,单击命令按钮,则两个标签lａbｅl１和ｌabel２中显示的内容分别是(B)。A、25,3Ｂ、2５,6C、5,３D、5，612３、以下程序的运营结果是(C）。DｉｍxAsＩntegｅr,yAsInｔｅｇｅｒ,ｚAsＩｎtｅｇｅrSubs1（ａＡsIｎteｇeｒ,bAsIｎteger）ＤimcＡsInｔegeｒａ=2*ab=b+2c＝ａ+bEｎｄSubSubs2（aAsInｔeｇer,ByValbAsInｔｅｇer)DimcAsIｎtegｅra=2*ａb=b＋2c＝a+bEnｄSｕbＰｒivaｔeSuｂCｏmｍａnd1_Clｉck（）x＝4：ｙ＝：4ｚ=6Caｌls１(ｘ,y)Ｐriｎｔx+y＋zCaｌls2（x，y)Pｒintx+y+zＥndSｕbＡ、２428B、2028C、2018D、2020124、以下关于过程及过程参数的描述中,错误的是（C)。A、过程的参数可以是控件名称B、用数组作为过程的参数时，使用的是“传地址”方式C、只有函数过程可以将过程中解决的信息传回到调用的程序中Ｄ、窗体可以作为过程的参数125、以下属于ＶｉsualBasic合法的数组元素是（C）A、ｘ8Ｂ、ｘ［８]C、s(０)D、v［8]１26、下列叙述中对的的是(C)。A、在窗体的Fｏｒm_Lｏaｄ事件过程中定义的变量是全局变量B、局部变量的作用域可以超过所定义的过程Ｃ、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为０或空字符串127、假定有以下函数过程:FｕncｔｉｏｎFun(SAsＳtriｎg)AsStrinｇDims1AsSｔriｎgFori＝1TｏLen（Ｓ)s1=UCase(Mid(Ｓ，ｉ,1))+ｓ１NextｉFun＝s１EndFunｃｔion在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSｕbCommａnd１＿Cｌiｃｋ()Diｍsｔr1AsSｔrｉnｇ,sｔr２AｓStrinｇstr1=InｐuｔＢox（＂请输入一个字符串＂)sｔｒ2=Fun(sｔr1)Printstr2EndSub程序运营后,单击命令按钮,假如在输入对话框中输入字符串“aｂcｄefg”，单击"拟定"按钮后程序在窗体上输出结果（D)。A、ａbcｄefｇB、gfedcbaＣ、GFEDＣBＡD、ABCＤEＦG1２8、若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便的调用Sｏｒｔ子过程，应当将该过程放在(B)。A、窗体模块B、标准模块C、类模块D、工程129、下面子过程语句说明合法的是(D)Ａ、Subｆ1(ByＶａlｎ(）AsIntegeｒ)B、Fuｎctiｏｎf1（f1ＡsIntｅger)AsIntegerC、Subf１（n(）ＡsＩntegeｒ）AsInteｇeｒＤ、Fuｎｃｔioｎf1（ByVａlnAｓInｔeｇer)AsＩnteger１３０、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值,则应使用(D)关键字在过程中定义局部变量。A、DiｍB、ＰｒivatｅC、PｕblicD、Sｔatｉc１31、在窗体上画三个单选按钮,组成一个名为ｃhkOpｔiｏｎ的控件数组。用于标记各个控件数组元素的参数是（D）。A、TagB、IndｅxC、ＬiｓtIndｅxD、Namｅ1３２、假如列表框(Liｓt1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(Ｄ）语句。A、Lｉst1.ＡddItｅm３,"Chinａ"B、List１.AｄdＩtem"China",Lisｔ1.List1Count－１C、Lｉsｔ1.ＡdｄItｅｍ"Cｈina＂,３D、Lｉst1.AddＩtem＂Chｉｎa"1３3、假如列表框(Lｉst1)中没有被选定的项目，则执行Liｓt1．ReｍoveItemList1．ListIndｅx语句的结果是(D）。Ａ、移去第一项Ｂ、移去最后一项C、移去最后加入列表的一项D、以上都不对1３4、以下叙述中错误的是（C)。Ａ、在KeyUp和ＫeyDｏwn事件过程中,从键盘上输入A或a被视作相同的字母(即具有相同的KeｙＣode)B、在KeyUp和KｅyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1C、KeyＰrｅss事件中不能辨认键盘上某个键的按下与释放D、KｅyＰrｅsｓ事件中可以辨认键盘上某个键的按下与释放135、设组合框Combo1中有３个项目,则以下能删除最后一项的语句是(B)。A、Combo１.ＲemoveItｅｍTexｔB、Cｏmbｏ１.RemoveＩtem2C、Combo１.ＲｅｍoveItem３D、Ｃombｏ1.ＲeｍoveItemCombｏ1.Lｉｓｔcｏuｎｔ136、下列控件中,没有Ｃaptioｎ属性的是(B）。A、框架Ｂ、列表框C、复选框Ｄ、单选按钮137、引用列表框(Lisｔ1)最后一个数据项应使用的表达式是（C）A、Lｉst1.Ｌist(List1.ListCｏｕnt）B、Lｉｓt１.Lisｔ(ＬistCｏunｔ)Ｃ、Lisｔ1.Lｉst(List1.ListCｏunt-1)D、List1.List（ListCounｔ-1)１3８、窗体的MouseDown事件过程Fｏrｍ＿MouseDｏwn(ＢuｔtonAsIｎteger,SｈiｆtAsIｎｔｅger,XAsSｉngle,YAsSiｎgｌe)有4个参数，关于这些参数,对的的描述是（Ａ)。A、通过Bｕttoｎ参数鉴定当前按下的是哪一个鼠标键Ｂ、Shift参数只能用来拟定是否按下Shift键Ｃ、Ｓhift参数只能用来拟定是否按下Alt和Ｃtrｌ键D、参数x,y用来设立鼠标当前位置的坐标1３９、复选框的Ｖaｌｕe属性为1时,表达(Ｂ）。A、复选框未被选中Ｂ、复选框被选中Ｃ、复选框内有灰色的勾Ｄ、复选框操作有错误。140、引用列表框的最后一项应使用(Ａ)。A、List1.List(Ｌｉｓt１．ＬｉｓtＣount-1）B、List1．Liｓt(Ｌisｔ1.LiｓｔＣouｎt)C、Ｌｉst1.List(ＬistＣｏunt)Ｄ、List1.List(LｉsｔCｏunt－1)１41、设窗体上有一个列表框控件Lisｔ1,且其中具有若干列表项。则以下能表达当前被选中的列表项内容的是(D)。Ａ、Lｉｓt1.ListB、Ｌist1.ＬisｔIｎdexC、List1.IndｅxD、Liｓt１.Ｔeｘt142、表达滚动条控件取值范围最大值的属性是(A）。A、MaxB、LarｇeChangｅC、ValueD、Max-Ｍｉn１43、为了在按下Ｅsc键时执行某个命令按钮的Cｌick事件过程,需要把该命令按钮的一个属性设立为True,这个属性是（Ｄ)。A、VaｌueB、DeｆａulｔC、CancelD、Enａbleｄ1４4、假如列表框(List1)有四个数据项，那么把数据项“Ｃhｉna”添加到列表框的最后,应使用语句（D)。A、List１.AddItem3，"Ｃhina＂B、List１.AddIteｍ"Cｈina",Ｌist1．List１Cｏunt-１Ｃ、Lisｔ1.ＡｄdＩteｍ"China＂，3Ｄ、Lisｔ１.AｄdIｔｅm"Cｈiｎa＂，List1．Liｓｔ１Cｏｕnt145、复选框的Vａｌuｅ属性为２时,表达（Ｃ）。Ａ、复选框未被选中B、复选框被选中Ｃ、复选框内有灰色的勾Ｄ、复选框操作有错误。146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设立为Ｔrue,这个属性是（Ａ)。A、ValueB、ＤeｆaｕltＣ、CancelD、Cａｐｔion1４7、下面说法不对的的是(D）?A、层菜单不允许设立快捷键Ｂ、使菜单项中的文字具有下画线，可在标题文字前加＆符号C、一菜单项名为ＭｅnuTerm，则语句ＭenuTｅrm.Enａbｌe=Ｆlase将使该菜单项失效D、希望在菜单中显示"＆"符号,则在标题栏中输入"&"符号148、以下叙述中错误的是(C)。Ａ、在程序运营时，通用对话框控件是不可见的B、在同一个程序中，用不同的方法(如ShowOpen或SｈowSave等）打开的通用对话框具有不同的作用Ｃ、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文献D、调用通用对话框控件的SｈowCｏｌor方法，可以打开颜色对话框149、菜单编辑器中,输入哪一个选项(A)会在菜单栏上显示文本A、标题B、名称C、索引D、访问键15０、菜单控件只有一个事件（Ｂ）A、MouseUpＢ、ＣlｉｃkＣ、DBCｌiｃｋD、ＫeｙPress151、在用通用对话框控件建立“打开”或“保存”文献对话框时,假如需要指定文献列表框所列出的文献类型是文本文献（即.txt文献),则对的的描述格式是（A)。A、“text（.txｔ）｜(*．txｔ)”B、“文本文献(.txｔ）|(．txｔ)”C、“ｔeｘt(．tｘt)||(*.txt)”D、“text(.tｘt）（*．txt)”152、下面哪个属性可以控制菜单项可见或不可见（C）A、HideB、ChecｋedC、VisｉbleD、Enabled153、下面说法不对的的是(D）A、层菜单不允许设立快捷键B、使菜单项中的文字具有下画线,可在标题文字前加＆符号。Ｃ、一菜单项名为MeｎuTｅｒm，则语句MenuTerm.Enableｄ=Flaｓe将使该菜单项失效。Ｄ、希望在菜单中显示“&”符号,则在标题栏中输入“＆”符号。15４、下面哪个属性可以控制菜单项可见或不可见（Ｃ）?A、HidｅB、ＣheckｅdC、VisibleD、Enablｅd155、改变驱动器列表框的Ｄｒｉvｅ属性将激活（Ａ）事件。Ａ、ChａngeB、ScｒｏllC、KｅyDoｗｎＤ、KeyUp156、在窗体上建立通用对话框需要添加的控件是（C)A、Data控件Ｂ、Foｒm控件C、ComｍonDialog控件Ｄ、ＶBCｏmboＢｏx控件１５７、下面几个关键字均表达文献的打开方式，只能进行读不能写的是(Ａ）。A、IｎputB、OｕｔpuｔＣ、ＲａndomD、Ａｐｐend15８、为建一个随机文献,其中每一条记录由多个不同数据类型的数据项组成,应使用（A）。A、记录类型B、数组C、字符串类型D、变体类型１5９、下列说法错误的是（B）。A、当用Wriｔｅ＃语句写顺序文献时，文献必须以Ｏuｔｐut或Ａppend方式打开Ｂ、用Opｅn语句打开一个文献时，对同一个文献可以用几个不同的文献号打开C、用Ｏutput和Apｐenｄ方式打开文献时，不用将文献关闭,就能重新打开文献D、用Appenｄ方式打开文献时,进行写操作,写入文献的数据附加到本来文献的后面16０、执行语句Oｐen"Sａｍpｌe.ｄaｔ"ForＲanｄomAs#1Lｅn＝50后，对文献"Ｓamｐｌe.ｄａｔ"中的数据可以进行的操作是(Ｃ)。Ａ、只能写不能读B、只能读不能写C、即可以读，也可以写D、不能读，也不能写1,下面程序对已知数组a,删除数组中数组元素中某个元素PrivateＳｕbCｏｍｍaｎｄ1_Click()Ｄima()，key%,i%,j%a=Arraｙ(１，6,８，3，5,9，１0，２,７，4)ｋey=Val(IｎｐutＢox("输入要删除的值"))Ｆｏｒｉ=０ＴoUBound(ａ)Ifkey＝ａ（i)ThenForj=ｉ+1ToＵＢound（a)a(j-１)＝a(ｊ)NeｘtjＲeDimPreｓｅrvea(UBoｕnd(a）-1)MsgＢoｘ("删除完毕")EｘitSuｂＥndＩfＮｅxtiＭsｇBoｘ（"找不到要删除的元素＂）EndSuｂ2，下列程序表达将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序PrivateSｕbForm_Cｌｉcｋ(）Dima,ｉ%，ｎ%,m%a＝Arｒay(19，17,15,13，11,９,7,５，3,１)n=UBｏund(a)RｅDimＰｒｅservｅａ（n+1)m=Val(InputBox("输入欲插入的数")）Fori＝UBoｕｎｄ(a)－1To０Steｐ-1Iｆｍ>＝ａ(i)Thｅnａ（i+1)=a(i)Ifi=0Theｎａ(i)=ｍＥlseａ（ｉ+１)=mＥxitFoｒEnｄＩfNexｔiＦorｉ=０ToUBｏund(a)Printａ(i)ＮeｘｔｉEndＳub3，下列程序在１00０~9999之间查找满足如下条件的整数:该整数,逆向排列得到的另一个四位数是它自身的倍数（2倍以上)。查找结果和逆向排列数分别显示在相应的列表框PriｖateSubCoｍmaｎｄ1_Ｃlick()DｉmｎＡｓIntｅgｅｒＤｉmmAsＩntegerDｉｍiAsIｎtｅgerFoｒi=１０00Tｏ99９9ｍ=０ｎ=iＤoWhilen＞０m=m*1０+nMod10n=n\10ＬoopIｆmModi=0Andm＼i＞１Thenlｉｓt1.AddItｅｍiliｓｔ2.AｄdIｔｅmm&"="＆i&"*"&m＼iＥｎdIfNextiEndSub4,将100~150之间的偶数，拆提成两个素数之和，最后输出格式如图。其中,prime函数判断参数x是否为质数PｒiｖatｅFunctionprｉmｅ(BｙValxＡsIntｅｇeｒ）ＡsBoolｅanprime=tuｒeFoｒi=2ToSqr(x)IfｘＭｏdｉ=0Thｅnｐｒime=ＦalseExitFｕnｃtiｏｎEndIfＮｅxtiEndFunctiｏｎPrivatｅSubＦｏrm＿Load()ｉ=１Foｒn=100Tｏ150Forｋ=3Ton/2Ifｐrime(ｋ)Aｎdprime(ｎ-ｋ）ThenPｒiｎｔｉ；":";"=";k;"+";n－ｋＥxitForEnｄIfＮexｔｋi=i+1NｅｘtnEndSuｂ１0，子过程F(N,M,T）对一个四位数n整整数判断:已知该整数n,逆向排列获得另一个4位数m是特自身的倍数,则t为truｅ表达满足上述条件。。。PriｖａｔeSubＣommand1_Ｃlick()DｉmtＡsBooleａn,ｉ%,k%tｅxt１=""ｔｅxｔ２=""Fori=100０To9999Ｃallf（i，k,ｔ)IｆｔThｅntｅxｔ１=text1＆i＆vbCrLftｅxｔ2＝tｅxt2＆k&＂＝＂&i&"＊"&k＼i&vbＣｒLｆEnｄＩｆNｅｘｔｉEndSuｂＳｕbf(ByVａln％,ByＲefm%,byreｙftagAsBｏolean)Diｍi%Tag=Falｓｅｍ=0i=ｎＤoWhilei>0m=m*10+iＭod10i＝i\1０ＬｏopＩｆmMｏdn=0Ａｎdｍ＼n>1ＴhｅnTaｇ＝ＴrueEnｄIfＥndSｕb6.8.子过程MoveＳｔｒ（)是把字符组移动ｍ个位置,当Tａg为Turｅ是左移，则前m个字符一道字符数组尾，例如，“abcdefｇhiｊ”左移3个位置后,结果为“ｄｅfｇｈijaｂc”;。。。。。PｕblｉcSｕbMｏveStr(a$(),m%,TａｇAsBoｏｌean)Ｄimi%,j％，t＄IfTagThｅnFoｒi＝1Tomc=ａ(0)Ｆｏrj=0ＴｏUBｏｕnd(ａ)-1a（j）=ａ(j+1)Nextja(UＢoｕnd(a))-1NｅｘtiElｓeFｏｒi=1Toｍc=a（UBound(ａ)）Foｒj=UBound(a)To1Step-1a（j)=a（j-1)Nｅxtja(0)＝cNextiEnｄIfEndSｕｂ6.9.子过程CounｔN用来记录字符串中各数字字符(0-９）出现的个数；主调程序对在tｅxｔbox1框输入的文本，每次单击“记录”按钮,调用该子过程,在Laｂeｌ1框显示结果。PrivateSubCｏｍmand1＿Clicｋ()Dimn(9)AsInteger，ｉ%CaｌｌCountN（n(）,teｘｔ1.Teｘt）lｉst１.ClｅaｒＦoｒｉ=0Tｏ９Iｆｎ(i)Thenlｉsｔ1．AddItｅm"字符"&i&"出现的次数为＂&n(ｉ）ＮextＥｎdSubSuｂＣoｕｎtN(ByＲｅfnum%()，ByVaｌsAsStｒing）DimcAsＳtｒiｎｇ*1,ｉ%,ｍ％,ｊ％Forｉ＝0To9ｎum（i)=0Nextiｍ=Len(s)Foｒi=１Tｏｍc=Mid（s,i,１)Ｉfc＞=＂０"Andｃ<="９"Thenj=Ｖal(c)nｕm(ｊ）=ｎｕm(j）+１EndIfNextiEnｄSuｂ6.１1.下列程序中的子过程myplｉt。。用于实现ｓpliｔ函数的功能，即将数字字符s鞍分隔符“,”分离到sArrｙ数组中，分离的个数为n。。。。PrｉvatｅSubTexｔ１_KeyPｒess(ＫｅyAsciｉAsＩntegeｒ）DiｍｓtｒlＡｓStrinｇ,ｎｕm（100)AsIｎteger，n%，ｉ%IfKeyAｓcｉi＝13Tｈensｔr1＝Ｔrim（Texｔ1.Text）CallMySplｉt(str1,ｎum,n)ｌist1.Text=""Foｒｉ=1Tonｌist1.AｄdＩteｍｎｕm(ｉ)ＮextＥndIfEnｄＳuｂSuｂＭySpｌit(ByＶalsｔr1AsString,BｙＲefsn()AsＩnteｇer,ByＲeｆnＡsIntegｅr)Ｄimi%,ｊ%,ch＄i=0j=InＳtｒ（Ｓtr,"，")DoWｈilej>0sn(ｉ)=Vａl（Mid(ｓtr1,1,j-1))stｒ1=Miｄ（ｓtｒ1,j+1）i=i+1ｊ＝InSｔr（stｒ1,",＂)Lｏoｐｓn(i)=Val(stｒ1)n=iEndＳｕｂ1工程中有两个窗体ｆoｒm１和ｆoｒm2，一个标准模块ｍoduｌｅ1,设在ｆorm1中定义了过程ａa，在modｕle1中定义了过程ｂb。Subaa(ｘ,y,ｚ)z=x＊x+y*yEndSubSuｂbb（x，y,z)z＝ｘ^3＋y^3EnｄSｕb当在foｒｍ１中单击命令按钮时,调用以上过程计算两个数的平方和和立方和,并分别将计算结果显示在文本框text3和ｔｅxt4中，请填空完毕调用语句。PｒivateSubCommａnd1_Click()a＝Val（Tｅｘｔ1.Ｔeｘｔ）b＝Vａl(Tｅxt2.Text)Call[aa(a,b,ｃ１）]Tｅxｔ3.Teｘt=c1bb[a,ｂ,ｃ2]Ｔeｘｔ４.Teｘｔ=c2EｎdSub――――――――――――――――――2下面的程序用于根据文本框X中输入的内容进行以下解决:若X为2、４、6,则打印"X的值为２、4、6"；若X在11到１5之间,则打印"Ｘ的值为大于等于１1小于等于15＂；若X大于20，则打印＂X的值大于20"；否则,打印"Ｘ不在范围内"。PrivateSubCｏmｍand1＿Cliｃk()SelectCaseVａl（Ｘ.Ｔext)Case[２,4,6]Prｉnt"X的值为2，4,6"Cａse[11to1５]Priｎt＂X的值为大于等于1１小于等于15＂ＣaｓeＩs>2０Ｐrint"X的值大于2０"CaseＥlseＰriｎt"X不在范围内"EｎdSelｅctEｎdＳuｂ――――――――――――――3下面的程序是使用冒泡法对数组进行排序，请将程序补充完整。OptiｏnBase1PrivaｔeＳubCommand1_Click()ＤiｍiＡ（0To10）n=6ｉA(0)=8:iA(1)＝６:ｉA(2)＝9:iA（3)=3:iA(4)=２:ｉＡ(5)＝7Fori=1Ton-１'进行n-１遍比较'对第ｉ遍比较时,大数沉底Fｏｒ[j=1ton－i]'在数组i~ｎ个元素中选最小元素的下标Iｆ［ｉA(j）>iA(j＋1)］Thｅnt＝iＡ（j）iA(ｊ)＝iA(j＋1）iA（j＋１)＝tEndIfＮexｔjEndＳuｂ――――――――――――４程序的功能是使用辗转相除法求两个数的最大公约数。ＰriｖａteSuｂCommand１＿Ｃliｃｋ（)Ｄiｍm%，n%ｍ=Int(InpuｔBox("ｉnpｕｔaniｎｔegeｒ"))n＝Inｔ（ＩnpｕtBoｘ("inpuｔaｎotｈｅrintegｅr")）Printｇcｄ(m,n)ＥnｄSubＰublicＦunｃtionｇcd%(m%，n%)Dimt％If[ｍ<n]Thｅnt=ｍ:m=n:ｎ=tＤor=mModnＩfr＝0ＴhenEｘitDoｍ=n[n＝r]Lｏopgcd＝nEndFunctｉoｎ―――――――――5、输入任意长度的字符串,规定将字符顺序倒置,例如,将输入的“AＢCＤＥＦ”变换成“ＦEDCＢA”。请将程序补充完整。PriｖａteSubCommand1＿Cｌiｃk()Dima$,i%，ｃ＄,n％'ｎ存放字符串的长度ａ=ＩｎputBoｘ("inｐｕtasｔrｉng＂)ｎ=[Leｎ（a)]Fori＝1TｏＩnt（ｎ／2)ｃ＝Mid(a,ｉ,１)Mｉd(a,i,1)＝[Miｄ(a,n-i+１,1)]Mid(ａ,ｎ－ｉ＋1,1)＝cNextiEndSub――――――――――６、下面的程序允许用户按Ｅｎteｒ(回车）键后，将组合框中没有的项目添加到组合框。请将程序补充完整。PrivateSubCoｍbo1_KeｙPrｅss(KｅyＡsciiAｓIntｅｇer)DimｆｌａgＡsＢoolｅanIfKｅｙAscii=1３Thｅnflａg=ＦalseＦori＝0TｏCｏｍbo1．ListCount－１'查找项目是否已存在Iｆ［cｏmbo1．ｔeｘｔ=combo１.list(i)]Tｈenｆlaｇ=TrueExitＦｏrEndIｆNeｘtiIffｌag=FalｓeThen'不存在则添加[combo1.AddＩｔｅmcomｂｏ１.Ｔｅxt]EndIfEndIfEndSｕb―――――――――7、下面的程序是使用选择法对数组进行升序排列,请将程序补充完整。OptionBasｅ１PrivatｅSubCommaｎd1_Cｌick()DimiＡ（１To10)n=6ｉＡ（1)=8:ｉＡ(2）=６:iA(3)=9：iA(４)=3:ｉA(5)=２：ｉA(６)=７Fｏｒｉ=１Ton-1'进行n-１遍比较iMin=i'对第i遍比较时,初始假定第i个元素最小For[j＝i+1ton]＇在数组i~ｎ个元素中选最小元素的下标If[a(ｊ)<a（imiｎ)]TheniMin=ｊNextｊｔ=iＡ(i)＇ｉ~n个元素中选出的最小元素与第i个元素互换iA(ｉ)＝iA(iＭiｎ)iＡ(ｉMin）＝tNｅxtiEndSuｂ―――――――――――8、找出被3、5、7除，余数均为1的最小的5个正整数。ＰｒivateSubCommand1_Ｃlick(）Dimcountn%,ｎ%ｎ=１:cｏunｔn＝0Dｏｎ＝n+1If［nmｏｄ3=1Ａndnmod5=１Aｎdnｍｏｄ7=1]ThenPrintncｏuｎｔｎ=cｏuntｎ+１EndＩfＬoop[ｕｎtilcｏuntn=5]EndSub――――――――――――――9、下面程序段是检查输入的算术表达式中圆括号是否配对,并显示相应的结果。本程序在文本框输入表达式,边输入,边记录，以输入回车键作为表达式输入结束,然后显示结果。Diｍcount1%PrｉｖateSubText1＿KeyＰrｅsｓ(ＫeyAsciiAｓInｔｅger)If[chr(kｅyAscii)]="("Ｔｈeｎｃount1=count1+1ElsｅＩｆChｒ（KｅyAsｃｉi)="）"Ｔhｅｎ[ｃoｕnt1=couｎt1+1］EndIfIfＫeyＡｓciｉ＝１3TｈｅnＩfcｏｕnt1=0ThenPrint"左右括号配对"ＥｌseIｆｃount1>0TｈｅnPrinｔ"左括号多于右括号＂;count1;"个"ElsｅＰrｉnｔ＂右括号多于左括号＂;-ｃouｎｔ1；"个"EndIfEndIfEndSub――――――――――――10、顺序文献的建立。建立文献名为“c:\sｔuｄ1.tｘt”的顺序文献,内容来自文本框,每按Enteｒ键写入一条记录，然后清除文本框的内容,直到文本框内输入“EＮD”字符串。ＰrｉvａteSuｂForｍ＿Lｏaｄ（)Ｏｐｅn“ｃ:\ｓtuｄ1．txt”ForＯutｐｕtAｓ#1Text１.Ｔext=“”EｎdＳubPrivａteSubＴｅxｔ1_KｅyＰress（keyAsciｉAｓIntｅｇｅr)IfkeyＡｓｃii=1３ThenIf[Ucase(Texｔ１)="ＥNＤ"]ThenＣlosｅ#１ＥndElｓe[Priｎt#1,Ｔｅxt1]Texｔ1.Tｅxｔ＝“”EｎdＩｆEndＩfEndSub―――――――――――――1１、输入若干字符，记录有多少个元音字母、有多少个其他字母,不区分大小写,并显示结果。其中，CountY中放元音字母个数,CouｎtC中放其他字符数。ＰrivａteSubＣｏmmand1_Click()ＤiｍDimC$,B$ｃ=Text1.TexｔFori＝1ToLen(C)B=UCａse(Mｉd(Ｃ,i,１））If["A＂<=BAndB<="Z＂]TｈenSｅlectCaseＢCasｅ"A",＂E",＂I","O","Ｕ＂CoｕntY=CountY+1Cａｓｅ[Elsｅ]CoｕnｔC=CountC+1EnｄＳeｌeｃｔEndＩfNexｔiPrinｔ"元音字母有＂;CｏuntY;"个"Ｐrint"其它字母有"；CouｎtC;"个"ＥndＳuｂ――――――――12、将Ｃ盘根目录下的一个文本文献ｏlｄ.dat复制到新文献new.dａt中,并运用文献操作语句将old．daｔ文献从磁盘上删除。PriｖatｅSuｂCｏmmand1_Cｌick（)Ｄimstr１$Open“c：\oｌｄ.dat”FｏｒInｐutAs＃1Oｐen“ｃ:\ｎew.dａt”[FoｒouｔputAs#2]DｏＷhile[NotEｏF（1)］LiｎeＩnｐut#1,str1Prｉnt＃2，sｔr1LoopCｌosｅ#１,#2ＫＩLＬ“c:＼olｄ.dａｔ”EｎdSub―――――――――＜ＰIXTEL_MＭI_EBOＯＫ_2０23＞613、产生［10，３7]之间的随机整数的VisuａlBａsic表达式是[<iｎt(Rnｄ*28+１0)>]。判断ｓ字符变量是大写字母字符的逻辑表达式为［＜s＞="Ａ"Ands<="Z＂＞］。表达x是5的倍数或９的倍数的逻辑表达式是[<xＭｏd5=０OrxMod9=0>]Ｌeｎ("ｖｂ程序设计")的值是[<６>]。表达字符变量s是字母字符（不区分大小写)的VＢ表达式是［<Ｌcasｅ(ｓ)>＝＂ａ＂AｎｄＬcase(ｓ)<="z"或者Uｃase(ｓ)＞＝＂A"AｎｄUcase(s）＜="Z"＞］。将一个两位数ｘ的个位数与十位数互换位置,组成另一个两位数，则相应的表达式是[<（ｘMod1０)＋x\１0>］。随机产生一个“C”～“Ｌ”范围内的大写字符,则相应的ＶB表达式是[<Chr(Inｔ(Rｎd*10+6８))>]。Rouｎd(-３.５)的值是[＜－４>]。Ｉnt（３.5)的值是[<３>]。下面程序段运营后的输出结果是[<2203214２25２３>]。Ｆorｉ=0Ｔo3PrintTab(5＊i+1);"2"＋i；＂2"＆i；Nexti循环语句Foｒｉ＝-３to20Step0的循环次数是[<无数次>]。在过程中定义的局部变量，假如希望过程结束后还保存变量的值，则应使用[＜Sｔatic＞］关键字进行声明。由Arrａy函数建立的数组，其变量必须是[＜Variant＞]。要使循环语句循环执行20次，Fｏrk＝＿___tｏ-5Ｓｔep－2，则ｋ=[<3３＞]。循环语句Ｆori=－3．5to５.5Step0.5的循环次数是[<１９＞］。下列程序段中,第41句共执行了[<12>］次。3０Ｆoｒｊ=1Tｏ1２Step34０Foｒk=６To2Ｓteｐ-２41Ｐrintｊ,k42Nextk4３Nextj循环语句Fori=-