全国计算机等级考试(二级vb笔试题库 )

二级vb题库全国计算机等级考试52000.以下表达中正确的选项是(C)(单)A.只有窗体才是VisualBasic中的对象B.只有控件才是VisualBasic中的对象C.窗体和控件都是VisualBasic中的对象D.窗体和控件都不是VisualBasic中的对象52001.以下可以激活属性窗口的操作是(D)(单)A.用鼠标双击窗体的任何部位B.执行"文件"菜单中的"属性窗口"命令C.执行"编辑"菜单中的"属性窗口"命令D.按F4键52002以下能翻开工具箱窗口的操作是(A)(单)A.执行"视图"菜单中的"工具箱"命令B.按Alt键C.单击属性窗口上的"工具箱"按钮D.按Ctrl键52003.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是(D)(单)A.单击窗体上有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏52004.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)A.单击窗体的空白处B.单击该控件的内部C.双击该属性列表框D.双击窗体52005.确定一个控件在窗体上的位置的属性是(D)(单)A.Width或HeightB.Top和HeightC.Top或WidthD.Top和Left52006.确定一个窗体或控件的大小的属性是(A)(单)A.Width或HeightB.Top和WidthC.Top或LeftD.Top和Left52007.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)A.拖拉位于控件左上角B.只能拖拉位于控件右下角C.只能拖拉位于控件左下角D.不能同时改变控件的高度和宽度52021.面向对象的程序设计指满足(B)(单)A.虚拟化、结构化、动态化B.封装性、继承性、多态性C.对象的链接、动态链接、动态数据交换D.ODBC、DDE、OLE52021.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单)A.面向对象的程序设计B.结构化程序设计C.事件驱动的编程机制D.程序设计52021.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)A.WINDOS32B.WINDOWS9XC.WINDOWSNT D.WINDOWS200052021.VB6共有三个版本，按功能从弱到强的顺序排列应是(C)(单)A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版D.学习版、企业版和专业版52021.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)A.设计状态 B.编写代码状态C.运行状态 D.中断状态52021.不能翻开代码窗口的操作是(B)(单)A.双击窗体设计器的任何地方B.按下F键C.单击工程窗口中的"查看代码"按钮D.选择"视图"下拉菜单中的"代码窗口"52021.在VB中，工程文件的扩展名是(B)(单)A..frmB..vbpC..basD..frx52021.在VB中，窗体文件的扩展名是(A)(单)A..frmB..vbpC..basD..frx52021.VB集成开发环境可以(D)(单)A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序52021.英文"VISUAL"的含义是(A)(单)A.可视化B.集成C.结构化D.调试52021.标准模块文件的扩展名是(C)(单)A.frmB.vbp C.basD.vbg52021.VB集成开发环境中，在(C)中编写代码(单)A.状态栏B.属性列表框 C.代码框D.标题栏52021.在面向对象的程序设计过程中，英文缩写"OOP"的含义是(C)(单)A.事件驱动的编程机制B.结构化程序设计语言C.面向对象的程序设计D.可视化程序设计52021.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，那么以下正确的属性设置语句是(D)(单)nterval=5C.Timer1.Interval=50D.Timer1.Interval=50052022.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFort=1To2y=y+xx=x+2NexttPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是(A)(单)A.42B.1218C.1230D.4652023.以下关于多重窗体程序的表达中，错误的选项是(A)(单)A.用Hide方法不但可以隐藏窗体,且能去除内存中的窗体B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序中，单独保存每个窗体52024.以下关于文件的表达中，错误的选项是(B)(单)A.顺序文件中的记录一个接一个顺序存放B.随机文件中记录的长度是不相同的C.执行翻开文件的命令后，自动生成一个文件指针D.EOF函数作用是判断文件的指针是否指向文件末尾52025.以下表达中错误的选项是(D)(单)A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D.编程者可以自由更改代码框右上边的过程列表的事件名称52026.以下合法的VisualBasic变量的名称是(A)(单)A.a3B.ConstC.9abcD.a#x!52027.当一个复选框被选中时，它的Value属性的值是(C)(单)A.3B.2C.1D.052028.表达式5Mod3+5\3的值是(B)(单)A.0B.3C.4D.652029.设x=4,y=8,z=7,表达式：(x＜y)Orz＜x的值是(C)(单)A.1B.-1C.TRUED.FALSE 52030.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$="VisualBasic"PrintString(3,a$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)A.VVVB.Vis C.sicD.1152031.设有如下程序段：x=2Forc=1To4Step2x=x+cNextc运行以上程序后，x的值是(A)(单)A.6B.7 C.8D.952032.以下表达中错误的选项是(A)(单)A.在KeyPress事件过程中不能识别键盘键的按下与释放B.在KeyPress事件过程中不能识别回车键C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符52033.执行如下两条语句，窗体上显示的是(C)(单)A=9.8596PrintFormat(a,"000.00")A.0,009.86B.9.86C.009.86D.0,009.8652034.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1EndSub对于这个程序，以下表达中错误的选项是(D)(单)A.该对话框被设置为"翻开"对话框B.在该对话框中指定的文件名为空C.该对话框的标题为VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt)52035.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：PrivateSubCommand1_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=Iif(x＞10,100,-100)f.Showf.Caption=yEndSub运行以上程序，正确的结果是(B)(单)A.Form1的Caption属性值为100B.Form2的Caption属性值为-100C.Form1的Caption属性值为-100D.Form2的Caption属性值为10052036.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.105B.125 C.107D.12752037.OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=3Ifn＜10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fort=1Tonb(t)=Rnd*100Ifb(t)/2=b(t)\2Thenj=j+1c(j)=b(t)EndIfNexttPrintjEndSub以下表达中错误的选项是(C)(单)A.数组b中的数范围为0-100B.c数组下标的下界从1开始C.GetArray过程的参数n是按值传送的D.语句Ifb(t)/2=b(t)\2Then是判断数组b中元素的值是否为整数52038.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Forc=1ToUbound(a)a(c)=a(c)+c-1NextcPrinta(3)EndSub程序运行后，单击命令按钮，那么在窗体上显示的内容是(B)(单)A.4B.5 C.6D.752039.阅读程序：OptionBase1PrivateSubForm_Click()DimarrDimSum%Sum=0arr=Array(1,3,5,7,9)Fort=1To5Sum=Sum+arr(t)NexttPrintSumEndSub程序运行后，单击窗体，输入结果为(B)(单)A.5B.9 C.25D.1552040.在窗体上画一个名称为File1的文件列表框，并编写如下程序：PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下关于该程序的表达中，错误的选项是(A)(单)A.x没有实际作用，因此可以将该语句写为：CallShell(File1,FileName,1)B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过File1.FileName指定D.File1中显示的是当前驱动器、当前目录下的文件52041.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜Form1.WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后，单击"开始"按钮，标签在窗体中移动。对于这个程序，以下表达中错误的选项是(A)(单)A.标签的移动方向为自右向左B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间时隔移动52042.标准地说，VB是一种(A)的开发工具(单)A.面向对象B.面向用户 C.面向屏幕D.面向窗体52043.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)A.文件B.工程 C.编辑D.视图52044下面(D)操作不是激活或显示属性列表框的操作(单)A.按快捷键F4B.点击工具栏中的"属性列表框"按钮C.选择"视图"下拉菜单的"属性窗口"项D.双击窗体中的某一对象52045.VisualBasic程序中分隔各语句的字符是(B)(单)A.′B.: C.\D._52046.假定窗体的名称(Name属性)为Form1，那么把窗体的标题设置为"VBTest"的语句为(B)(单)A.Form1="VBTest" B.Caption="VBTest"C.Form1.Text="VBTest" D.Form1.Name="VBTest"52047.以下不能翻开代码窗口的操作是(D)(单)A.双击窗体上的某个控件双击B.双击窗体C.按F7键 D.单击窗体或控件52048.VisualBasic程序中语句行的续行符是(D)(单)A.′B.: C.\D._52049.VisualBasic程序中的注释所使用的字符是(A)(单)A.′B.: C.\D._52050.以下说法中正确的选项是：为了保存一个VisualBasic应用程序，应当(D)(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件52051.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)(单)A.1B.2 C.3D.452052.以下说法中正确的选项是：为了载入一个只有一个工程〔此工程下有三个窗体〕的VisualBasic应用程序，应当(B)(单)A.只装入窗体模块文件(.frm)B.先装入工程文件(.vbp)即可C.分别装入工程文件和标准模块文件(.bas)D.分别装入工程文件、窗体文件和标准模块文件52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)A.CaptionB.Name C.TextD.AutoSize52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style属性为1(单)A.Picture B.StyleC.DownPicture D.DisabledPicture52055.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，那么其Interval属性值应设置为(D)(单)A.5B.300 C.500D.500052056一个标准的VB应用程序至少要包含一个(C)对象(单)A.文本框B.标签框 C.窗体D.命令按钮52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True(单)A.TextB.MultiLineC.StyleD.Visible52058.以下的(A)对象支持KeyPress事件(单)A.文本框B.命令按钮C.标签框D.图像框52059.假设要将窗体从内存中卸载，其实现的方法或语句是(B)(单)A.ShowB.Unload C.LoadD.Hide52060.以下选项中，不是VB标准控件的是(C)(单)A.命令按钮B.定时器C.通用对话框D.单项选择框52061.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.工程〔工程〕窗口C.代码窗口D.属性窗口52062.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动 D.面向过程、顺序驱动52063.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.Unload C.LoadD.Hide52064.文本框的默认属性是(B)(单)A.CaptionB.Text C.NameD.Top52065.标签默认属性是(A)(单)A.CaptionB.Text C.NameD.Top52066.执行以下程序段：a$="abbacddcba"ForI=6To2Step-2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)NextIPrintz输出结果为(B)(单)A.ABAB.BBABBA C.ABBABAD.AABAAB52067.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,4,5)Sum=0ForI=1To5Sum=sum+a(I)NextIx=Sum/5ForI=1To5Ifa(I)＞xThenPrinta(I);NextIEndSub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.12B.123 C.345D.4552068.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：PublicxAsIntegerPublicyAsIntegerSubS1()x=1S2EndSubSubS2()y=10Form1.ShowEndSubModel2的代码如下：SubMain()S1EndSub其中SubMain被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)A.Form1-＞Model1-＞Model2B.Model1-＞Model2-＞Form1C.Model2-＞Model1-＞Form1D.Model2-＞Form1-＞Model152069.设有如下程序段：a$="beijingshanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为【shanghai】52070.以下程序段的输出结果是【3】Num=0DoWhilenum＜＝2num=num+1LoopPrintnum52071.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500，500EndSub程序运行后，单击命令按钮，执行的操作为(A)(单)A.命令按钮移动到距窗体左边界、上边界各500的位置B.窗体移动到距屏幕左边界、上边界各500的位置C.命令按钮向左、上方向各移动500D.窗体向左、上方向各移动50052072.在窗体上有假设干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)A.TabStopB.Enabled C.VisibleD.TabIndex52073.在窗体上画一个名称为List1的列表框，为了对列表框中的每个工程都能进行处理，应使用的循环语句为(A)(单)A.Fori=0ToList1.ListCount-1......NextiB.Fori=0ToListCount-1......NextiC.Fori=1ToList1.listCount......NextiD.Fori=1ToListCount......Nexti52074.以下Case语句中错误的选项是(C)(单)A.Case0To10 B.CaseIs＞10C.CaseIs＞10AndIs＜50 D.Case3,5,Is＞1052075.以下关于图片框控件的说法中，错误的选项是(D)(单)A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小52076.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)A.VisualB.Basic C.6D.1152077.以下表达中错误的选项是(D)(单)A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled属性设置为False，那么该菜单项不可见52078.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()a="12345"PrintFormat$(a,"000.00")EndSub程序运行后，单击命令按钮，窗体上显示的是(B)(单)A.123.45B.12345.00 C.152079.以下关于函数过程的表达中，正确的选项是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D.如果不指明函数过程参数的类型，那么该参数不能有数据类型的参数52080.以下关于变量作用域的表达中，正确的选项是(C)(单)A.用dim定义变量是静态变量B.静态变量必须在标准模块中声明C.用public定义变量是全局变量D.Static类型变量的作用域范围是它所在的窗体或模块文件52081.确定一个控件在窗体上的位置的属性是(C)(单)A.Width和Height B.Width或HeightC.Top和Left D.Top或Left52082.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Text1.Text="Visual"Me.Text1="Basic"Text1="Program"EndSub程序运行后，如果单击命令按钮，那么在文本框中显示的是(C)(单)A.VisualB.Basic C.ProgramD.出错52083.以下关系表达式中，其值为False的是(A)(单)A."ABC"＞"AbC" B."the"＜＞"they"C."VISUAL"=UCase("Visual") D."Integer"＞"Int"52084.语句Printint(5/4*6\5)Mod2的输出结果是(B)(单)A.0B.1 C.2D.352085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：PrivateSubCommand1_Click()strText=InputBox("请输入")Text1.Text=strTextEndSubPrivateSubText1_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，那么在标签中显示的内容是(D)(单)A.空B.abcdef C.abcD.def52086.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=-5Ifx＞0Theny=x^2Elsey=xEndIfPrintyEndSub程序运行后，单击命令按钮，窗体上显示的是(A)(单)A.-5B.25 C.1D.-152087.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，那么以下表达中正确的选项是(A)(单)A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1的任何地方中可以直接使用YD.在Form2中可以直接使用X和Y52088.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)A.Drive1_ChangeB.Drive1_ClickC.Dir1_Click D.Dir1_KeyPress52089.在窗体上画一个命令按钮〔其NAME属性为Command1〕，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)ForI=4To1Step-1s=s+a(I)NextIPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是(D)(单)A.4321B.1234 C.34D.1052090.在窗体上画一个名称为Text1的文本框，编写以下代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii＜65OrKeyAscii＞90ThenmsgBox"请输入大写字母"KeyAscii=0EndIfEndSub以下能说明该事件过程正确是(A)(单)A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小写字母的输入C.要求文本框只能接收数字的输入D.要求文本框只能接收65到90之间的数值的输入52091.在窗体上画一个名称为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程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836 C.726D.27352092.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234那么在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)52093.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj＞Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数 B.输出n以内的偶数C.输出n以内的素数 D.输出n以内能被j整除的数52094.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10 C.9D.852095.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14 C.13D.1252096.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，那么弹出与mnuEdit相应的菜单。PrivateSubForm_【mousedown】(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenpopupmenumnuEditEndIfEndSub52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，那么弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。PrivateSubFormmousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then【popupmenu】mnuEditEndIf52099.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。52100.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。52101.与数学表达式ln(a+b)/(3x)+5对应的VisualBasic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】*52102.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】52103.在窗体上画一个名称为Text1的文本框，然后画三个单项选择按钮，并用这三个单项选择按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单项选择按钮，那么文本框中的字体将根据所选择的单项选择按钮切换。PrivateSubOption1_Click(IndexAsInteger)SelectCase【Index】Case0a="宋体"Case1a="黑体"Case2a="楷体＿GB2312"EndSelecttext1.fontname=aEndSub52104.在窗体上画一个名称为Text1的文本框，然后画三个单项选择按钮，并用这三个单项选择按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单项选择按钮，那么文本框中的字体将根据所选择的单项选择按钮切换。PrivateSubOption1_Click(IndexAsInteger)SelectCaseindexCase0a="宋体"Case1a="黑体"Case2a="楷体＿GB2312"EndSelecttext1.【fontname】=aEndSub52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个工程，那么把所选中的工程在其下面的标签中显示出来。PrivateSubCombo1_Click()CallShowItem(Combo1,Label1)EndSubPrivateSubCombo2_Click()CallShowItem(Combo2,Label2)EndSubPublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)【tmplabel】.Caption=tmpCombo.TextEndSub52106.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个工程，那么把所选中的工程在其下面的标签中显示出来。PrivateSubCombo1_Click()CallShowItem(Combo1,Label1)EndSubPrivateSubCombo2_Click()CallShowItem(Combo2,Label2)EndSubPublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)tmpLabel.Caption=【tmpcombo】.TextEndSub52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=5f=1s=0Forc=1Tonf=f*【7】s=s+fNextcPrintsEndSub该事件过程的功能是计算1!+2!+3!+…+n!的值。52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerForI=1To10a(I)=INextICall【swap】a()ForI=1To10Printa(I);NextEndSubSubswap(b()AsInteger)n=ubound(b)ForI=1Ton/2t=b(I)b(I)=b(n)b(n)=tn=n-1NextIEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。52109.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerForI=1To10a(I)=INextICallswap〔a()〕ForI=1To10Printa(I);NextEndSubSubswap(b()AsInteger)n=【ubound(b)】ForI=1Ton/2t=b(I)b(I)=b(n)b(n)=tn=n-1NextIEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。52110.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerForI=1To10a(I)=INextICallswap〔a()〕ForI=1To10Printa(I);NextIEndSubSubswap(b()AsInteger)n=ubound(b)ForI=1Ton/2t=b(I)b(I)=b(n)b(n)=tn=【n-1】NextIEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。52111.以下程序段运行的结果为(B)(单)PrivateSubForm_Click()MyDate=#7/21/1997#PrintFormat(MyDate,"m/d/yy")PrintFormat(MyDate,"yyyy年m月dd日")EndSubA.7/21/971997年7月21日B.7-21-971997年7月21日C.97/7/211997年7月21日D.7/21/9797年7月21日52112.以下程序段运行的结果为(B)(单)PrivateSubForm_Click()MyTime=#9:21:30PM#MyDate=#7/21/1997#PrintTab(2);Format(MyDate,"mmmm-yy")PrintTab(2);Format(MyTime,"hh:mm:ssA/P")EndSubA.July-979:21:30P B.July-9709:21:30PC.07-979:21:30P D.July-979:21:3052113.以下程序段运行的结果为(C)(单)PrivateSubForm_Click()MyDate=#7/21/1997#PrintFormat(MyDate,"dddd,mmmm,dd,yyyy")EndSubA.21,07,1997 B.21,07,21,1997C.Monday,July,21,1997 D.Monday,07,21,199752114.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误"Text1.Text=""Text1.SetFocuselseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错 D.没有任何提示52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenMsgBox"帐号有非数字字符错误"Text1.Text=""Text1.SetFocuselseMsgBox"帐号正确"EndIfEndSub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错 D.没有任何提示52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIfText1.Text＜＞"Gong"ThenI=MsgBox("密码错误",5+vbExclamation,"输入密码")IfI＜＞4ThenEndElseText1.Text=""Text1.SetFocusEndIfElseMsgBox"密码帐号正确！"EndIfEndSub假设在text1中输入字符串"Gong"，那么程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确！"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIfText1.Text＜＞"Gong"ThenI=MsgBox("密码错误",5+vbExclamation,"输入密码")IfI＜＞4ThenEndElseText1.Text=""Text1.SetFocusEndIfElseMsgBox"密码帐号正确！"EndIfEndSub假设在text1中输入字符串"gong"，那么程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确！"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：PrivateSubCommand1_Click()DimIAsIntegerIfText1.Text＜＞"Gong"ThenI=MsgBox("密码错误",VbRetryCancle+vbExclamation,"输入密码")IfI＜＞4ThenEndElseText1.Text=""Text1.SetFocusEndIfElseMsgBox"密码帐号正确！"EndIfEndSub假设在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的选项是(A)(单)A.显示对话框中有“重试〞按钮B.显示对话框中有“确定〞按钮C.显示对话框中有“是〞按钮D.以上说法都不正确52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：PrivateSubCommand1_Click()Dimx!,y!,z!,t!x=Text1y=Text2z=Text3Ifx＜yThent=xx=yy=tEndIfIfy＜zThent=yy=zz=tIfx＜yThent=xx=yy=tEndIfEndIfLabel1.Caption=x&","&y&","&zEndSub当在文本框text1、text2和text3中分别输入5、3和8，那么标签显示的结果为(C)(单)52120.以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的整数"))SelectCaseNopCase1Op="＋"Result=Num1+Num2Case2Op="－"Result=Num1-Num2Case3Op="×"Result=Num1*Num2Case4Op="÷"Result=Num1/Num2EndSelectLabel1=Num1&Op&Num2&"="&ResultEndSub窗体运行后，输入1，那么label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1 C.3×2=6D.3÷2=1.552121.以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的整数"))SelectCaseNopCase1Op="＋"Result=Num1+Num2Case2Op="－"Result=Num1-Num2Case3Op="×"Result=Num1*Num2Case4Op="÷"Result=Num1/Num2EndSelectLabel1=Num1&Op&Num2&"="&ResultEndSub窗体运行后，输入2，那么label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1 C.3×2=6D.3÷2=1.552122.以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的整数"))SelectCaseNopCase1Op="＋"Result=Num1+Num2Case2Op="－"Result=Num1-Num2Case3Op="×"Result=Num1*Num2Case4Op="÷"Result=Num1/Num2EndSelectLabel1=Num1&Op&Num2&"="&ResultEndSub窗体运行后，输入3，那么label1的标题显示结果为(C)(单)A.3+2=5B.3-2=1 C.3×2=6D.3÷2=1.552123.以下程序段：PrivateSubForm_Load()DimNopAsInteger,OpAsString*1Num1=3Num2=2Nop=val(Inputbox("请输入1-4之间的整数"))SelectCaseNopCase1Op="＋"Result=Num1+Num2Case2Op="－"Result=Num1-Num2Case3Op="×"Result=Num1*Num2Case4Op="÷"Result=Num1/Num2EndSelectLabel1=Num1&Op&Num2&"="&ResultEndSub窗体运行后，输入4，那么label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1 C.3×2=6D.3÷2=1.552124.以下程序段的作用是(A)(单)PrivateSubPicture1_Click()DimasciAsInteger,iAsIntegeri=0Forasci=32To126Picture1.PrintTab(7*i+2);Chr(asci);"=";asci;i=i+1Ifi=7Theni=0:Picture1.PrintNextasciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确52125.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。PrivateSubCommand1_Click()Dimx,nx=Val(Text1)n=0DoWhile【x】＜26x=x*(1+0.008)n=n+1LoopText2=Str(n)EndSub52126.以下程序的作用是(B)(单)Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNextiA.打印ASCII码表 B.打印九九乘法表C.打印加法表 D.以上说法都不正确52127.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。PrivateSubForm_Click()DimI%,n&,t!,e!E=0'存放累加和结果I=0'计数器n=1'存放阶乘的值t=1'级数第I项值DoWhile【t>】0.00001e=e+tI=I+1n=n*It=1/nLoopPrint"计算了";I;"项的和是";eEndSub52128.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。PrivateSubForm_Click()DimI%,n&,t!,e!E=0'存放累加和结果I=0'计数器n=1'存放阶乘的值t=1'级数第I项值DoWhilet＞0.00001e=e+【t】I=I+1n=n*It=1/nLoopPrint"计算了";I;"项的和是";eEndSub52129.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。PrivateSubForm_Click()DimI%,n&,t!,e!E=0'存放累加和结果I=0'计数器n=1'存放阶乘的值t=1'级数第I项值DoWhilet＞0.00001e=e+tI=I+1n=n*【I】t=1/nLoopPrint"计算了";I;"项的和是";eEndSub52130.以下程序是求最大公约数和最小公倍数的程序。PrivateSubForm_Click()Dimm1,n1,m,n,rAsIntegern1=InputBox("输入自然数n","输入数")m1=InputBox("输入自然数m","输入数")n=n1m=m1Ifm＜nThent=m:m=n:n=tEndIfr=mMod【n】DoWhile(r＜＞0)m=nn=rr=mModnLoopPrint"最大公约数=",nPrint"最小公倍数=",m1*n1/nEndSub52131.以下程序是求最大公约数和最小公倍数的程序，在【】处填写适宜的关系运算符。PrivateSubForm_Click()Dimm1,n1,m,n,rAsIntegern1=InputBox("输入自然数n","输入数")m1=InputBox("输入自然数m","输入数")n=n1m=m1Ifm＜nThent=m:m=n:n=tEndIfr=mModnDoWhiler【<>】0m=nn=rr=mModnLoopPrint"最大公约数=",nPrint"最小公倍数=",m1*n1/nEndSub52132.下面是求100以内素数的程序。PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,tagAsBooleanForm=2To100tag=TrueFori=2Tom-1IfmMod【i】=0Thentag=FalseNextiIftagThenPrintmNextmEndSub52133.下面是求100以内素数的程序，下面说法正确的选项是(A)(单)PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,tagAsBooleanForm=2To100tag=TrueFori=2Tom-1IfmModi=0Thentag=FalseNextiIftag=trueThenPrintmNextmEndSubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句mModi=0，说明m是素数D.以上说法都不正确52134.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。PrivateSubCommand2_Click()Dimx%,y%,z%Forx=0To33Fory=0To50If3*x+2*y+0.5*(100-x-y)=100ThenPicture2.Printx,y,【100-x-y,10-y-x】EndIfNextyNextxEndSub52135.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。PrivateSubCommand1_Click()Dimx%,y%,z%Forx=0To33Fory=0To50Forz=0To100If3*x+2*y+0.5*z=100And【x+y+z=100】ThenPicture1.Printx,y,zEndIfNextzNextyNextxEndSub52136.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100Fori=1To10x=Int(Rnd*101+100)Printx;Ifx＞MaxThen【】NextiPrintPrint"最大值=";MaxEndSub在此程序中，其中【】处应该填写的是(C)(单)A.Max=100B.Max=200 C.Max=xD.Max=052137.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100Fori=1To10x=int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】Printx;Ifx＞MaxThenMax=xNextiPrintPrint"最大值=";MaxEndSub52138.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100ForI=1To10x=Int(Rnd*101+100)Printx;If【】ThenMax=xNextIPrintPrint"最大值=";MaxEndSub在【】处应该填写的是：〔A〕(单)A.x＞MaxB.x＜Max C.x=MaxD.以上都不正确52139.以下是求1～100之间5或7的倍数的和，如下程序段：Sum=0Fori=1To100IfiMod5=0OriMod7=0Then【】EndIfNextiPrintSum其中【】处书写正确的选项是〔B〕(单)A.Sum=iB.Sum=Sum+iC.Sum=Sum+5+7D.以上都不正确52140.以下是求1～100的5或7的倍数的和程序段：Sum=0Fori=1To100IfiMod5=0Ori【mod】7=0ThenSum=Sum+iEndIfNextiPrintSum52141.以下表达中错误的选项是(B)(单)A.VisualBasic是事件驱动型可视化编程工具B.VisualBasic应用程序不具有明显的开始和结束语句C.VisualBasic工具箱中的所有控件都具有宽度〔Width〕和高度〔Height〕属性D.VisualBasic中控件的某些属性只能在运行时设置52142.以下表达中错误的选项是(A)(单)A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件52143.以下表达中错误的选项是(B)(单)A.双击鼠标可以触发DblClick事件B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定C.移动鼠标时，会触发MouseMove事件D.控件的名称可以由编程人员设定52144.以下不属于VisualBasic系统的文件类型是(B)(单)A..frmB..bat C..vbgD..vbp52145.以下表达中错误的选项是(C)(单)A.翻开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.保存VisualBasic程序时，应分别保存窗体文件及工程文件C.VisualBasic应用程序只能以解释方式执行D.事件可以由用户引发52146.以下声明语句中错误的选项是(B)(单)A.Constvar1=123B.Dimvar2='ABC'C.Publica,basinteger D.Staticaassingle52147.设窗体上有一个列表框控件List1，且其中含有假设干列表项。那么以下能表示当前被选中的列表项内容的是(D)(单)52148.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单)A.MouseDownB.MouseUp C.LoadD.Click52149.设a=10，b=5，c=1，执行语句Printa＞b＞c后，窗体上显示的是(B)(单)A.TrueB.False C.1D.出错信息52150.如果要改变窗体的标题，那么需要设置窗体的(A)属性(单)A.CaptionB.NameC.BackColorD.BorderStyle52151.以下能判断指针是否指向文件尾的函数是(D)(单)A.BOFB.LOC C.LOFD.EOF52152.如果一个工程含有多个窗体及标准模块，那么以下表达中错误的选项是(B)(单)A.如果工程中含有SubMain过程，那么程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏一个窗体,不能从内存中去除该窗体D.任何时刻最多只有一个窗体是活动窗体52153.窗体的过程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)，有4个参数，关于这些参数，正确的描述是(D)(单)A.通过Button参数判定当前按下的是键盘上哪一个键B.Shift参数只能用来确定是否按下Shift键C.Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x,y用来设置鼠标当前位置的坐标52154.设组合框Combo1中有3个工程，那么以下能删除最后一项的语句是(B)(单)Abo1.RemoveItemTextBbo1.RemoveItem2Cbo1.RemoveItem3Dbo1.RemoveItemCombo1.Listcount52155.以下关于焦点的表达中，错误的选项是(A)(单)A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据B.当文本框失去焦点时，触发LostFocus事件C.当文本框的Enabled属性为False时，其Tab顺序不起作用D.可以用TabIndex属性改变Tab顺序52156.如果要在菜单中添加一个分隔线，那么应将其Caption属性设置为(D)(单)A.=B.* C.&D.-52157.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、T