VB程序设计知识点归纳

第一章1从功能上讲，VisualBasic6.0有3种版本，即：学习版、专业版、企业版2与传统的程序设计语言相比，VisualBasic最突出的特点是事件驱动编程机制。3VisualBasic6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏4用 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 工具栏中的工具按钮不能执行的操作是打印源程序。5关于VisualBasic"方法"的概念错误的是方法是对事件的响应6在VisualBasic中，称对象的数据为属性7VisualBasic应用程序可以用解释方式执行也可以用编译方式执行第二章1计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled属性设置为False，如果 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于10002利用Ctrl+G操作可以打开立即窗口。3假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle=0Lable1.BorderStyle=04在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口5在VisualBasic中，窗体文件的扩展名为FRM6窗体的Name属性指定窗体的名称，用来标识一个窗体7改变控件在窗体中的上下位置，应修改该控件的属性是Top8表示滚动条控件取值范围最大值的属性是Max9如果要改变窗体的标题，则需要设置的属性是Caption10在文本框（Text）中，通过ForeColor属性来设置字体颜色11若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值为*12能够改变复选框中背景颜色的属性是Backcolor13图片框是不具有Picture属性的对象14窗体的Name属性指定窗体的名称，用来标识一个窗体15要想返回文本框中输入的内容则可利用text属性进行编程第三章1用于从字符串左边截取字符的函数是Left()，设a="VisualBasic"，使b="Basic"的语句是b=Left(a,8,5)。2下列符号中哪个是VB程序中合法的变量名：A?ab7B?7abC?IfD?a*bc（A）数字开头，关键字，*3X是小于100的非负数，用VB表达式表达正确的是0<=XandX<1004设有如下变量声明　DimTestDateAsDate为变量TestDate正确赋值的表达方式是TextDate=#1/1/2002#5表达式4+5\6*7/8Mod9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25为1如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如：5\2.5等价于5\25\2.6等价于5\35\2.4等价于5\25.4\3等价于5\35\1.5等价于5\26函数String(n，"str")的功能是返回由n个字符组成的字符串7设有如下声明：DimXAsInteger如果Sgn(X)的值为-1，则X的值是小于0的数Sgn(3-5)=-1Sgn(5-3)=18Integer类型的数据由2字节组成，Long类型的数据由4字节组成。9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-210在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③①以下合法的VisualBasic标识符是那些：A?ForLoopB?ConstC?9abcD?a#xA通常所说的变量名11能正确表示条件"整型变量x值是大于等于-5并且小于等于5"的逻辑表达式-5<=xandx<=512求下列表达式的值：表达式4+5\6*7/8Mod9的值是5，表达式5Mod3+3\5*2的值是2设a=2,b=4,c=6，下列表达式a>bEqvc<a的值为真Eqv相同为true相反为false设S="中华人民共和国"，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为"中国人民"表达式2*4^2-2*6/3+3\2的值是29表达式5＾2Mod252＾2的值是113VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余14获得系统日期的函数是date（）15数学式子sin30°写成VB表达式是：?Sin(30*3.14/180)16在VisualBasic的立即窗口内输入以下语句X＝65?Chr$(X)在窗口中显示的结果是__A__17计算下列表达式的值表达式93?Mod?2^2的值是__1__。表达式Len(＂123程序设计ABC＂)的值是__10__。Int（198.555*100+0.5）/100的值是__198.56__。（123445）左取4位1234中取4位开始2位18数学关系3≤x＜10表示成正确的VB表达式为3<=x?And?x<10??或??x>=3?and?x<1019表示x是5的倍数或是9的倍数的逻辑表达式是x?mod?5=0?or?x?mod?9=020s$=“china”：s$=“Beijing”：Print s$以上语句的输出结果是___。参考答案Beijing21表达式Ucase(Mid(＂abcdefgh＂,3,4))的值是_CDEF_。22已知a=3.5，b=5.0, c=2.5,d=true,则表达式：a>=0 and a+c>b+3 OR NOT d的值是_False__。第四章1VB中可用MsgBox语句产生一消息框。2VB提供了结构化程序设计的三种基本结构，三种基本结构是：选择结构  或  循环结构  或  顺序结构3InputBox函数返回值的类型为字符串。J下列语句正确的是(C)A IfA≠BThenPrint"A不等于B"B IfA<>BThenPrintf"A不等于B"C IfA<>BThenPrint"A不等于B"D IfA≠BPrint"A不等于B"4在DoUntil…Loop循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时结束循环5在While循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时执行循环体6设a=6，则执行x=IIf(a＞5,-1,0)后,x的值为–1Ifa>5thenA=-1ElseA=0endif7要使下列For语句循环执行20次，循环变量的初值应当是多少?For k=     __1__To -5 Step -2参考答案1：33N=(终值-初值)/2+18以下语句的输出结果是:PrintInt(12345.6789*1000.5)/100参考答案123459给出下列程序运行的结果（1）x=5y=-6IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-x结果-33（2）J1=4J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1结果为9（3）执行以下程序段后，变量c$的值为（QuickBASICPrograming）a$="VisualBasicPrograming"b$="Quick"c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,11)（4）以下语句的输出结果是032,548.50。PrintFormat$(32548.5,"000,000.00")(5)在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()A=Text.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""EndSub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为123321。(6)阅读下面的程序段：ForI=1To3i=1i=2i=3Forj=1ToIj=1to1j=1to2j=1to3Fork=jTo3k=1to3k=1to3k=2to3k=1to33A=A+1a=3a=3+3+2k=2to32Nextkk=3to31Nextja=8+3+2+1NextI执行上面的三重循环后，a的值为__14__。(7)在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程：PrivateSubCommand1_Click()X=0DoWhilex<50X=(x+2)*(x+3)N=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序执行后，单击命令按钮，在两个文本框中显示的值分别为2和72。（8）设a=10，b=5，c=1，执行语句Printa>b>c后，窗体上显示的是False(9)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub　程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为156Static无法释放x=5+5+5y=1+5(10)设有语句　x=InputBox("输入数值"，"0"，"示例")程序运行后，如果从键盘上输入数值10并按回车键，变量X的值是字符串"10"(11)在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一个计时器控件，名称为Timerl的时间。程序为：PrivateSubTimer1_()TxtTime.text=TimeEndSub在下划线上应填入的内容是Timer（12）假定有以下程序段：Fori=1To33-1/1+1=3Forj=5To1Step-11-5/-1+1Printi*j3*5NextNext则语句Printi*j的执行次数是15（13）以下程序段的输出结果为(4)x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx（14）在窗体上面画一个文本框，然后编写如下事件过程：PrivateSubForm_Activate()Text1.Text=""Text1.SetFocusFori=1to10Sum=Sum+iNextText1.Text=SumEndSub上述程序的运行结果是55首相加末项*项数/2（15）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n\3NextnPrintnEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是(21)（16）设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是(1/2+2/3+3/4+4/5)（17）下面程序运行后，窗体(Form1)中输出的结果是(TrueTrue)PrivateSubForm_Load()Form1.AutoRedraw=True设置form1让他显示结果X=3:y=5Printx=3;y=5x是否=3（18）下面程序执行的结果是(579)PrivateSubCommand1_Click()A="123":b="456"C=Val(a)+Val(b)2边是数字则做加法PrintcEndSub（19）若i的初值为8，则下列循环语句的循环次数为（5）次同样可以用公式：（终值-初值）/步长+1DoWhilei<=17i=i+2Loop（20）执行下面的程序段后，x的值为(21)x=5Fori=1To20Step2x=x+i\5NextI（21）下面程序运行后，输出的值是(54)PrivateSubCommand1_Click()J=1doWhileJ＜5J=J+1A=A+J*JloopPrintAEndSub（22）有如下程序：PrivateSubFormKeyPress(KeyAsciiAsInteger)Form=1To3Forj=1TomFork=jTo3n=n+m+j-kNextkNextjNextmPrintnEndSub程序运行后，按任意键，n的值是(20)（23）在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()A=″12″B=″34″C=″56″PrintA＋B＋CEndSub程序运行后，单击命令按钮，输出结果是(123456)（24）下面程序运行后输出的结果是(11020)PrivateSubCommand1_Click()A=0ForM=1To10A=A+1∶B=0ForJ=1To10A=A+1∶B=B+2NextJ∶NextMPrintA;BEndSub（25）x=int(Rnd)+3：if x^2>8 theny=x^2+1：if x^2=9 then y=x^2-2：if x^2<8 then y=x^3：print y程序运行后输出的结果是_7_。（26）执行下面的程序段，x的值为PrivateSubCommand1_Click()Fori=1To9a=a+iNextix=Val(i)MsgBoxxEndSub_.参考答案10（27）在窗体上有一个命令按钮，然后编写如下程序：FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumnum=0时循环终止k=k*(numMod10)取个位10位百位相乘num=num＼10LoopTrans=kPrintTransEndFunctionPrivateSubCommand1_Click()DimmAsLongDimsAsLongm=InputBox("请输入一个数")s=Trans(m)EndSub程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为__1__,在输入对话框中输入"987"输出__2__在输入对话框中输入"879"，输出结果为__3__.参考答案1：5042：5043：50410表达式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范围是［-4，8］11语句x+y=x，是错误的赋值语句。12逻辑表达式Not(1＞2)，其逻辑值为“真”13表达式1.5+32＞2Or7Mod3＜4AndNot1的运算结果是(-1)14可以将变量A、B值互换的语句是A=C:C=B:B=A15执行如下语句：a＝inutBox("Today"，"TomorroW，"Yesterday",,,"Daybeforeyesterday"，5)将显示一个输入对话框，在对话框的输入区中显示的信息是(Yesterday)16能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(Form1.Caption="VisualBasic窗体")第五章1如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是（StaticaAsInteger）2声明一个变量为局部变量应该用（Static）3Sub过程与Function过程最根本的区别是(Sub过程不能返回值，而Function过程能返回值)4若要向列表框添加列表项，可使用的方法是（AddItem）5在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名6Sub过程中不可以嵌套调用Sub过程7定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1＝UCase(Mid(S，i，1))十s1NextiFun＝s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrlvateSubCommmldl_Click()DimStr1AsString，Str2AsStringStrl＝inputbox("请输入一个字符串")Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为(GFEDCBA)8复选框的Value属性为__1__时，表示复选框被选中。第六章1用下面语句所定义的数组的元素个数是(9)Dima(-3to5)asinteger2要声明一个长度为256个字符的定长字符串变量str，正确的语句是(DimstrasString*256)3设有数组声明语句：OptionBase0DimB(-1To10,2To9,20)AsInteger则数组B中共有(2016)个元素4在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：PrlVateSubCommandl-C1ickoa$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1，8)Msgboxa$,,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是(hardwafe)5为了清除列表框中的所有内容，应使用的方法是(Clear)程序填空1.下列程序是判断一个整数(>=3)是否为素数，请补充完整。DimnAsIntegern=InputBox("请输入一个整数(>=3)")k=Int(Sqr(n))i=2swit=0Whilei<=kAndswit=0IfnModi=0Then__1__Else：参考答案1.swit=02.swit=1__2__EndIfloopIfswit=0ThenPrintn;"是一个素数。"ElsePrintn;"不是一个素数。"EndIf2.下面程序是用来打印九九乘法表的，请补充完整。DimiAsInteger,jAsInteger,Str1$Str1=""Fori=1To9Forj=1To9If__1__ThenStr1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(ij))ElseStr1=Str1&Chr(13)__2__EndIfNextjNextiPrintStr1参考答案1：j<=I2：j>i3.下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(__1__)If__2__Thenk=k+1Printa(j)NextjPrintPrintk/10EndSub参考答案1：(99*Rnd)+12：a(j)Mod5=04.以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhile__1__Ifx>amaxThenamax=xEndIfIf__2__Thenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";amin参考答案1：x>02：x<amin5.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a+b+xLoopPrintaEndSub在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为__1__.参考答案1：126.下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。　　PrivateSubCommand1_Click()　　DimxAsSingle　　　x=InputBox("请输入x的值！")__1__CaseIs<50　　y=0.8*x　　Case50To100　　y=0.7*x__2__Print"输入的数据出界！"　　EndSelect　　Printx,y　　EndSub参考答案1：SelectCasex2：CaseElse7.设有如下程序段：a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为__1__.参考答案1：Shanghai8执行下面程序，当单击窗体时，显示在窗体上第一行的内容是__1__第二行的内容是__2__PrivateSubForm_Click()DimIAsInteger,SumAsIntgerForI=0.5To8.5Step2.5Sum=Sum+I*10NextIPrintSumprintIEndSub参考答案1：2002：109(难)PrivateSubCommand1_Click()DimsAsString,stAsString,iAsInteger,nAsIntegers=Text1DoUntiln>=Len(s)__1__IfnMod8<>0Thenst=st&Mid(s,n,1)Elsest=st&Mid(s,n,1)List1.AddItemst__2__EndIfLoopEndSubPrivateSubCommand2_Click()DimsAsString,stAsString,iAsIntegerFori=0To__3__st=List1.List(i)Forj=1ToLen(st)s=Mid(st,j,1)&sNextjForj=Len(s)To1Step-1n=__4__NextjText2=Text2&Chr(n)s=""__5__NextiEndSub参考答案1：n=n+12：st=""3：List1.Listcount4：n+2^(j-1)5：n=010下面程序的功能是，找出100以内所有可以表示成3个连续自然数之和的数。完善程序，实现以上功能。(难)　　OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,NAsIntegerDimJsAsInteger,SAsStringForI=1To100IfFun(I,N,Js)ThenS=Str(I)&"="&NDo__1__N=N+1S=S&"+"&NLoopList1.AddItemSEndIfNextIEndSubPrivateFunctionFun(LAsInteger,MAsInteger,JsAsInteger)AsBooleanDimIAsInteger,__2__K=0__3__DoWhileSum<LAndK<3K=K+1Js=Js+1Sum=Sum+JsLoopIf__4__henM=IFun=TrueExitForExitifNextIEndFunction参考答案1：whilen<=js-12：Sum=03：Js=i-14：k=3AndSum=L一、判断题（每题1分，共10分）（）1.由VisualBasic语言编写的应用程序有解释和编译两种执行方式。（）2.文本框控件的MaxLength属性值为0时，在文本框内不可以输入任何字符。（）3.要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。（）4.在一个窗体中不能使用Unload来卸载本窗体，即一个窗体只能由其它窗体卸载。（）5.VB的Double类型数据，可以精确表示其数值范围内的所有实数。（）6.在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。（）7.命令按钮不但能响应单击事件，而且还能响应双击事件。（）8.在自定义函数过程中，函数名必须被赋值。（）9.文本框控件只能响应KeyPress、KeyDown、KeyUp、Change事件。（）10.如果一个菜单项的Visible属性为False，则它的子菜单也会显示。二、单选题（每题2分，共20分）（）11.要改变控件的高度，应修改控件的_______属性。A、TopB、LeftC、HeightD、Width（）12.VB算术运算符乘或除、整除、求余的优先级，从高到低依次为_______。A、乘或除、求余、整除 B、乘或除、整除、求余C、整除、求余、乘或除 D、整除、乘或除、求余（）13.下列哪个属性用来表示标签（Label）的内容和窗体（Form）的标题_______。A、CaptionB、Text C、LeftD、Name（）14.判断整型变量m能否被n整除的VB表达式为_______。A、nModm=0 B、m/n*n=m C、mModn D、m\n*n=m（）15.选中复选框控件时，Value属性的值为_______。A、TrueB、FalseC、0D、1（）16.在窗体Form1的一个事件过程中，使用_______来清除窗体上所绘制的图形的方法是不正确的。A、Form1.ClsB、Form.ClsC、Me.CLSD、Cls（）17.设计动画时通常用时钟控件_______属性来控制动画速度。A、IntervalB、TimerC、MoveD、Enabled（）18.使用Circle方法不可以绘制的图形是_______。 A、圆角矩形 B、椭圆 C、圆饼图 D、扇形（）19.运行时组合框控件Comb1中所选择的表项，可以表示为_______。A、Comb1.TextB、Comb1.ListIndexC、Comb1.ListD、Comb1.ListCount（）20.若i的初值为9，则下列循环语句的循环次数为_______次。DoWhilei<=20i=i+3Loop A、3次 B、4次C、5次D、6次三、程序填空题（每空2分，共20分） 1．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。PrivateSubForm_Click()Dima(30)Asbyte,iasByte,jAsByte,mAsByteFori=1To30a(i)=(21)NextiFori=1To29Forj=(22)Ifa(i)>a(j)Thenm=a(i)(23)a(j)=mNextjNextiFori=1To30If(24)Then(25)NextiEndSub（21）(22)(23)(24)(25) 2．【程序说明】下列程序运行时，单击Command1(0)后，图片每秒自动左移1毫米，单击Command1(1)停止移动（当图片尾部移出窗体后，图片从窗体右端进入窗体）。界面设计如下图1所示。图1程序2的界面设计【程序】PrivateSubCommand1_Click(IndexAsInteger)IfIndex=0Then(26)ElseTimer1.Enabled=FalseEndSubPrivateSubForm_Load()Timer1.Interval=(27)Form1.ScaleMode=6(28)EndSubPrivateSubTimer1_Timer()Picture1.Left=(29)IfPicture1.Left+Picture1.Width<=Form1.ScaleLeftThen_(30)=Form1.ScaleLeft+Form1.ScaleWidthEndSub（26）(27)(28)(29)(30)四、程序阅读题（每小题5分，共20分）程序31、请写出单击窗体三次后，窗体上的显示结果。PrivateSubForm_Click()StaticaAsIntegerDimbAsIntegerb=a+b+2a=a+bForm1.Print"a=";a,"b=";bEndSub程序32、请写出单击窗体后，窗体上的显示结果。PrivateSubForm_Click()Fori%=1To7PrintSpc(7-i);Forj%=1To(2*i%)-1:Print"M";:Nextj%PrintNexti%EndSub程序33、写出程序运行时，单击Option1(2)后，窗体上的显示结果。PrivateSubForm_Load()Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)IfOption1(Index).Value=TrueThenSelectCaseIndexCase0Check1(0).Value=1:Check1(1).Value=0Case1Check1(0).Value=0:Check1(1).Value=1Case2Check1(0).Value=1:Check1(1).Value=1EndSelectIfCheck1(0).Value=1ThenPrint"您好"IfCheck1(1).Value=1ThenPrint"欢迎使用VisualBasic!"EndIfEndSub 程序34、设Text1.Text为"abcdef"，运行时连续单击3次控件HScroll1右侧箭头后，分别写出组合框控件中的第1项、第2项及第3项的内容。PrivateSubForm_Load()HScroll1.SmallChange=1:HScroll1.Max=5HScroll1.Min=1:HScroll1.Value=1Combo1.ClearEndSubPrivateSubHScroll1_Change()Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0EndSub五、程序设计题（每题10分，共30分） 35．编制事件过程Command1_Click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件Text1中显示。（10分） 36.编制通用函数过程fsum，计算Single类型一维数组所有元素的和。（10分） 37.在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。 运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VisualBasic！”同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初态。（10分）VB练习题（一）参考答案试题一、判断题（每小题1分，共10分）1.√2.×3.√4.×5.×6.√7.√8.√9.×10.×试题二、单选题（每小题2分，共20分）11.C12.B13.A14.D15.D16.B17.A18.A19.C20.B试题三、程序填空题（每空2分，共20分）21．Int(Rnd*90)+1022.i+1To3023.a(i)=a(j)24.a(i)Mod2<>025.Printa(i);26.Timer1.Enabled=True27.100028.Timer1.Enabled=False29.Picture1.Left-130.Picture1.Left试题四、程序阅读题(每小题5分，共20分)31.a=2b=2a=6b=4a=14b=832.MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 33.您好欢迎使用VisualBasic! 34.abcdabcab试题五、程序设计题（每小题各10分，共30分）35．编制事件过程Command1_Click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件Text1中显示。PrivateSubCommand1_Click()DimsAsSingle,nAsInteger,xAsSinglen=InputBox("输入n")Fori=1Tonx=InputBox("x="):s=s+xNextiText1.Text=sEndSub36.编制通用函数过程fsum，计算Single类型一维数组所有元素的和。PrivateFunctionfsum(a()AsSingle,nAsSingle)AsSingle DimiAsInteger Fori=1Ton fsum=fsum+a(i) NextiEndFunction37.在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。PrivateSubCommand1_Click()IfCommand1.Caption="显示"ThenPrint"欢迎使用VisualBasic！":Command1.Caption="清除"ElseForm1.Cls:Command1.Caption="显示"EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Form1.Cls:Command1.Caption="显示"EndSubVB练习题（二）一、判断题（每题1分，共10分）（）1．VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。（）2．用DIM定义数值变量时，该数值变量自动赋初值为0。（）3．移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。（）4．列表框和文本框一样均没有Caption属性，但都具有Text属性。（）5．图片框可以通过Print方法来显示文本。（）6．语句“FontName="宋体"”与“Form1.FontName="宋体"”的作用完全相同，无一例外。（）7．SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。（）8．由于定时器控件在运行时是不可见的，因此在设置时可任意地将其放在任何位置。（）9．表示各控件对象的变量名的属性为Caption。（）10.决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。二、单选题（每题2分，共20分）（）11．下列哪个属性用来表示各对象（控件）的位置_______。 A、TextB、Caption C、LeftD、Name（）12．List1.Clear中的Clear是_______。 A、方法 B、对象 C、属性 D、事件（）13．将文本框控件的_______属性设置为True，可正常显示文本但不可编辑。 A、Locked B、Enabled C、MultiLine D、Visible（）14．取字符串Ax从第1个非空格符开始的连续5个字符，写作表达式_______。 A、Mid(Ax,1,5) B、Left(Trim(Ax),5) C、Left(Ax,5) D、Mid(Trim(Ax),5)（）15．数学式(x+5)1/3写成VB表达式是_______。 A、(x+5)^1/3 B、(x+5)^(1\3) C、(x+5)^1\3 D、(x+5)^(1/3)（）16．要使Shape控件以实心方式填充，应该设置其_______属性。 A、FillColorB、FillStyleC、BackStyleD、Shape（）17．将命令按钮Command1设置为不可见，应修改该命令按钮的_______属性。 A、Visible B、Value C、Caption D、Enabled（）18．将变量x、y中的最大数赋值给变量a，正确的表示为_______。 A、a=Ify>xThenyElsex B、Ify>xThena=y:a=x C、a=x:Ify>xThena=y D、Ify>xThena=yElsea=xEndIf（）19．文本框控件Text4的Text属性默认值为_______。 A、Text4B、"Text4"C、Locked D、Name（）20．描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，正确的是_______。A、Circle(1000,1000),400,0,3.1415926/2B、Circle(1000,1000),,400,0,3.1415926/2C、Circle(1000,1000),400,,0,3.1415926/2D、Circle(1000,1000),400,,0,90三、程序填空题（每空2分，共20分） 1．【程序说明】利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）图1动态秒表程序代码如下：DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="动态秒表（小时：分：秒）"Command1.Caption="开始"Command2.Caption="结束"Label1.Alignment=”Center”Label1.Caption="0:0:0"Timer1.Interval=(21)Timer1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()(22)EndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsex=(23)Label1.Caption="运行了"+Str(h)+"小时"+Str(m)+_"分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()(24)h=x\3600m=(xMod3600)\60s=(25)Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub（21）(22)(23)(24)(25)2．【程序说明】本程序将1个大于100的偶数n分解为2个素数之和。其中nflag逻辑型函数用于判断自然数x是否为素数。PrivateSubForm_Click() DimnAsInteger,xAsInteger,yAsInteger n=Val(InputBox(”请输入1个大于100的偶数”，”输入数据”，100)) Forx=3Ton\2Step2 Ifnflag(x)Then y=(26) Ifnflay(y)Then Form1.Printn;”=”;x;”+”;y:ExitFor EndIF EndIf (27)EndSubFunctionnflag(xAsInteger) DimflagAsBooleank=2:m=Int(Sqr(x)) flag=(28) DoWhilek<=m IfxModk=0Thenflag=False (29) Loop nflag=(30)EndFunction（26）(27)(28)(29)(30)四、程序阅读题（每小题5分，共20分）程序31、写出程序运行时单击窗体后，Form1上的输出结果。PrivateSubForm_click() Dimxasstring Dimiasinteger,nasinteger Form1.cls x=”ABCDEFGHKL” n=len(x) fori=nto1step-2 Form1.PrintTab(20-i);Mid(x,i,1) NextiEndsub 程序32、执行下列事件过程时，写出窗体上的显示结果。PrivateSubCommand1_Click()DimxAsLong,iAsIntegerx=60i=2DoWhilex>1IfxModi=0ThenPrinti;:x=x\iElsei=i+1LoopEndSub 程序33、顺序写出运行时在文本框控件Text1中输入abcd后，列表框控件List1中的各表项。 DimsAsStringPrivateSubForm_Load()List1.ClearText1.Text=""EndSubPrivateSubText1_Change()s=s+Text1.TextList1.AddItemsEndSub程序34、运行下面程序，并输入数据分别为129，32，53时，写出label1显示的内容。PrivateSubForm_Click() DimaAsInteger a=Val(InputBox("请输入数据","",100)) SelectCaseamod5 CaseIs<4 w=a+10 CaseIs<2 w=a*2 CaseElse w=a-10 EndSelect Label1.Caption="w="&Str(w)EndSub五、程序设计题（每题10分，共30分） 35.随机产生n个两位正整数（n由输入对话框输入，且0<n<100）,求出其中的偶数之和，并在标签框Label1上显示。（10分） 36.编程，输入x值，按下式计算并输出y值。（10分） 37.在窗体上建立4个命令按钮Command1、Command2、Command3和Command4,运行结果如下图2。（10分） 要求： ⑴命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。 ⑵每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。 ⑶单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。 ⑷4个按钮每单击一次都在窗体上显示“欢迎使用VB”。 ⑸双击窗体后可以退出。图2运行后的显示结果VB练习题（二）参考答案试题一、判断题（每小题1分，共10分）1.√2.√3.×4.×5.√6.×7.×8.√9.×10.√试题二、单选题（每小题2分，共20分）11.C12.A13.A14.B15.D16.D17.A18.C19.B20.C试题三、程序填空题（每空2分，共20分）21．100022.Timer1.Enabled=True23.024.x=x+12<>025.s=xMod3600Mod6026.n-x27.nextx28.flag=true29.k=k+130.flag试题四、程序阅读题(每小题5分，共20分)31.L 32.2235 HFDB33.aaabaababcaababcabcd 34.w=119 w=42 w=63试题五、程序设计题（每小题各10分，共30分） 35.随机产生n个两位正整数（n由输入对话框输入，且0<n<100）,求出其中的偶数之和，并在标签框Label1上显示。（10分）PrivateSubForm_Click() DimnAsInteger,sasSingle