VB程序设计知识点归纳讲解学习

1、资料收集于网络，如有侵权请联系网站删除第一章1从功能上讲，VisualBasic6.0有3种版本，即：学习版、专业版、企业版2 与传统的程序设计语言相比，VisualBasic最突出的特点是事件驱动编程机制。3 VisualBasic6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏4 用标准工具栏中的工具按钮不能执行的操作是打印源程序。5 关于VisualBasic"方法"的概念错误的是方法是对事件的响应6 在VisualBasic中，称对象的数据为属性7 VisualBasic应用程序可以用解释方式执行也可以用编译方式执行第二章1 计时器控件的Interval属性用于设

2、置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled属性设置为False，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于10002 利用Ctrl+G操作可以打开立即窗口。3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle=0Lable1.BorderStyle=04 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口5 在VisualBasic中，窗体文件的扩展名为FRM6 窗体的Name属性指定窗体的名称，用来标识一个窗体7 改变控件在窗体中的上下位置

3、，应修改该控件的属性是Top8 表示滚动条控件取值范围最大值的属性是Max9 如果要改变窗体的标题，则需要设置的属性是Caption10 在文本框(Text)中，通过ForeColor属性来设置字体颜色11若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值为*12 能够改变复选框中背景颜色的属性是Backcolor13 图片框是不具有Picture属性的对象14 窗体的Name属性指定窗体的名称，用来标识一个窗体15 要想返回文本框中输入的内容则可利用text属性进行编程第三章1 用于从字符串左边截取字符的函数是Left()，设a=&

4、quot;VisualBasic"，使b="Basic"的语句是b=Left(a,8,5)。2 下列符号中哪个是VB程序中合法的变量名：Aab7B7abCIfDa*bc(A)数字开头，关键字，*3 X是小于100的非负数，用VB表达式表达正确的是0<=XandX<1004 设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是TextDate=#1/1/2002#5 表达式4+56*7/8Mod9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25为1如果除数与被除数不是整数

5、时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如：52.5等价于5252.6等价于5352.4等价于525.43等价于5351.5等价于526 函数String(n,"str")的功能是返回由n个字符组成的字符串7 设有如下声明：DimXAsInteger如果Sgn(X)的值为-1，则X的值是小于0的数Sgn(3-5)=-1Sgn(5-3)=18 Integer类型的数据由2字节组成，Long类型的数据由4字节组成。9 已知XvY,A>B,正确表示它们

6、之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-210在一个有逻辑运算算术运算及关系运算混合在一起的表达式(无括号)中，其运算顺序为以下合法的VisualBasic标识符是那些：AForLoopBConstC9abcDa#xA通常所说的变量名11能正确表示条件"整型变量x值是大于等于-5并且小于等于5"的逻辑表达式-5<=xandx<=512 求下列表达式的值：表达式4+56*7/8Mod9的值是5，表达式5Mod3+35*2的值是2设a=2,b=4,c=6，下列表达式a>bEqvc<a的值为真Eqv相同为true相反为false设$=&quo

7、t;中华人民共和国"，表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为"中国人民"表达式2*4人2-2*6/3+32的值是29表达式5人2Mod252人2的值是113 VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余14 获得系统日期的函数是date()15 数学式子sin30写成°VB表达式是：Sin(30*3.14/180)16 在VisualBasic的立即窗口内输入以下语句X=65?Chr$(X)在窗口中显示的结果是_A_17 计算下列表达式的值表达式93Mod2A2的值是_1_。表达式Len(

