综合复习VB程序设计

第一VisualBasic一、填空1、VisualBasic是一种面向 2、在VB中工程文件的扩展名是 命令，可选择并添加ActiveX控件4、VisualBasic6.0用于开 二、选择1VB工作模式的是（ 2、可视化编程的最大优点是（）3、下列不能打开属性窗口的操作是（B．按F4键 C．按Ctrl+T4、下列可以打开立即窗口的操作是（ 5、VisualBasic的编程机制是（A．可视 三、简答4、VB第二单的VB程序设一、填空 属性 7、VB中的每个对象（控件）都有一组特征，这组特征称为 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文 二、选择1、以下能够触本框Change事件的操作是（） 3、VB应用程序的运行模式是（） 4、任何控件都具有的属性是（） 就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0 7TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触本框的（）事件 8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框，则可能是因为（）A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSETABSTOP属性设置为 （*入的字符仍然显示出来，而不显示星号，原因可能是（）DLOCKED12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A．PrivateSubText1_GotFocus()EndB．PrivateSubText1_LostFocus()EndC．PrivateSubText1_Change()EndD．PrivateSubText1_SetFocus()End中构成其控件（对象）的三要素是（） 14、决定（Label）显示的属性是（） 15、命令按钮的标题文字由（）属性来设置。 16、若要设置文本的显示颜色，则可用（）属性来实现。 17Click事件过程，则可设置该命令钮对象的（）属性Ture来实现。 三、简答12VisuaBasic后，只创建了一个窗体，若此时保存，需要保存几个文件？各是什么第三VB一、填空 4、在VB中，用 语句设定数组的下界，用 5、在代码模块中加入OptionExplicit的目的 6、functionaa(a1asdate,optionala2asboolean)assingle，写出optional命令的作用 7、在VB中，我们用一个简单 9、通用框（commondialog）属activex控件，它可以显示多个标准框，包括打开/另存为、字体、打印等框，若要显示所有文件，则应设置其属性filter= 11、语句Forj=3To20Step3使循环体执行 次 14、表达式10Mod6\4的值 15、表达式chr(Asc("a")+5)的值 16、VB中使用注释有2种方法， 语句补充完整：DimJuzhen(_ _)asInteger。 按值传递和 。21、为了保证程序中必须对变量的强制性定义，需要在代码模块的部分加 23、表达式Mid("UniversityOfPetroleum",8,4)的值 常量 命令，可选择并添加ActiveX控件28 是程序中VB停止执行的地方 32、自字符串N1位开始向右取N2个字符，要使 函数 36、函数Abs(x)的功能 37、表达式3/6*5的值 二、选择 4、语句DIMAA(3,4,5)中定义的数组有 PRINTB$ PrintFormat$(32548.5, AStatic类型，则该过程中的局部变量都是StaticB．Sub过程中不能嵌套定义SubC．Sub过程中可以嵌套调用Sub8、VisualBasic提供的OnErrorResumenext错误陷阱语句表示（ A．当发生错误时，使程序转跳到语句标号为0的程序块 B．ExitDo C．ExitSub 10、在VisualBasic中语句的续行号采用（ Fori=1toForj=5to1Step–1Printi*jNext则语句Printi*j的执行次数是 12、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个 13TRUE赋值给一个整型变量，则整型变量的值为（ 14、下列叙述不正确的是（A．INT(-13.2)=- B．INT(-13.2)=C．INT(-13.2)=- D．INT(-13.2)=- 17、变量未赋值时，数值型变量的值为（） 18、下列语句中正确的是（） 20、以下（）程序段可以实施X、Y变量值的变换（） C．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y B．SGN(-26)=-C．SGN(-26)= D．SGN(-26)=-22Str2的取值是（DimStr1,Str2asString TypeStudent AsstringnameAsStringageAsIntegerEnd针对上述定义，如下几项用法正确的是（ B．DimsAsStudentC．DimsAsTypeStudent D．DimsAsType Form1、Form2mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubfrmfunction1()EndSubForm2PublicSubEndPublicSubEndC．frmfunction1form1中调用，而frmfunction2则可以在所有模块或窗体中被直接25、VBDo……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代Dimi,nasIntegern=20i=1Printi;i=i+LoopUntiliA．当型循环，20 B．直到型循环，10C．当型循环，10 D．直到型循环，2026InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（） 组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（）28VBVB（A．控 C．ADO控 D．ActiveX控294+56*78Mod9的值是（ 三、简答9DimA(-3To5AsInteger11、数学式(2xa)(3yb对应的VB122>3And4<=5Or4>4192.75*23.45四、读程序PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$=Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseA$=EndSelectPrintA$EndPrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJNextIEndSubinsert(aAsSingle,ByValxAsSingle)Dimmasinteger,nasintegerDoWhilen<20Andx>a(n)Form=20-1TonStep–1NextmEndSubsubP(b()AsInteger)Fori=1To4NextiEndPrivateSubDima(1To4)AsIntegera(1)=5aaaFori=1To4Printa(i)NextiEndSubsele()DimnasIntegerDoWhilei>nPrintEndSubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegerIf(a>=b)and(a>=c)or(b>c)ThenPrintaPrintPrinta;b;cEndSubswap()DimxasIntegerDimyasIntegerDimzasIntegerPrintx;y;zPrintx,y,zEndSubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegerIf(a>=b)and(a>c)ThenPrintaPrinta,b,cEnd五、编程命令按钮。提示400400100Lable2（Commad180＞成绩≥7070＞成绩≥6060＞成绩≥0，输出不error信息。4916371＝33+73+13371是水仙花数。第四用一、填空 2、在VB中，最主要的两种对象 来实现 属性设置 事件 事件 PrivateSubCommand1_Click() PrintList1. EndPrivateSubList1_Click() EndPrivateSubCommand1_Click()ForI=1To5 NextIEndSubPrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入的第”&I&“项内容 NextIEndPrivateSubHscroll1. ()Label1.Caption=Hscroll1. EndPrivateSubHscroll1. ()Label1.Caption=Hscroll1. End14、列表框（ListBox） 、 。、16、keydown与keypress事件各有其参数，若需获得用户按下"a"还是"A"需用 17控 二、选择 2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（ 6（）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变7、下列说法正确的是（）B．按下一次DELD．按住ALT9、下列关于设置控件属性的叙述正确的是（10、不可以通过下列（） B．在代码中用CALL语句调C．在代码中用SETFOCUS方 A．设置窗体的VISIBLE属性 B．设置窗体的CAPTIONC．调用窗体的SHOW方法 D．设置窗体ENABLED属性12、下面（）对象无CAPTION属性 滤，后者使用（）属性进行该项设置。 A．chkBoy.Checked=true C．chkBoy.Selected=true D．chkBoy.Value=115、计时器（Timer）Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（） 16VB中窗体（Form）的说法中，不正确的描述为（A．执行UnloadForm语句后，窗体Form，但仍在内存17、关于滚动条控件，下面说法错误的是（A．点击滚动条的箭头，可以改变它的value值，从而Change事DChange事件，而且是连续触发的PriVateSubCommand1_C1ick()a$="softwareandhardware"Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是（ 等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（）C．Hide 哪个选项用于表示拖动事件（） 三、简答2changescroll事件有什么不同？5、假定有一个菜单项，名为Item，为了在运行时使该菜单项失效（变灰，应使用什10、在KeyPress四、读程序OptionBasePrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1PrintEndPrivateSubForm_load()d=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub五、编程2Text1Text2ASCII码值。要求在文Text2ASCII码值，如下图所示。六、程序分析填时可进行“剪切“”和“粘贴”操设在窗体部分定义了一个变量str1，用于保存和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。PrivateSubbtnCut_Click()End2123100DoWhile……Loop循环结构实现这PrivateSubDimsum,countasIntegerDowhilecount<=100EndSubPrivateSubCommand1_Click()DimiAsIntegerDimsAss=txtname.Text&"Fori0ToList1.ListCount1Label3.Caption=sEnd4Timer1Form11110的随机整数，请PrivateSubEndPrivateSub‘End第五一、填空1、文件按存取方式及其组成结构可分为 文件、 文件和 2为了使文件列表框List1和 列表框Dir1之间能产生同步效果必须在 和文件列表框。二、选择 三、简答#四、编程第六形操一、填空1、使用 方法可在窗体中进行文本的输出，用 方法可画圆， 2、 3、为了使一个Picture控件能自动根据装入的调整大小，应设置该控件的 二、选择1、下列关于控件画法的叙述错误的是（件 三、简答四、编程 下的文件列表，并能够预览选定的第七向一、填空 2、语句DIMTEMPASObject的作用 二、简答第八面设一、简答第九VisualBasic一、简答二、编程23、5、7123m×n的实型矩阵A(m,n)45710788、858、23324位第一VisualBasic一、填空 二、选择1、 2、 3、 5、第二单的VB程序设一、填空1、6、name和caption二、选择1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、第三VB2、4、optionbase、ubound、lbound6、表示a27、10、12、redimpreservearraya(ubound(arraya())+1)14、15、18、1to4,1to521、OptionExplicit2729、30、OptionExplicit36x37、二、选择1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、19、20、21、22、23、24、25、26、27、28、28、30、四、读程序B246832 五、编程

PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption是闰年"'IfIfyearMod40AndyearMod1000ThenLabel2.Caption="是闰年"Label2.Caption不是闰年EndIfEndIfEndPrivateSubDimm,n,rAsm=Val(Text1.Textn=Val(Text2.TextIfm<0Orn<0 ‘若判断为数据，Then子句输出相应信Label2.Caption ‘Elser=mModDoWhiler<>m=n=r=mModn‘nnLabel2.Caption最大公约数为：&nEndIfEndPrivateSubDimxAsx=Ifx>100Orx<0Text2.Text="error"ElseIfx<60ThenText2.Text不及格ElseIfx<70Text2.Text及格"ElseIfx<80ThenText2.Text中等"ElseIfx<90ThenText2.Text良好Text2.Text优秀EndIfEndPrivateSubDimiAsShow'使输出可见Form1.Font新宋体"Fori=9To16Step1Form1.FontSizeiPrinti;"号字型"NextiEndSubPrivateSubDima(1To11)AsSinglea11Dimi,jAsIntegerDimnumAsSingle'a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=a(6)=13:a(7)=16:a(8)=19:a(9)=a(10)='Fori=1ToLabel2.Caption=Label2.Caption&a(i)&",NextnumVal(Text1.Text)'把输入的数队列中Fori=10To1Step-Ifnum<a(i)a(i+1a(i 'a(i+1)=Exit 'EndNext'Fori=1ToLabel3.Caption=Label3.Caption&a(i)&",NextiEndSubOptionBasePrivateSubConstN= '常量NDima(N,N)AsIntegerDimi,j,TempAsInteger'Fori=1ToN Fori1NForj=1ToNa(i,j)=i*10+jNextjNext'PrintFori1To Fori1Forj=1ToPrinta(i,j);NextjNexti'Fori=1ToN 'For循环i从1变化到NForj=1Toi '交换Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=NextjNexti'PrintFori=1ToN Fori1NForj=1ToNPrinta(i,j);NextjNextiEndSubPrivateSubDima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=Fori=1Toa(i)=Int(Rnd*101)sum=sum+a(i)Nextave=sum/10Printsum,aveEndSubPrivateSubDimi,j,k,FlowerAsIntegerFori=1ToForj=0ToFork=0ToFlower=i*100+j*10+ Floweri^3j^3k^3ThenPrintFlower是水仙花数"NextkNextjNextiEndPrivateSubDimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption输入数据有错k=Sqr(m)+1Fori=2Toky=mModIfy=0ThenExitForNextiIfy=0Label2.Captionm&不是素数Label2.Captionm&是素数EndIfEndIfEndOptionBasePrivateSubConstN= 'NDima(N,N)AsDimi,j,row,line,minAsIntegerFori1To Fori1变化到Forj1To Forj1变化到a(ijInt(100*Rnd) '产生N*N1~100NextjNexti'Print数组内容是："Fori=1ToNForj=1ToNPrinta(i,Next 'Next'mina(1,1row1:line1'寻找最小数Fori=1ToForj=1ToIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'Print最小值是：Print在第row;行第line列"EndSubPrivateSubDima,b,c,delt,realpart,imagpartAsa=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text):delt=b*b-4*a*cIfa=0Label2.Caption="是一元一次方程:" b<>0thenText4.Text="x1="&-c/Ifc=0Text4.Text有无穷根"Text4.Text无根"EndifEnd'IfIfdelt=0Label2.Caption有两个相等的实根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0Label2.Caption="有两个不等的实根:"Text4.Text"x1&bSqr(delt2*a)Text5.Text="x2="&(-bSqr(delt2*a)Label2.Caption有两个共轭复根realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"End 'EndIfIfEnd 'EndIfIfEndPrivateSubDimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0Label2.Caption="error"ElseIfn=0ThenLabel2.Caption=DoWhilei<=nt=t*ii=i+1Label2.Caption=n&"!="&EndIfEndSubPrivateSubDimPrev, sumAsLongDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1.Caption20项为&Label2.Caption20项的和为&sumEndSub第四用一、填空1、8、9、10、scroll和change18、Form2.Show二、选择1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、19、20、21、22、三、简答键盘命令，常用形式Alt+字母。4、Scroll6、Interval属性8、为一个菜单项设置热键时需要在相应字符前面加&择10、在KeyPress012、四、读程序5五、编程PrivateSubForm_Load()Timer1.Interval=EndPrivateSubTimer1_Timer()Txttime.text=TimeEndPrivateSubCommand1_Click()DimCharAsString*1Char=Trim(Text1.Text)Text2.Text=Text2.Text&Spc(5)&Char&_Spc(10)&Str(Asc(Char))&chr(13)&chr(10)Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub六、程序分析填PrivateSubbtnCut_Click()Str1=text1.selTexttext1.selText=“”EndPrivateSubDimsum,countasIntegerSum=Count=Dowhilecount<=100Count=count+Sum=sum+countEndSubPrivateSubCommand1_Click()DimiAsIntegerDimsAss=txtname.Text&"Fori=0ToList1.ListCount-IfList1.Selected(i)ThenS=s&List1.List(i)EndLabel3.Caption=sEndPrivateSubTimer1.Interval=EndPrivateSubTimer1_Timer()Form1.PrintInt(Rnd*10)+End第五一、填空2、dir1的chang、list1.path=dir1.path 二、选择1、2、三、简答2ASCⅡ码文件和二进制文ANSI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的位置，因45、Print#语句用来将一个或多个格式化的数据写入顺序文件，Write#Print#EOF函数检测是否已经达到文件末尾四、编程PrivateSubCommand1_Click()Dimif1AsInteger,if2AsIntegerDimsf1AsString,sf2AsStringDimbufferAs sf1InputBox("请输入源文件名：源文件sf2InputBox("请输入目标文件名：目标