VB程序设计习题集.pdf

该【VB程序设计习题集 】是由【小屁孩】上传分享，文档一共【7】页，该文档可以免费在线阅读，需要了解更多关于【VB程序设计习题集 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:..VB程序设计****题集一、:AA、*.vbp,*.frm,*.frxB、*.vbp,*.cls,*.basC、*.bas,*.ocx,*.resD、*.frm,*.cls,*.“工程资源管理器”窗口中列出的文件类型是:DA、.basB、.resC、.fnnD、.:BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V,然后按Alt+:DA、窗体B、框架C、图片框D、。A、一种B、两种C、三种D、,构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、:①创建应用程序界面②设置控件③设置属性④编写代码,其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④,正确的使用方法是:AA、、、MyFormLoadD、,需要把该命令按钮的一个属性设置为True,这个属性是:(<CR>是回车键):Ca=8<CR>b=9<CR>printa>b<CR>则输出结果是:A)-1B)0C)FalseD),通过___D___窗口可以查看到应用程序工程中的所有组成部分。A、代码窗口B、窗体设计窗口C、属性窗口D、:BA、ConstCas3B、Constc=1/3C、PublicI=3D、PuclicI=1/,应使用符号:AA、&B、*C、$D、***@(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是:CA、-36B、1C、-1D、-“-”,则输出结果为:Bop$=InputBox("op=")Ifop$="+"Thena=a+2Ifop$="-"Thena=a-2:..PrintaA、2B、-2C、0D、++"129"&200的值是:BA、12329B、"12129200"C、"**********"D、"12329"。A、可以编写ActiveX控件B、可以编写网络程序C、可以通过直接访问或建立连接的方式访问大型网络数据库D、:DimMyVarMyVar=”comeseeme“若在立即窗口中显示MyVar的值,下面正确的是:AA、、、、、DimB、、StaticD、:Ca=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是:A、TodayB、TomorrowC、YesterdayD、,mandl。单击命令按钮时,执行如下事件过程:mand1_C1ick()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是:CA、softWareandhardwareB、softwareC、hardwafeD、,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到什么事件:CA、GotFocusB、ClickC、ChangeD、(CheckBox)可具有的功能是::CPrintFormat$(,“000,”)A、、32,、032,、32,:BN=0ForI=lTo3ForJ=5TolStep-1N=N+lNextJNextIPrimN;J;I:..A、1204B、1504C、123lD、,错误的是:CA、除了Click事件之外,菜单项不可以响应其他事件B、每个菜单项都是一个控件,与其他控件一样也有其属性和事件C、菜单项的索引号必须从1开始D、+5\6*7/8Mod9的值是:BA、4B、5C、6D、,编写以列程序:mand1_Click()ClsDimaAsIntegerStaticbAsIntegera=a+bb=b+4Printa,bEndSub程序运行后,单击该命令按钮三次,屏幕上显示的值是:DA、412B、04C、48D、:BA、Image图像框控件B、PictureBox图片框控件C、TextBox文本框控件D、,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应:AA、将Shape控件的FillStyle属性设置为2至7间的某个值,BackStyle属性设置为lB、将Shape控件的FillStyle属性设置为0或l,BackStyle属性设置为lC、将Shape控件的FillStyle属性设置为2至7间的某个值,BackStyle属性设置为0D、将Shape控件的FillStyle属性设置为0或l,:Dimb(-1To10,2To9,20)AsInteger则数组b中全部元素的个数:BA、2310B、2016C、1500D、:CA、Dimgg[1,5]AsStringB、Dimgg[1To5,1To5]AsStringC、Dimgg(1To5)AsStringD、Dimgg[1:5,1:5]:AA、函数过程没有返回值B、子过程没有返回值C、函数过程可以带参数D、,然后编写下列程序:mand1_Click()Tcl2Tcl3Tcl4EndSubSubTcl(aAsInteger)StaticxAsInteger:..x=x+aPrintx;EndSub程序运行后,单击命令按钮,输出结果为:BA、234B、259C、354D、24335为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为:DA、Get文件号,记录号,变量名B、Get文件号,变量名,记录号C、Put文件号,变量名,记录号D、Put文件号,记录号,,其名称为Text1,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerstr=UCase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)EndSub程序运行后,如果在键盘上输入单字母"K",则在文本框Text1中显示的内容为:BA、kkB、kKC、KKD、,即C,当用鼠标单击或键盘选中后按回车键触发该事件,除分隔条以外的所有菜单控件都能识别该事件A、GotFocusB、LoadC、ClickD、:CA、IfA≠BThenPrint"A不等于B"B、IfA<>BThenPrintf"A不等于B"C、IfA<>BThenPrint"A不等于B"D、IfA≠BPrint"A不等于B",使用的语句是:DA、=TrueB、=FalseC、=TrueD、=。A、MouseDownB、MouseUpC、MouseMoveD、:CA、Data控件B、monDialog控件D、,错误的是:DA、可以通过Print方法在图片框中输出文本B、清空图片框控件中图形的方法之一是加载一个空图形C、图片框控件可以作为容器使用D、:DimfsAsNewFileSystemObject,,可以使用的代码是:BA、f=(“c:\”)B、Setf=(“c:\”)C、f=(“”)D、Setf=(“”),monDialog1,用下面的语句可以建立一个对话框:=l与该语句等价的语句是:,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是:A:..A、LoadB、ShowC、HideD、:CA、ActiveB、LoadC、LostFocusD、:BA、在KeyPress事件过程中不能识别键盘的按下与释放B、在KeyPress事件过程中不能识别回车键C、在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D、在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1":AA、单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量B、滚动条中滚动块的最大移动位置C、滚动条中滚动块的最大移动范围D、,则i的类型为(B),变量c$的值为:Da$="VisualBasicPrograming"b$="Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)A、VisualBASICProgramingB、QuickBasicProgramingC、QUICKBasicProgramingD、QuickBASICPrograming二、("")的值是6。,除了可以指定某个窗体作为启动对象外,还可以指定SubMain过程为启动对象。,它们是标准控件、ActiveX控件和可插入对象。,这种控件是组合框。。—10的随机整数的表达式是int(rnd*10+1),s的值为9。s=5Fori==s+,所产生的信息框的标题是BBBB。a=msgbox("AAAA",,"BBBB","",5),假定有一个名为“”的文件,它位于“d:\pp”目录下,则“FileName”属性的值为D:\pp\;。、图片框或图像框中的图形通过对象的picture属性设置。=65<CR>?Chr$(X)<CR>在窗口中显示的结果是A。、I均为整型变量,执行下列程序后s的值为_15。s=0:i=1Dos=s+i:..i=i+1LoopUntili>。,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(X>y,x,y)EndFunctionmand1Click()=1b=2PrintM(a,b)EndSub程序运行后,单击命令按钮,输出结果为2。,而在调用过程时传送给过程的常数、变量、表达式或数组叫做实际参数。。,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示;如果存在,则在Label2中给出提示“输入项已在组合框中”。请在填空处将程序补充完整。bol_KeyPress(KeyAsciiAsinteger)ifKeyAscii=13ThenFori=-[(i)=”输入项己在组合框中”=“已成功添加输入项”:从键盘上输入若干个学生的考试分数,统计并输出最高分数和最低分数,当输入负数时结束输入,输出结果,请将程序补充完整。PrivateSubForm_Click()Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhileX>=0Ifx>amaxThenamax=xEndIfIfX<AMINThenamin=x:..EndIfx=InputBox("Enterascore")LoopPrint"max=";amax,"min=";:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。mandl_C1ick()Fori=1To20x=Int(Rnd*200+100)Ifxmod5=0ThenPrintxS=S+xEndIfNextiPrint“Sum=”:SEndSub三、编程题(每题8分,共16分。请将答案写在答题卡指定的位置上,写在其它位置无效。),统计字符串"BeijingUnionUniversity"中"i"的个数。。1232463691、AAA$="BeijingUnionUniversity"2、DIMA(3,3)M=LEN(AAA$)FORK=1TO3FORJ=1TOMFORJ=1TO3B$=MID$(AAA$,J,1)A(K,J)=K*JIFB$="i"THENX=X+1PRINTA(K,J);NEXTJNEXTJPRINT"X=";:输出3~100之间的所有奇数、奇数之和。,建立并输出一个10乘10的矩阵,该矩阵对角线元素为1,其余元素均为0。3、Print"3~100间所有奇数:"4、Dima(10,10)Fori=3To100Step2Fori=1To10Printi;Forj=1To10Sum=Sum+iIfi=jOri+j=11Thena(i,j)=1Elsea(i,j)=0NextiPrinta(i,j);Print"和为:";SumNextjPrintNexti