8、123程序设计ABC)的值是_10_。Int(198.555*100+0.5)/100的值是_198.56_。已知A$=12345678，则表达式val(Left$(A$,4)+Mid$(A$,4,2)的值为(123445)左取4位1234中取4位开始2位18数学关系3w)<10表示成正确的VB表达式为3<=xAndx<10或x>=3andx<1019表示x是5的倍数或是9的倍数的逻辑表达式是xmod5=0orxmod9=020s$=“china：”s$=“Beijing：”Prints$以上语句的输出结果是_。参考答案Beijing21表达式Ucase(Mid(

9、abcdefgh,3,4)的值是_CDEF_。22已知a=3.5,b=5.0,c=2.5,d=true,贝U表达式：a>=0anda+c>b+3ORNOTd的值是_False_第四章1 VB中可用MsgBox语句产生一消息框。2 VB提供了结构化程序设计的三种基本结构，三种基本结构是：选择结构或循环结构或顺序结构word 可编辑资料收集于网络，如有侵权请联系网站删除3 InputBox函数返回值的类型为字符串。J下列语句正确的是(C)AIfAWBThenPrint"AT等于B"BIfA<>BThenPrintf"A不等于B”CIfA<

10、>BThenPrint"A不等于B"DIfAwBPrint"AF等于B"4 在DoUntilLoop1环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时结束循环5 在While循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时执行循环体6设a=6,则执行x=IIf(a>5,-1,0)后,x的值为-1Ifa>5thenA=-1ElseA=0endif7 要使下列For语句循环执行20次，循环变量的初值应当是多少?Fork=_1_To-5Step-2参考答案1：33N=(终值-初值)/2+18

11、以下语句的输出结果是: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)&Ri

12、ght$(a$,11)(4)以下语句的输出结果是032,548.50。PrintFormat$(32548.5,"000,000.00")(5)在窗体(Name属性为Formal)上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：PrivateSubCommand1_Click()A=Text.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""EndS

13、ub程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮，则输出结果为123321。(6)阅读下面的程序段：word 可编辑资料收集于网络，如有侵权请联系网站删除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)和一个命

14、令按钮(其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()StaticXAsIntege

15、rStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为156Static无法释放x=5+5+5y=1+5(10) 设有语句x=InputBox("输入数值"，"0"，"示例")程序运行后，如果从键盘上输入数值10并按回车键，变量X的值是字符串"10"(11) 在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一个计时器控件，名称为Timerl的时间。程序为：PrivateSubT

16、imer1_()TxtTime.text=TimeEndSub在下划线上应填入的内容是Timer12)假定有以下程序段：Fori=1To33-1/1+1=3Forj=5To1Step-11-5/-1+1Printi*j3*5NextNext则语句Printi*j的执行次数是1513)以下程序段的输出结果为(4)x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx(14)在窗体上面画一个文本框，然后编写如下事件过程：PrivateSubForm_Activate()Text1.Text=""Text1.SetFocusFori=1to10Sum=Su

17、m+iNextText1.Text=SumEndSub上述程序的运行结果是55首相加末项*项数/2(15)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n3NextnPrintnEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是(21)(16)设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEnd

18、Sub该程序通过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，则下列循环语句的循

19、环次数为(5)次同样可以用公式：(终值-初值)/步长+1DoWhilei<=17i=i+2Loop(20)执行下面的程序段后，x的值为(21)x=5Fori=1To20Step2x=x+i5NextI(21)下面程序运行后，输出的值是(54)PrivateSubCommand1_Click()J=1doWhileJv5J=J+1A=A+J*JloopPrintAEndSub(22)有如下程序：PrivateSubFormKeyPress(KeyAsciiAsInteger)Form=1To3Forj=1TomFork=jTo3n=n+m+j-kNextkNextjNextmPrintnE

20、ndSub程序运行后，按任意键，n的值是(20)(23)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()A=12B=34C=56PrintABCEndSub程序运行后，单击命令按钮，输出结果是(123456)(24)下面程序运行后输出的结果是(11020)PrivateSubCommand1_Click()A=0ForM=1To10A=A+1:B=0ForJ=1To10A=A+1:B=B+2NextJ:NextMword 可编辑资料收集于网络，如有侵权请联系网站删除PrintA;BEndSub(25)x=int(Rnd)+3:ifxA2>

21、8theny=xA2+1:if*人2=9theny=xA2-2:ifxA2<8theny=xA3:printy程序运行后输出的结果是_7_。(26)执行下面的程序段，x的值为PrivateSubCommand1_Click()Fori=1To9a=a+iNextix=Val(i)MsgBoxxEndSub_.参考答案10(27)在窗体上有一个命令按钮，然后编写如下程序：FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumnum=0时循环终止k=k*(numMod10)取个位10位百位相乘num=num10LoopTrans=

