VB程序设计复习题(归类)

..优选"VB程序设计"综合复习资料一、填空题：〔第一章VisualBasic程序设计概述〕1、VisualBasic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。2、在VB中工程文件的扩展名是_Vbp，窗体文件的扩展名是frm_， 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件的扩展名是_bas_。3、执行"工程〞菜单下的部件命令，可选择并添加ActiveX控件。4、VisualBasic6.0用于开发_WINDOWS环境下的应用程序。第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_Tabstop___属性。2、一个控件在窗体的位置由__Left___和_top___属性决定，其大小由__height_和_width_属性决定。3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_enabled__属性为true，才能承受焦点。4、设置控件背景颜色的属性名称是_backcolor__。5、所有控件都具有的共同属性是__name__属性。6、一般情况下，控件有两个属性项的缺省值是一样的，这两个属性项是_name和caption。7、VB中的每个对象〔控件〕都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。9、VB有三种工作模式，分别是设计〔Design〕模式、_运行模式__和中断〔Break〕模式。第三章1、一般可以使用____Const______关键字声明常量。2、_Variant_类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。3、变量的声明分为两种方法：_隐式声明__和__显示声明__。、4、在VB中，用_optionbase_语句设定数组的下界，用ubound_和_lbound语句分别返回数组的上、下界。5、在代码模块中参加OptionExplicit的目的是_强制变量声明。6、functionaa(a1asdate,optionala2asboolean)assingle，写出optional命令的作用表示a2是一个可选参数__。7、在VB中，我们用一个简单的_End__语句就能实现退出程序。8、生成消息框的命令是_Msgbox_，生成输入框的命令是Inputbox__。9、通用对话框〔mondialog〕属activex控件，它可以显示多个标准对话框，包括翻开/另存为、字体、打印等对话框，假设要显示所有文件，那么应设置其属性filter=_*.*__，假设要使它显示为打印对话框，那么应使用什么方法_、showprint__。10、从字符串中任意位置截取字符的函数是_Mid()__。11、语句Forj=3To20Step3使循环体执行了___6___次。12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组的数据，那么应使用语句__redimpreservearraya(ubound(arraya())+1)__。13、在VisualBasic中声明静态变量的关键字是___static___。14、表达式10Mod6\4的值为___0___。15、表达式chr(Asc("a")+5)的值为___f______。16、VB中使用注释有2种方法，即__rem_和__’______。17、VB中的数据以四种形式存储：常量、_变量、数组和记录。18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：DimJuzhen(_1to4,1to5_)asInteger。19、控件数组由一组一样类型的控件组成，这些控件共用一个一样的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性_Index__来设置下标。20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和_按地址__。21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明局部参加_OptionExplicit__语句。22、分析For……Next循环构造的实例：Fori=5To30Step2中，循环体一共执行了_13_____次。23、表达式Mid("UniversityOfPetroleum",8,4)的值为_ityo__。24、常量分为普通常量和_符号_常量。25、要将大写字母转换为小写字母，可使用_LCase__函数。26、不管焦点在哪个控件上，按___ESC__键相当于按了取消按钮。27、执行"工程〞菜单下的_部件__命令，可选择并添加ActiveX控件。28、断点_是程序中VB停顿执行的地方。29、逻辑常量为True或__False___。30、使用了_OptionExplicit__的声明后，当程序中使用未经声明的变量时，程序运行时会报错。31、要将小写字母转换为大写字母，可使用UCase__函数。32、自字符串N1位开场向右取N2个字符，要使用_Mid__函数。33、日期常量表示时，用符号___#___将日期型数据括起来。34、局部变量只能在_过程_中声明和使用。35、模块级变量的声明关键字是Dim或__private___。36、函数Abs(x)的功能是_求x的绝对值____。37、表达式3/6*5的值是_2.5___。第四章1、向列表框控件添加新工程的方法是__AddItem__。2、在VB中，最主要的两种对象是_窗体___和__控件___。3、当窗体启动时可通过StartUpPostion__属性控制窗体位于所有者的中心位置。4、假设要将窗体Form1隐藏起来，那么可通过执行代码__form1.hide__来实现。5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的___sorted______属性为___ture___。6、窗体上放置了假设干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，那么在设计时需要将__text1__控件的_tabindex__属性设置为__0____。7、在标签控件过编程使文字换行用的代码是__chr(10)___。8、设置计时器控件只能触发___timer____事件。9、设置计时器对象触发事件的时间间隔用__interval___属性。10、滚动条控件主要支持两个事件，它们是__scroll和change__事件。11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_mousepointer_。12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。〔1〕按下命令按钮mand1时将列表框第8项的容显示在窗体上：PrivateSubmand1_Click()List.__selected__(7)=TruePrintList1._text_EndSub〔2〕单击列表框某一项时立即将该项打印在窗体上：PrivateSubList1_Click()Print___list1.text___EndSub〔3〕按下命令按钮mand1时在窗体上删除第1、3、5、7、9项：PrivateSubmand1_Click()ForI=1To5List1.__removeitem2*i-1__________NextIEndSub〔4〕在列表框的每一项之后插入一个新的项：PrivateSubmand1_Click()ForI=1to10X=InputBox("请输入插入的第〞&I&"项容〞)List1.AddItem__x,2*i-1__________NextIEndSub13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1.___change____()Label1.Caption=Hscroll1.___value__EndSub要使拖动滚动条滑块时标签容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1.__scrol___()Label1.Caption=Hscroll1.__value____EndSub14、列表框〔ListBox〕用于列出可供选择的工程的列表，用户可以选择一个或多个工程。它具有几个非常重要的数组属性，其中__List__属性存放了列表框中所有工程的值。15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进展设置可以改变这些工程的状态，其中与复选标志相对应的属性是__Checked_。16、keydown与keypress事件各有其参数，假设需获得用户按下"a"还是"A"需用__keypress___事件。17、控件组合框组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。18、假设需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_Form2.Show1__来实现。19、菜单中的分隔条是一种菜单控件，不响应__Click〔或鼠标单击〕_事件，不能被选中。第五章1、文件按存取方式及其组成构造可分为_顺序__文件、随机__文件和、二进制____文件。2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在_dir1的chang__事件过程中参加语句_list1.path=dir1.path__。3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__目录列表框__和文件列表框。第六章图形操作1、使用__print__方法可在窗体中进展文本的输出，用_circle__方法可画圆，用_line___方法可画直线。2、用___loadpicture___函数可加载图形。3、为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的_autosize___属性为True。第七章面向对象的编程1、类是具有一样性质的对象的__集合_______。2、语句DIMTEMPASObject的作用是____定义了一个对象类型的变量TEMP_。第三章VB根本语言四、读程序题1、分析以下程序，写出运行结果。PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseElseA$="A"EndSelectPrintA$EndSub结果如下：B2、读下面的程序，分析其功能，写出运行结果。在窗体上有一个命令按钮，名称为mand1。然后编写如下程序：PrivateSubmand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，那么在窗体上显示的容是什么？结果如下：BBCCCDDDDEEEEE3、阅读下面的程序，分析并写出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern=1DoWhilen<20Andx>a(n)n=n+1LoopForm=20-1TonStep–1a(m+1)=a(m)Nextma(n)=xEndSub功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。4、分析以下程序，写出运行结果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubmandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，输出结果是什么？输出结果为：24685、分析以下程序，写出运行结果。Subsele()DimnasIntegeri=21:n=3DoWhilei>ni=i－nLoopPrintiEndSub输出结果为：36、分析以下程序，写出运行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c)ThenPrintaa=a+2ElsePrintbEndIfPrinta;b;cEndSub输出结果为：24527、分析以下程序，写出运行结果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub输出结果为：1200208、分析以下程序，写出运行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub输出结果为：3332第四章常用控件与窗体1、对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序运行后，按回车键，输出结果是什么？输出结果为：49852、阅读下面的程序，写出执行结果。PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub结果如下：14PrivateSubForm_Click()Dima(10)AsInteger,五、编程题1、输入一年号，判断它是否是闰年。界面如以以下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，那么它是闰年；否那么，不是闰年。1、参考代码如下：PrivateSubmand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是闰年"Else'下面是嵌套块If语句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是闰年"ElseLabel2.Caption="不是闰年"EndIfEndIfEndSub2、输入两个正整数m、n，求m和n的最大公约数。要求建立如以以下图所示的窗体，其中主要的控件包括：两个标签〔Lable1、Lable2〕、两个文本框〔Text1、Text2〕和一个按钮〔mand1〕。2、程序参考代码如下：PrivateSubmand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘假设判断为非法数据，Then子句输出相应信息Label2.Caption="输入数据有错！"Else‘假设判断为合法数据，Else子句用辗转相除法求余数r=mModnDoWhiler<>0m=nn=rr=mModnLoop‘循环完毕后n中存放的就是最大公约数，输出n值Label2.Caption="最大公约数为："&nEndIfEndSub3、输入某学生成绩〔百分制〕，假设是100≥成绩≥90输出优秀；假设是90＞成绩≥80输出良好；假设是80＞成绩≥70输出中等；假设是70＞成绩≥60输出及格；假设是60＞成绩≥0，输出不及格；假设是其他数那么输出error信息。3、参考代码如下：PrivateSubmand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>100Orx<0ThenText2.Text="error"ElseIfx<60ThenText2.Text="不及格"ElseIfx<70ThenText2.Text="及格"ElseIfx<80ThenText2.Text="中等"ElseIfx<90ThenText2.Text="良好"ElseText2.Text="优秀"EndIfEndSub4、在窗体中显示从9号字型到16号字型。4、参考代码如下：PrivateSubForm_Load()DimiAsIntegerShow'使输出可见Form1.Font="新宋体"Fori=9To16Step1Form1.FontSize=iPrinti;"号字型"NextiEndSub5、在有序序列中插入一个数，使插入后的数列仍然有序〔设按由小到大排列〕。5、参考代码如下：PrivateSubmand1_Click()Dima(1To11)AsSingle'定义静态数组a含11个元素Dimi,jAsIntegerDimnumAsSingle'给数组元素赋初值，即原始队列a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=9a(6)=13:a(7)=16:a(8)=19:a(9)=33a(10)=38'输出原始队列Fori=1To10Label2.Caption=Label2.Caption&a(i)&","Nextinum=Val(Text1.Text)'把输入的数插入队列中Fori=10To1Step-1Ifnum0thenText4.Text="x1="&-c/bElseIfc=0thenText4.Text="有无穷根"ElseText4.Text="无根"EndifEndifElse'下面嵌套块If语句Ifdelt=0ThenLabel2.Caption="有两个相等的实根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有两个不等的实根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有两个共轭复根:"realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndIf'此行EndIf局部与层的块If语句对应EndIf'此行EndIf局部与外层的块If语句对应EndSub12、输入一个正整数n，计算出n!并输出。12、参考代码如下：PrivateSubmand1_Click()Dimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0ThenLabel2.Caption="error"ElseIfn=0ThenLabel2.Caption="0!=1"ElseDoWhilei<=nt=t*ii=i+1LoopLabel2.Caption=n&"!="&tEndIfEndSub13、Faibonacci数列为0，1，1，2，3，5，8，13…，计算并输出第20项以及前20项的和。13、参考代码如下：PrivateSubForm_Load()DimPrev,Last,NewOne,sumAsLongDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1.Caption="第20项为"&NewOneLabel2.Caption="前20项的和为"&sumEndSub第四章常用控件与窗体五、编程题1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。1、参考代码如下：PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Txttime.text=TimeEndSub2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如以以下图所示。Text1Text2mand12、参考代码如下：PrivateSubmand1_Click()DimCharAsString*1Char=Trim(Text1.Text)Text2.Text=Text2.Text&Spc(5)&Char&_Spc(10)&Str(Asc(Char))&chr(13)&chr(10)Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub3、编写一个程序，能够实现任意个整数的排序。4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有"加、减、乘、除〞等四个菜单项的"计算〞菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。5、编程实现任意两个数的"加、减、乘、除〞。6、编写一个程序，能够求任意个正整数的最大值和最小值。7、编程求任意两个正整数的最大公约数。六、程序分析填空题六、程序分析填空题1、建立一个如以下图的简单编辑器。用户在文本框〔text1〕中输入正文后，选中某些文本时可进展"剪切〞、"复制〞和"粘贴〞操作。假设在窗体声明局部定义了一个变量str1，用于保存复制和剪切的容，请把剪切按钮(btnCut)的Click事件补充完整。程序运行界面：PrivateSubbtnCut_Click()‘请补充Str1=text1.selTexttext1.selText="〞EndSub2、计算1+2+3+……+100的和并输出。请把下面用DoWhile……Loop循环构造实现这一功能的代码补充完整。PrivateSubForm_Load()Dimsum,countasInteger‘请补充Sum=0Count=0Dowhilecount<=100‘请补充Count=count+1Sum=sum+countLoopText1.Text=sumEndSub3、列表框控件〔ListBox〕支持多项选择，这项功能在对用户的兴趣爱好进展调查的时候显得非常好用，在以以下图所示的界面中列表框List1用于列出爱好选项，供用户进展多项选择。请把以下代码补充完整，能够取得用户的所选爱好选项：PrivateSubmand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"爱好"Fori=0ToList1.ListCount-1‘请补充IfList1.Selected(i)ThenS=s&List1.List(i)EndIfNextLabel3.Caption=sEndSub4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把以下代码补充完整：PrivateSubForm_Load()Show‘请补充Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()‘请补充Form1.PrintInt(Rnd*10)+1EndSub第五章文件四、编程题1、实现二进制方式文件的复制。1、参考代码如下：PrivateSubmand1_Click()Dimif1AsInteger,if2AsIntegerDimsf1AsString,sf2AsStringDimbuffer()AsByte‘使用动态数组sf1=InputBox("请输入源文件名：","源文件")sf2=InputBox("请输入目标文件名：","目标文件")Ifsf1=""Orsf2=""ThenExitSubif1=FreeFileOpensf1ForBinaryAsif1'翻开源文件if2=FreeFileOpensf2ForBinaryAsif2'创立目标文件ReDimbuffer(1ToLOF(if1))'分配存Get#if1,,buffer'读源文件Put#if2,,buffer'写目标文件Close'关闭所有翻开的文件MsgBox"完成复制。"EndSub2、如以以下图所示，实现一个简单的文件管理器。2、参考代码如下：PrivateSubcmdCopy_Click()DimdestFileAsStringIffSource.FileName=""ThenExitSub'先选定文件destFile=InputBox("输入目标文件名：")IfdestFile<>""Then'不为空FileCopyfSource.FileName,destFile'复制文件EndIfEndSubPrivateSubcmdExit_Click()EndEndSubPrivateSubcmdKill_Click()DimresIffSource.FileName=""ThenExitSub'首先选定文件res=MsgBox("确定要删除文件"&fSource.FileName&"了吗？",vbOKCancel)Ifres=vbOKThen'确认操作KillfSource.FileName'删除文件EndIfEndSubPrivateSubcmdName_Click()DimdestFileAsStringIffSource.FileName=""ThenExitSub'首先选定文件destFile=InputBox("输入新文件名：")IfdestFile<>""ThenNamefSource.FileNameAsdestFile'命名〔移动〕文件EndIfEndSubPrivateSubdirSource_Change()fSource.Path=dirSource.Path'与文件列表关联EndSubPrivateSubdrvSource_Change()dirSource.Path=drvSource.Drive'与文件夹关联EndSub第六章图形操作四、编程题1、如以以下图显示当前目录下的图片文件列表，并能够预览选定的图片。1、参考代码如下：PrivateSubdrvList_Change()dirList.Path=drvList.Drive'设置当前驱动器EndSubPrivateSubdirList_Change()fileList.Path=dirList.Path'设置当前目录EndSubPrivateSubfileList_Click()DimsAsString's为所选文件的全称IfRight(fileList.Path,1)="\"Thens=fileList.Path&fileList.FileNameElses=fileList.Path&"\"&fileList.FileNameEndIfLabel4.Caption=sIfRight(s,1)<>"\"ThenImage1.Picture=LoadPicture(s)'显示图片EndSubPrivateSubForm_Load()fileList.Pattern=txtFile.Text'初始化文件列表框EndSubPrivateSubtxtFile_LostFocus()fileList.Pattern=txtFile.Text'改变筛选条件EndSub第九章VisualBasic与数据库二、编程题1、请编程实现每两秒在标签中显示一次当前的时间。2、找出被3、5、7整除，余数为1的最小的2个正整数。3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。4、找出能同时被5和7整除的最小的10个正整数。5、编写一个程序，能够输出100~1000之间所有的素数。6、从键盘上任意输入100个整数，统计负数的个数，并计算正数的和。7、有一种数，正序读与反序读都一样，这种数叫回文数，如88、858、2332等。求出4位数以〔0～9999〕的所有回文数。8、输出"九九乘法表〞。