22、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,811 语句x+y=x,是错误的赋值语句。12 逻辑表达式Not(1

23、>2),其逻辑值为真”13 表达式1.5+32>2Or7Mod3<4AndNot1的运算结果是(-1)14 可以将变量A、B值互换的语句是A=C:C=B:B=A15执行如下语句：1=inutBox("Today","Tomorrow,"Yesterday","Daybeforeyesterday",5)word可编辑资料收集于网络，如有侵权请联系网站删除将显示一个输入对话框，在对话框的输入区中显示的信息是(Yesterday)16能在窗体Forml的标题栏中显示"VisualBasic窗体&quo

24、t;的语句是(Form1.Caption="VisualBasic窗体")第五章1 如果在程序中要将c定义为静态变量，且为整型数,则应使用的语句是(StaticaAsInteger)2 声明一个变量为局部变量应该用(Static)3 Sub过程与Function过程最根本的区别是(Sub过程不能返回值，而Function过程能返回值)4 若要向列表框添加列表项，可使用的方法是(AddItem)5 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名6 Sub过程中不可以嵌套调用Sub过程7 定有以下函数过程：FunctionFun(SAs

25、String)AsStringDimsiAsStringFori=1ToLen(S)S=UCase(Mid(S,i,1)十s1XcxtiFuii=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCuninirnH_Click。DimStrlAsString,Str2AsStringStrl=inputbox("请输入一个字符串")Sir2-l-'un(Sirl)PrilKStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg”,则单击”确定"按钮后在窗体上的输出结果为

26、(GFEDCBA)8 复选中S的Value属性为_1一时，表示复选框被选中。第六章1用下面语句所定义的数组的元素个数是(9)Dima(-3to5)asinteger2要声明一个长度为256个字符的定长字符串变量str,正确的语句是(DimstrasString*256)3设有数组声明语句：OptionBase0DimB(-1To10,2To9,20)AsInteger则数组B中共有(2016)个元素4在窗体上画一个命令按钮，名称为Command、单击命令按钮时，执行如下事件过程：PrlVateSubCommandl-C1ickoa$="softwareandhardware"

27、;b$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是(hardwafe)5为了清除列表框中的所有内容，应使用的方法是(Clear)资料收集于网络，如有侵权请联系网站删除程序填空1. 下列程序是判断一个整数(>=3)是否为素数，请补充完整。DimnAsIntegern=InputBox("请输入一个整数(>=3)")k=Int(Sqr(n)i=2swit=0Whilei<=kAndswit=0IfnModi=0Then_1_Else:参考答案1.swit=02.swit=

28、1_2_EndIfloopIfswit=0ThenPrintn;"是一个素数。"ElsePrintn;"不是一个素数。"EndIf2. 下面程序是用来打印九九乘法表的，请补充完整。DimiAsInteger,jAsInteger,Str1$Str1=""Fori=1To9Forj=1To9If_1_ThenStrl=Strl+3+Str$(i)+日l(ij)ElseStr1=Str1&Chr(13)_2_EndIfNextjNextiPrintStr1参考答案1:j<=I2：j>i3. 下面程序的功能是产生10个小

29、于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(_1_)If_2_Thenk=k+1Printa(j)NextjPrintword可编辑资料收集于网络，如有侵权请联系网站删除Printk/10EndSub参考答案1：(99*Rnd)+12：a(j)Mod5=04. 以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("

30、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

31、(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.8X;当50WxW100,y=0.7x；当x>100时，没有意义。请填空。PrivateSubCommand1_Click()DimxAsSinglex=InputBox("请输入x的值！")

32、_1_CaseIs<50y=0.8*xCase50To100y=0.7*x_2_Print"输入的数据出界！"EndSelectPrintx,yEndSub参考答案1：SelectCasex2：CaseElse7. 设有如下程序段：a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为_1_.参考答案1：Shanghai8 执行下面程序，当单击窗体时，显示在窗体上第一行的内容是_1_第二行的内容是_2_PrivateSubForm_Click()DimIAs

33、Integer,SumAsIntgerForI=0.5To8.5Step2.5Sum=Sum+I*10NextIPrintSumprintIEndSub参考答案1：2002：109 下面程序的功能是对密文解密。密文的加密方法是以字符为单位，取其ASCII码，按逆序保存(例如字母"e"的ASCII码是01100101,密文中则为10100110)。解密是加密的逆过程。完善程序，实现以上功能。(难)PrivateSubCommand1_Click()DimsAsString,stAsString,iAsInteger,nAsIntegers=Text1DoUntiln>=

34、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

35、_NextiEndSub参考答案1:n=n+12：st=""3:Listl.Listcount4：n+2A(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&"+&q

36、uot;&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.由VisualBasi

37、c语言编写的应用程序有解释和编译两种执行方式。)2.文本框控件的MaxLength属性值为0时，在文本框内不可以输入任何字符。()3.要使输入文本框的字符始终显示“#；则应彳改其PasswordChar属性为“能)4.在一个窗体中不能使用Unload来卸载本窗体，即一个窗体只能由其它窗体卸载。)5.VB的Double类型数据，可以精确表示其数值范围内的所有实数。)6.在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。)7.命令按钮不但能响应单击事件，而且还能响应双击事件。)8.在自定义函数过程中，函数名必须被赋值。()9.文本框控件只能响应KeyPress、KeyD

38、own、KeyUp、Change事件。()10.如果一个菜单项的Visible属性为False,则它的子菜单也会显示。word 可编辑资料收集于网络，如有侵权请联系网站删除、单选题(每题2分，共20分)()11.要改变控件的高度，应修改控件的属性。A、TopB、LeftC、HeightD、Width()12.VB算术运算符乘或除、整除、求余的优先级，从高到低依次为。A、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余()13.下列哪个属性用来表示标签(Label)的内容和窗体(Form)的标题，A、CaptionB、TextC、LeftD、 Nameword

39、可编辑()14.判断整型变量m能否被n整除的VB表达式为A、nModm=0B、m/n*n=mC、mModnD、mn*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.运行时组合框控件C

40、omb1中所选择的表项，可以表示为。A、Comb1.TextB、Comb1.ListIndexC、Comb1.ListD、Comb1.ListCount()20.若i的初值为9,则下列循环语句的循环次数为次。DoWhilei<=20i=i+3B、4次C、5次D、6次LoopA、3次三、程序填空题(每空2分，共20分),再将其中的奇数按从小到1.【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a大的顺序在窗体中用紧凑格式输出。PrivateSubForm_Click()Dima(30)Asbyte,iasByte,jAsByte,mAsByteFori=1To30a(

41、i)=(21NextiFori=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_Clic

42、k(IndexAsInteger)IfIndex=0Then(26)ElseTimeh.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)四、程序阅读题(每

43、小题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)

44、后，窗体上的显示结果。PrivateSubForm_Load()Option1(0).Value=FalseOption1(1).Value=Falseword 可编辑Option1(2).Value=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)IfOption1(Index).Value=TrueThenSelectCaseIndexCase0Check1(0).Value=1:Check1(1).Value=0Case 1Check1(0).Value=0:Check1(1).Value=1Case 2Check1(0).Value=

45、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:HSc

46、roll1.Value=1Combo1.ClearEndSubPrivateSubHScroll1_Change()Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0EndSub五、程序设计题（每题10分，共30分）35. 编制事件过程Command1_Click,执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件Textl中显示。（10分）36. 编制通用函数过程fsum，计算Single类型一维数组所有元素的和。（10分）37. 在窗体上建立命令按钮“Command”1（显示）和“Command”2（退出）。运行时，"Comm

47、and2按钮始终显示"退出"；单击"显示"按钮后窗体上显示“欢迎使用VisualBasic!”同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初态。（10分）VB练习题（一）参考答案试题一、判断题(每小题1分，共10分)I. V2.X3.V4.X5.X6.V7.V8.V9.乂10.X试题二、单选题(每小题2分，共20分)II. C12.B13.A14.D15.D16.B17.A18.A19.C20.B试题三、程序填空题(每空2分，共20分)a(i) Mod2<>0 25. Print a(i); 26.29. Picture1

48、.Left-130.21Int(Rnd*90)+1022.i+1To3023.a(i)=a(j)24.Timer1.Enabled=True27.100028.Timer1.Enabled=FalsePicture1.Left资料收集于网络，如有侵权请联系网站删除试题四、程序阅读题(每小题5分，共20分)31 .a=2b=2a=6b=4a=14b=832 .MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM33 .您好欢迎使用VisualBasic!34 .abcdabcab试题五、程序设计题(每小题各10分，共30分)Text135 .编制事件

49、过程Command1_Click,执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件中显示。PrivateSubCommand1_Click()DimsAsSingle,nAsInteger,xAsSinglen=InputBox("输入n")Fori=1Tonx=InputBox("x="):s=s+xNextiText1.Text=sEndSub36 .编制通用函数过程fsum,计算Single类型一维数组所有元素的和。PrivateFunctionfsum(a()AsSingle,nAsSingle)AsSingleDimiAsInteg

50、erFori=1Tonfsum=fsum+a(i)NextiEndFunction37 .在窗体上建立命令按钮"Command1(显示)和“Command2(退出)。PrivateSubCommand1_Click()IfCommand1.Caption="显示"ThenPrint"欢迎使用VisualBasic!":Command1.Caption="清除ElseForm1.Cls:Command1.Caption="显示"EndIfEndSubPrivateSubCommand2_Click()EndEndSu

51、bPrivateSubForm_Load()Form1.Cls:Command1.Caption="显示"EndSub资料收集于网络，如有侵权请联系网站删除VB练习题(二)一、判断题(每题1分，共10分) 1VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。) 2用DIM定义数值变量时，该数值变量自动赋初值为0。) 3移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。) 4列表框和文本框一样均没有Caption属性，但都具有Text属性。) 5图片框可以通过Print方法来显示文本。) 6语句“FontName

52、="宋体"”与“Form1.FontName="宋体"”的作用完全相同，无一例外。) 7SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。) 8由于定时器控件在运行时是不可见的，因此在设置时可任意地将其放在任何位置。) 9表示各控件对象的变量名的属性为Caption。) 10.决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。(每题2分，共20分) 11下列哪个属性用来表示各对象(控件)的位置。A、TextB、CaptionC、LeftD、Name) 12List1.Clear中的Cle

53、ar是。A、方法B、对象C、属性D、事件()13.将文本框控件的属性设置为True,可正常显示文本但不可编辑。A、LockedB、EnabledC、MultiLineD、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、仅+5)人1/3B、(x+5)A(13)C、(x+5)A13D、(x+5)A(1/3)()16.要使Shape控件以实心方式填充，应该设置其属性。A、FillColorB、FillS

54、tyleC、BackStyleD、Shape)17将命令按钮Command1设置为不可见，应修改该命令按钮的属性。A、VisibleB、ValueC、CaptionD、Enabled()18.将变量x、y中的最大数赋值给变量a,正确的表示为。A、a=Ify>xThenyElsexB、Ify>xThena=y:a=xC、a=x:Ify>xThena=yD、Ify>xThena=yElsea=xEndIf)19文本框控件Text4的Text属性默认值为。A、Text4B、"Text4"C、LockedD、Name)20描述以(1000，1000)为圆心、

55、以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秒”。(假设对象的属性都在程序代码中设

56、定)word可编辑资料收集于网络，如有侵权请联系网站删除word可编辑图1动态秒表程序代码如下:DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="动态秒表（小时：分：秒）"Command1.Caption="开始"Command2.Caption="结束"Label1.Alignment="Label1.Caption="0:0:0"Center”Timer1.Interval=(21)Time

57、r1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()(22)EndSubPrivateSubCommand2_Click()Timer1.Enabled=False小时”+Str(m)+_x=(23)Label1.Caption="运行了"+Str(h)+""分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()(24)h=x3600m=(xMod3600)60s=(25)Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub(21)(22)(23)(24)(25)x是否为2.【程序说明】本程序将1个大于100的偶数n分解为2个素数之和。其中nflag逻辑型函数用于判断自然数素数。PrivateSubForm_Click()DimnAsInteger,xAsInteger,yAsIntegern=Val(InputBox(”请输入1个大于100的偶数“输入数据"，100)Forx=3Ton