vb程序设计期末复习题及答案

《vb程序设计》期末复习题及答案一、填空题1.创建一个VB应用程序三个主要的步骤是、和 。2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 窗口中，把此文本框的 属性设置成空白。.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 控件；若允许用户输入文本，则应使用 控件。TOC\o"1-5"\h\z.窗体的常用方法有 、 、 和 。.要想在代码中给名为txtshow的文本框赋予文本：GOODWORK，应当编写的语句是 。.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时，打开一个窗口frml,请对以下事件过程填空。PrivateSubCmdopen EndSub.VisualBasic6种类型的表达式是 、 、 、、、。VisualBasic根据表达式的来确定表达式的类型。.表达式93\7Mod2八2的值是。.已知a=3,b=4,c=5,表达式a〉bandNotc>aOrc>bAndc<a+b的值是。表达式c〉aAndNotb<c的值是。.日期表达式#2/24/02#-#2/12/02#的值为 。3.下列符号不能作为3.下列符号不能作为VB中变量名的是（ ）。3.下列符号不能作为3.下列符号不能作为VB中变量名的是（ ）。.数学表达式sin2x+写成等价的VisualBasic表达式为。.设某个程序中要用到一个二维数组，要求数组名为人，类型为字符串类型，第一维下标从1到5,第二维下标从-2到6，则相应的数组声明语句为 。.事件就是在对象上所发生的事情，VisualBasic中的事件如、、等。一个对象响应的事件可以有 个,用户不能建立新的事件。事件过程是指 。假设某一事件过程如下：PrivateSubcmd1_Click（）FormLCaption="VB示例"EndSub则响应该过程的对象名是 ,事件名是 。.对象的方法用于 。当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为，例如，对窗体Form1使用Show方法，应写成。.PictureBox控件可通过设置其属性为True使之可自动调整大小；而Image控件可通过设置其属性为True,使其加载的图片能自动调整大小以适应Image。.在VisualBasic程序中实现复制文件“c:\”到d:盘根目录下的语句为二、单项选择题）C、框架 D、）C、框架 D、命令按纽）。D、图像A、标签 B、文本框.除框架外,能对单选按纽分组的控件是（B、标签 C、B、标签 C、图片框AA、ABCDEFG B、P00000 C、89YWDDF D、xyz11.11.下列对象不能响应Click事件的是（ ）AA、ABCDEFG B、P00000 C、89YWDDF D、xyz11.11.下列对象不能响应Click事件的是（ ）.下列不属于VisualBasic数据文件的是（ ）。A、顺序文件 A、顺序文件 B、随机文件 C、二进制文件D、数据库文件.若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ ）。A、Text属性值为* B、Caption属性值为*C、Password属性值为空D、PasswordChar属性值为*.表达式2*3八2+2*8/4+3八2的值为（A、64 B、31.表达式2*3八2+2*8/4+3八2的值为（A、64 B、31.表达式mid（"abcdefg”,3,2）的值是（A、abcB、cd C、bcd.数学表达式Sin250写成VB表达式是（A、Sin25 B、Sin（25）C、Sin.Sub过程与Function过程最根本的区别是）。C、49 D、42）D、abcde）。（25°） D、Sin（25*3.14/180）（ ）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。10.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（ ）A、T>=1.7AndW<=62.5C、T>1.7AndW<62.5B、T<=1.7OrW>=62.5A、T>=1.7AndW<=62.5C、T>1.7AndW<62.5B、T<=1.7OrW>=62.5D、T>=1.7OrW<62.5A、A、列表框 B、图片框 C、窗体 D、计时器A、A、列表框 B、图片框 C、窗体 D、计时器.在VisualBasic中，按文件的访问方式不同，可以将文件分为（ ）A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件C、数据文件和可执行文件 D、ASCII文件和二进制文件.将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（ ）方法。A、ShowOpen B、ShowSave C、ShowColor D、ShowFont三、指出下列句中的错误，修改或者说明原因。1.sum和int.sum都可以作为VB的变量名。2．变量名的长度最长可达1024个字符。.下列程序运行结果：3，3OptionExplicitPrivateSubCommand1_Click（）Dima，bAsIntegera=3.6b=3.6Text1.Text=aText2.Text=bEndSub.程序可以改变定长字符串的内容和长度。.Variant是一种特殊的数据类型，可以包含任何种类型的数据。6.下列程序运行结果为TruePrivateSubCommand1_Click()a=1b=2c=3Text1.Text=c>a+bOrb-1>c-1Andc+a>aXorb<c-2EndSub7．#12/31/1999#-#12/20/1999#的运算结果是#12/11/1999#8．可以在窗体的通用部分声明静态变量。.使用声明语句建立一个变量后，VisualBasic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为Empty，布尔型的变量被初始化为False。.事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。.将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。.当图像控件(Image)的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。四、读程序题，写出程序运行结果。1．PrivateSubForm_Click()ForI=1To9Forj=1To30-3*IPrint"";NextjFork=1ToIPrintk;NextkFork=I-1To1Step-1Printk;NextkPrintNextIEndSub2．OptionExplicitPrivateSubCommand1_Click()StaticSAsIntegerDimiAsIntegerS=1Fori=1To5S=S*iNextiPrintSEndSub5．5．3．ForX=5To1Step-1ForY=1To6-XPrintTab(Y+5);"*";NextYPrintNextX4．PrivateSubForm_Activate()Print"aa"&"bb",-5*6,Not2<=3Print"aa"&"bb";-5*6;Not2<=3PrintPrint"30+60",Print30+60？？"30+60";30+60EndSubX=1DoWhileX<=10IfXMod7=0ThenY=X+6ElseZ=XEndIfX=X+2LoopPrintX,Y,Z五、编程题.设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（textl）、文本框2（text2）、文本框3（text3）、文本框4（=6*=4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。.设计程序。要求：从文本框Textl中接收输入的数据，当单击确定按钮（commandl）时，如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Textl中，选中其中的文本。.设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Labell）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束,则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。《VB》期末复习参考答案一、填空题1．创建应用程序界面设置属性编写代码2.属性、text3．LabelTextBox4.Load方法5卜。亚方法Hide方法 Unload方法5．txtshow.text="GOODWORK".Click()、frm1.show.算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符8.19.TrueFalse10.12.Sin(x)八2+Sqr(x八2-y八2)/(2*x).DimA(1To5，-2To6)AsString.单击双击装载多响应某个事件后所执行的程序代码 cmd1Click.完成某种特定的功能对象名.方法名Form1.Show.AutoSizeStretch.FileCopy"c:\"，"d:\"二、单项选择题1.B 2.C3.C 4.D 5.D 6.B 7.B8.D 9.D 10.C 11.D12.A13.C三、指出下列句中的错误，修改或者说明原因。nt.sum不正确。变量名中不能包括小数点。2.变量名的长度最长可达255个字符。.3.6，4因为a不是整型变量。.不正确。程序不可以改变字符的长度，这是VB规定。30+60 9030+60 90可以包含任何种类而可以使图片自动5.不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，

型的数据，这是VB规定。可以包含任何种类而可以使图片自动6．False。逻辑表达式计算结果。7．不正确。两个日期型数据相减，其结果是一个数值型数据。8．不正确。静态变量为局部变量，只能在过程中声明。9．正确。10．正确。11．正确。12.不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，

扩展以适应控件的尺寸。四、读程序题，写出程序运行结果。1．程序运行后，单击窗体，输出结果为：1121123211234321123454321TOC\o"1-5"\h\z1 2 3 4 56 5 4 3 211 2 3 4 5 67 6 5 4 32 112 3 4 5 6 78 7 6 5 43 2 123 4 5 6 7 89 8 7 6 54 3 21.程序运行后，单击按钮Commandl,输出结果为：120。**********&&&&&

*****aabb -30 Falseaabb-30False30+609011 13 9五、编程题PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()a=Trim(Text1.Text)b=Trim(Text2.Text)c=Trim(Text3.Text)Ifa=""Orb=""Orc=""ThenMsgBox"成绩填写不完全！",vbCriticalElseText4.Text=(Val(a)+Val(b)+Val(c))/3EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand1_Click()x=Val(Text1.Text)IfxMod3=2AndxMod5=3AndxMod7=4ThenPrintxElseText1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndIfEndSubPrivateSubCheck1_Click()IfCheck1.Value=1ThenElseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenElseEndIfEndSubPrivateSubCommand1_Click()UnloadMeEndSub4．a=Val（InputBox（"输入第一个数：”））

b=Val（InputBox（"输入第二个数：”））

c=Val（InputBox（"输入第三个数：”））TOC\o"1-5"\h\zIf a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tMsgBox（"求大小排第二的数是："&b）VB期末考试试题A卷填空题TOC\o"1-5"\h\z1、丫8程序设计的主要特点是 （1） 和（2） 。2、在VB中，最主要的两种对象是（3）和（4） 。3、工程是构成应用程序文件的 ⑸ 。4、方法是VB提供的一种（6） ，用来完成一定的操作。5、浮点类型数据包括单精度型和 （7）数据。6、事件是窗体或控件对象识别的 （8） 。7、可用窗体的（9） 方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于 （10） 或禁止状态（暗淡的）中的某一种。9、在VB中，修改窗体的（11）和（12） 属性值，可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的 （13） 出现一个尺寸为缺省值的控件。11、在MsgBox函数中，如果缺省title参数，则使用（14） 作为消息框的标题。12、设x=34.58,语句PrintFormat（x,“000.0”）的输出结果是（15）。13、在VB中，数值型变量的初值为（16）,Varant型变量的初值为 （17），布尔型变量的初值为（18）。14、设置窗体的 （19） 属性，可在窗体上显示图片。15、程序运行工程中，清除MP图片框中的图片应使用语句 （20）。、选择题1、菜单控件只包括一个事件，即（1）,当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件（如图所示）的Max属性所设置的是 （2） 。A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL语句Select*Formstudent中的*表示（3）。A、所有记录B、所有字段 C、所有表D、都不对TOC\o"1-5"\h\z4、以下选项中，不属于标签的属性是 （4） 。A、Enabled B、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 （5）。A、Caption B、Name C、Text D、Label6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是^^^。A、Caption B、NameC、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ （7） 。A、在标题项中输入&,然后打勾 B、在索引项中打勾C、在有效项中打勾 D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 （8） 。PrivateSubCommand1_Click（）Print"VB";Print"Hello!";Print"VB"EndSubA、VBHello!VB B、VBHello!VBTOC\o"1-5"\h\zC、VB D、VBHello!VB Hello!VB9、语句Print"Theansweris:";20/4-2的结果为 （9） 。A、Theansweris20/4-2 B、Theansweris3C、Theansweris"20/4-2" D、非法语句10、下列哪个控件是容器控件 （10） 。A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是 （11）。A.Show B.Hide C.Load D.UnLoadTOC\o"1-5"\h\z12、以下选项中，不是VisualBasic控件的是（12） 。A.窗体 B.定时器 C.单选框 D.命令按钮13、双击窗体中的对象后，VisualBasic将显示的窗口是一（13） 。A.代码窗口B.工具箱C.项目（工程）窗口D.属性窗口14、可决定窗体的左上角是否有控制菜单的属性是 （14）。A.ControlBox B.MinButtonC.MaxButton D.BorderStyle15、设有如下语句：Strl=InputBox（〃输人〃，〃〃，〃练习〃）TOC\o"1-5"\h\z从键盘上输人字符“示例”后，Strl的值是（15） 。A.“输入" B.”" C.“练习” D.“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （16） 。A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click17、窗体的hide属性的含义是（17） 。A.隐藏 B.展现 ^装入 D.卸载18、若要设置定时器控件的定时时间，需设置的属性是 （18） 。A.EnabledB.ValueC.IntervalD.Text19、能够改变复选框中背景颜色的属性是 （19）。A.Value B.FontColorC.BackColorD.Font20、窗体能响应的事件是 （20） 。A.ActiveFormB.LoadC.Drive D.Change三、判断题（判断下列正确与否，正确的打J,错误的打x。）1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：（1）创建应用程序界面⑵设置控件⑶编写代码。6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。7、已知P=MsgBox（“Howareyou?”,VbYesNo+VbQuestion,“Hello!”），变量P是Integer数据类型。8、工程文件的扩展名是.vbg。9、VB允许设计和使用用户自己设计的控件。10、OptionButton控件没有DblCliek事件。11、同一条记录中的各数据具有相同的类型。12、使用Data控件可以直接显示数据库中的数据。13、ImageList是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。16、如果列表框的ListConut的属性为10,则列表框最后一项的Listindex值为10。17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。18、使用数组定义语句：DimD$（10）,则数组D中各元素的值为空。19、如果在一行中输入多条语句,各语句之间用使用；分隔。20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误。四、读程序题,写出程序运行结果PrivateSubForm_Click（）StaticSUMAsIntegerI=1DoWhileI<=10SUM=SUM+II=I+1LoopPrintSUMEndSub运行程序，第一次单击窗体：第二次单击窗体：2、PrivateSubForm_Click()Print"*";Tab(6);2,Tab(15);5PrintForI=15To16PrintI;Forj=2To6Step3PrintTab(3*j);j*I;NextjPrintNextIEndSub程序运行结果：五、编程题(一)窗体中有图片框(Picturel)和计时器(Timeri)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip(20分之一像素)。请填空：PrivateSubForm_load()=loadPicture("c:\pic\ball.ico”).Interval=200EndSubPrivateSubTimer1_Timer()Staticx,yAsIntegerx=x+100y=y+100Picturel.Move (3)EndSub(二)有一个单击按钮过程，其作用是产生50个60〜100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：PrivateSubCommand1_Click()DimxAsInteger,N%DimCounterAsInteger(1)TimerForN=1To50X=Rnd()*(2)If(3) =2ThenPrintxCounter二(4)(5)NextNPrintCounterEndSub《VB程序设计与应用》参考答案一、填空题12345答案可视化设计事件驱动编程窗体（form）控件集合题号678910答案特殊子程序双精度动作Print选中题号1112131415答案高度(Height)宽度(Width)中央工程134.6题号1617181920答案0空FalsePictureCls二、选择题12345答案CABCA题号678910答案DDABB题号1112131415答案DAAAD题号1617181920答案CACCB三、判断题12345678910答案XXXVXVVVVX11121314151617181920答案VXVVXXVXXV四、程序阅读题：TOC\o"1-5"\h\z（一） （10分）1、552、110（二）、（10分）2 515 30 7516 32 80五、编程题（20分）（一）1、Picturel.PictureTimer1x,y（二）1、RandomizeRnd（）*41+60xMod6Counter+1EndIf一、单项选择题（共10分）.在代码中引用一个控件时，应使用控件的（B）属性。A．CaptionB．NameC．Text D．Index.设变量x=4,y=-1,a=7,b=-8,下面表达式（A）的值为“假”。A．x+a<=b-y B．x>0ANDy<0C．a=bORx>y D．x+y>a+bANDNOT（y<b）.表达式Int（Rnd*71）+10产生的随机整数范围是（C）。A．（10,80） B．（10,81）C．[10,80]D．[10,81].函数Sgn（3.1416）的返回值是（C）。A.-1 B.0C1 D.以上都不对5．67890属于（D）类型数据。庆.整型 B.单精度浮点数C货币型D.长整型6.下列变量名中正确的是（D）。A．3SB．Print C．SelectMyNameD．Select_17．下列赋值语句（A）是有效的。A．sum=sum-sum B．x+2=x+2C．x+y=sum D．last=y/0.以下的控件或方法具有输入和输出双重功能的为（B）。7.下列程序运行后，单击窗体，输出结果是7.下列程序运行后，单击窗体，输出结果是B7.下列程序运行后，单击窗体，输出结果是7.下列程序运行后，单击窗体，输出结果是BA．PrintB．TextboxC．OptionbuttonD．Checkbox.若要获得列表框中被选中的列表项的内容，可以通过访问(D)属性来实现。A．NameB．ListIndex C．ListCountD．Text.下列代码的运行结果为(B)。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x))EndSubA．2B．3C．4D．5二、填空题(10分)1.写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0式2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。.写出在字符串"VisualBasic6.0"中截取"Visual”的Basic表达式LEFT("VisualBasic6.0”,6)。.函数Len("abcdef")的返回值是(6) 。.设a=2,b=5,c=-2,d=100,贝Ua>b>=cANDa<b>=d的值为False。三、将下列数学表达式转换为VB表达式。(6分)1.a2+2ab+b2：aA2+2*a*b+bA22．8exln10：8*exp(x)*log(10)3．2sin(450)cos(450)：2*sin(3.1416/4)*cos(3.1416/4)6.在VB中，用户定义常量使用Const语句，声明变量使用Dim语句。.在VB6.0中，扩展名为.vbp的文件称为_」A)工程文件 B)窗体文件C)类模块文件D)标准模块文件.在VB6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是—A_A)代码窗口 B)窗体设计窗口C)属性窗口 D)工程资源管理器窗口.设有变量定义语句Dima%,则变量a的数据类型是」。A)整型 B)单精度类型 C)双精度类型 D)字符串类型.下列表达式中，值为False的是D。A)"AB"<"abc" B)"ABC"=UCase("abc")C)"ABCD"<"abc" D)Mid("ABCD",3,1)=Left("ABCD",3).函数InStr("ABCDEF","CD")的值是B。A)2 B)3 C)True D)CDEF.下列程序运行后，单击窗体，输出结果是C。PrivateSubForm_Click()DimaAsInteger,bAsIntegera=3b=5Printa+b;a&bEndSubA)88 B)3535 C)835 D)358PrivateSubForm_Click()a=3:b=7a=a+b:b=a-b:a=a-bPrinta;bEndSubA)43 B)73 C)37D)1078.下面程序段所表示的数学关系式是CIf(a<b)ThenIfd=cThenx=1Elsex=2EndIf[l(a<bMc=d)A)龙一(2(a>b且c丰d)[1(a<bMc=d)C)x=([2(a>b)[1(a<bMc-d)[2(a<b且c中d)[1(a<bMc一d)I2(cwd)9.下列程序运行后，单击窗体，输出结果是C。PrivateSubForm_Click()s=0:k=1Dos=s+k:k=k+1LoopUntilk<=5PrintsEndSubA)15 B)10 C)1 D)0.下列程序段的输出结果是 B。Fork=4To2Step-2m=kNextkPrintm;k;A)22 B)20 C)21 D)00.用下面的语句定义数组，则数组中的元素个数是3个。OptionBase1DimA(-1To2，5)AsIntegerA)5 B)10 C)15 D)20.下面程序段的输出结果是 C。Dima(4)AsInteger,sAsIntegerFork=1To4a(k)=2*kNextkFork=1To4Step2s=s+a(k)Prints;NextkA)8 B)20 C)28 D)26122013．设有如下的用户自定义类型PrivateTypeStunameAsString*10ageAsIntegerEndType2.下列程序运行后，单击窗体，输出结果是2.下列程序运行后，单击窗体，输出结果是【2】。答案：7则以下正确引用该类型成员的代码是 B。A)S="zhang" B)DimsAsS="zhang"C)DimsAsTypeStu D)DimsAsT="zhang" ="zhang".用“B”关键字声明的变量称为全局变量。A)Private B)Public C)Dim D)Static.在窗体上放置一个文本框，程序运行后，在文本框中输入abc,但显示的却是***，可能的原因是该文本框的D 属性值已经被设置为〃*〃。A)Font B)Text C)Name D)PasswordChar.在VB6.0中，Print是对象的 B。A)属性 B)方法 C)事件 D)名称.在VB6.0中，要判断复选框是否为选中状态，使用的属性是」—。A)Caption B)Checked C)SelectedD)Value中，能够删除最后“属性”窗口中这三.设列表框List1中共有3个列表项，如右图所示。则下列语句个列表项的是—A。中，能够删除最后“属性”窗口中这三List1.RemoveItem2List1.RemoveItem"项目C"List1.RemoveItemList1.ListcountList1.RemoveItemList1.Listindex.组合框分为下拉式组合框、简单组合框和下拉式列表框，在种类型是由—A属性设置的。C)BackStyleD)BorderStyleA)Style B)FillStyleC)BackStyleD)BorderStyle.用户单击滚动条的空白处(滑块与两端滚动箭头之间的区域)时，Value属性所增加或减少的值，是由“属性决定的。A)Min B)Max C)SmallChangeD)LargeChange.将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是D。Me.Picture=b.jpg B)Me.Picture=LoadPicture(b.jpg)C)Me.Picture="b.jpg" D)Me.Picture=LoadPicture("b.jpg")22.要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是A_。A)先放置一个框架，然后在框架中放置两个单选按钮先放置两个单选按钮,再放置一个框架,放置框架时覆盖在单选按钮上先放置两个单选按钮,再放置一个框架,然后将两个单选按钮拖动到框架内以上三种方法都正确.计时器控件能够响应的事件是」。A)Load B)Click C)Change D)Timer.要使命令按钮处于无效状态，可以设置按钮的 B属性值为False。A)Caption B)Enabled C)Style D)Visible.如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 C。A)第一个标准模块 B)最后一个被添加的窗体C)设计时的第一个窗体 D)最后一个被添加的标准模块.在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像框的大小，可以执行语句B。A)Image1.AutoSize=True B)Image1.Stretch=TrueC)Image1.AutoSize=False D)Image1.Stretch=False.使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是 A。A)减号- B)下划线_ C)& D)#.要将窗体Forml从内存中卸载，正确的语句是 D。A)Form1.Show B)LoadForm1C)Form1.Hide D)UnLoadForm1.在窗体上单击时，会触发鼠标事件MouseDown,其事件过程的一般格式如下：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub此时，如果单击的是鼠标右键，则Button参数的值是」—。A)1 B)2 C)3 D)4.获取文件的长度(字节数)，可以使用的函数是3。A)LEN() B)LOF() C)EOF() D)LOG()<3y.数学表达式」-改写为VB表达式，形式是 【1】 。答案sqr(3*y)/(x+y)X+y.在VB6.0中，InputBox函数返回值的数据类型是【2】 。答案：字符串类型或String.语句PrintTab(5);"ABC”的功能是【3】。答案：从第5列开始输出字符串“ABC”.下面程序段的功能是：在文本框Textl中输入一个数值x,如果满足5G<10,那么输出“Yes”，否则输出“No”。请填空。x=Val(Text1.Text) 答案5<xAndx<10If【4】ThenPrint"Yes"ElsePrint"No".设a=1,b=2,c=3,语句Printa<bOrb<cAndc<a的输出结果是【5】 。答案：True.在窗体上放置一个标签，名称为Labell,使用语句【6】 可以把标签的前景色设置为蓝色。Labell.ForeColor=vbBlue或RGB(0,0,255)或QBColor(9).在窗体上放置一个图像框，名称为Imagel,要使该图像框向下移动10个默认单位(twip),正确的语句是Imagel.Top=【7】答案：ImageLTop+10.使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单(也称为弹出式菜单)弹出，使用的语句是： 答案：PopupmenuForm1.【8】menu1.在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1.【9】 二"文本文件(*.txt)|*.txt"。答案：Filter.设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确的语句是Open"a.txt"For【10】As#1。答案：Input1.下列面程序运行后，单击窗体，输出结果是【1】。答案：139PrivateSubForm_Click()s=0Forn=1To3p=1Fork=1Tonp=p*kNextks=s+pPrints;NextnEndSubPrivateSubForm_Click()m=0Fork=1To4SelectCasekCase1,2m=m+1CaseIs>3m=m+2Case1To4m=m+3EndSelectNextkPrintmEndSub.在窗体上放置一个文本框，名称为Textl。下列程序运行后，单击窗体，Textl中显示的内容是【3】 。答案：adePrivateSubForm_Click()Text1.Text=""s="aBd12Re"Fork=1ToLen(s)ch=Mid(s,k,1)Ifch>="a"Andch<="z"ThenText1.Text=Text1.Text+chEndIfNextkEndSub. 下列程序运行后，单击窗体，输出结果是 [4] 。答案：1124OptionBase1PrivateSubForm_Click()x=Array(3,5,4,8,2,6,11,9,7,4)p=x(1):s=0Fork=2ToUBound(x)Ifx(k)>pThenp=x(k)s=s+pEndIfNextkPrintp;sEndSub. 下列程序运行后，单击窗体，输出结果是 [5] 。答案：151PrivateSubForm_Click()Dima(1To3,1To3)Fori=1To3Fork=1To3Ifk=1Ori=kThena(i,k)=1Elsea(i,k)=i+kEndIfNextkNextiPrinta(1,1);a(2,3);a(3,3)EndSub.在窗体上放置一个命令按钮，名称为Command2,并编写如下代码。PrivateSubCommand2_Click()DimmAsInteger,nAsInteger,gAsIntegerm=18:n=12:g=0Callsub1(m,n,g)Printm;n;gEndSubPublicSubsub1(ByValaAsInteger,ByValbAsInteger,cAsInteger)Ifa<bThent=a:a=b:b=tDoWhileb<>0r=aModba=bb=rLoopc=aEndSub程序运行后，单击命令按钮，则输出结果是 [6] 。答案：18126.在窗体上放置一个命令按钮，名称为Command3,并编写如下代码。PrivateSubCommand3_Click()DimkAsIntegerk=1Printfun1(k);Printfun1(k);Printfun1(k);EndSubFunctionfun1(aAsInteger)AsIntegerStaticcAsIntegerDimbAsIntegera=a+2:b=b+2:c=c+2fun1=a+b+cEndFunction程序运行后，单击命令按钮，则输出结果是 [7] 。答案：71115.在窗体上放置一个文本框，其名称为Textl,并编写如下代码。DimsAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger)s=s+Chr(KeyAscii)Prints;EndSub程序运行后，在文本框中输入@匕一则窗体上输出的内容是[8] 。答案：aababc.在窗体上放置一个计时器和一个标签，计时器名称为Timer1,标签名称为Label1。下列程序的功能是：(1)在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；(2)每触发一次Timer事件能够将标签上的字号加大2,当字号超过当前窗体的宽度时，将字号恢复为8。程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。．．Private Sub Form_Load()Timer1.Interval=5 答案：200Timer1.Enabled=TrueEndSubPrivate Sub Timer1_Timer()Label1.FontSize=Label1.FontSize+ 2IfLabel1.FontSize>Me.WidthThenLabel1.FontSize=8EndIf

(10)EndSub(10)EndSub.下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前．．的编号。TOC\o"1-5"\h\zs=0k=1DoWhilek<=99k=k+2 答案：将(4)、(5)调换顺序s=s+kLoopPrint s一个文本框，名称为Caption属性值为(含20和添加到列.在窗体上放置一个列表框，名称为Listl；放置Textl；放置一个命令按钮，名称为Command一个文本框，名称为Caption属性值为(含20和添加到列“统计3的倍数”。如右图所示。下列程序的功能是：在窗体的Load事件中，产生10个20~3030)之间的随机整数，并作为列表项逐个表框Listl中o单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并将统计结果显示在文本框Text1中。请填空完善程序。PrivateSubForm_Load()DimxAsIntegereRandomizeFork=1To10 答案：Int(Rnd*11+20)或Rnd*10+20x二【1】 '产生一个［20,30］之间的随机整数【2】 '将x作为列表项添加到List1中Nextk 答案：List1.AddItemx或List1.AddItemstr(x)EndSubPrivateSubCommand1_Click()DimnAsInteger'n:存放是3的倍数的列表项的个数Fork= 【3】答案：0ToListLListCount-1或0To9IfVal(List1.List(k))［4】 =0Then答案：Mod3n=n+1EndIfNextkText1.Text=nEndSub111 1.下列程序的功能是用近似公式-1+1!+2!+3!+…+正求自然对数的底e的值,直到最后一项小于10-4时停止计算。请填空完善程序。PrivateSubForm_Click()DimeAsSingle,nAsInteger,pAsSingle'e:累加和p:参加求和的当前项e=1:n=1:p=1DoWhile【5】答案：p>=1e-4e=e+pn=n+1p二【6】答案:p/nLoopPrint"e的近似值二“；eEndSub3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：控件类型控件名称属性属性值标签LabellCaption示例文字命令按钮CommandlCaption设置单选按钮OptionlCaption宋体Option2Caption隶书下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。PrivateSubCommand1_Click()DimfnAsString'fn:存放选中的字体If【7】Then答案：Optionl.Value=Truefn="宋体"Elsefn="隶书"EndIf【8】=fn 答案：LabelLFontNameEndSub4.下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。单击窗体时，能够输入数组a的10个元素，并调用函数ave,求数组a中所有元素的平均值，并显示输出。请填空完善程序。OptionBase1PrivateSubForm_Click()Dima(10)AsSingleFori=1To10a(i)=丫21(1版a8。*("输入一个数值”))NextiPrint〃平均值二〃； 【9】 '调用函数ave 答案：ave(a)EndSubPublicFunctionave(b()AsSingle)AsSingleDimsAsSingleDimnAsIntegern=UBound(b)Fork=1Tons=s+b(k)Nextk【10】 答案：ave=s/nEndFunction《VB期末范围题总汇》求随机10个整数的最大值、最小值、平均值以及和；Dima(1To10)PrivateSubCommand1_Click()RandomizePicture1.Print"产生的随机数为："Fori=1To10a(i)=Int(Rnd*99+1)Picture1.Printa(i);NextiPicture1.PrintEndSubPrivateSubCommand2_Click()Dimmax,min,avemax=a(1)min=a(1)ave=0.1*a(1)Fori=2To10Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)ave=ave+0.1*a(i)NextiPicture1.Print"最大数为：";maxPicture1.Print"最小数为：";minPicture1.Print"平均数为：";aveEndSub.求水仙花数PrivateSubForm_Click()Dima,b,cAsInteger'a(个)b(十)c(百)Fora=0To9Forb=0To9Forc=1To9Ifa八3+b八3+c八3=a+10*b+100*cThenMsgBox100*c+10*b+aEndIfNextcNextbNextaEndSub.百元买百鸡问题；OptionExplicitConsta=5,b=3,c=1PrivateSubForm_Activate()DimiAsInteger,jAsInteger,kAsInteger,nAsIntegerFori=1To100Forj=1To100Fork=1To100Ifi*a+j*b+k*c=100ThenList1.AddItem"公鸡："&i&"母鸡："&j&"小鸡："&kEndIfNext:Next:NextMsgBox"共有组合："&nEndSub求1000以内的所有完数一个按钮里调用的过程PrivateSubCommand1_Click()OutputWanNumber1000EndSub.'求完数的过程PrivateSubForm_Click()Dimi,jAsIntegerFori=4To100temp=1Forj=2Toi/2IfiModj=0Thentemp=temp+jEndIfNextjIftemp=iThenPrintiEndIfNextiEndSub.求各位数字之和input@:'输入任意数dob=amod10:'取a的末位数sum=sum+b:'求和a=a\10:'去掉末位数loopuntila=0print"sum="；$口山:'输出end(dimnasstringinputnfori=1tolen(n)sum=sum+val(mid(n,i,1))nextiprintsum).求最小公倍数PrivateSubForm_Load（）Form1.AutoRedraw=TrueDimn1%,m1%,m%,n%,r%n1=InputBox（"输入n1”）ml=InputBox（"输入ml"）Ifml>n1Then'为了求最小公倍数，增加m,n变量m=m1:n=n1Elsem=n1:n=m1EndIfDor=mModnIfr=0ThenExitDom=nn=rLoopPrintn1;",";m1;"的最大公约数为";nPrint"最小公倍数=",m1*n1/nEndSub.求逆序数（感觉题目类型太多）.级数有限项求和问题（题目类型太多）.求质因子问题PrivateSubCommand1_Click（）DimNAsInteger,IAsIntegerN=Val（InputBox（"请输入2的整数："））I=2DoIfNModI=0ThenPrintI;N=N\IElseI=I1EndIfLoopWhileN1EndSub.字符统计OptionBase1OptionExplicitPrivateSubCommand1_Click()Dimiasinteger，A(26)asinteger，nasintegerDimSasstring*1,StrlasstringStrl=Text1n=Len(Strl)Fori=1TonS=Mid(Strl,i,1)IfUCase(S)>=”A”AndUCase(S)<=”Z”ThenA(Asc(UCase(S))-64)+1EndIfNextiFori=1To26List1.AdditemChr(64+i)&“:”&A(i)NetxiEndSubPrivateSubCommand_Click()EndEndSub第二大题1.判定素数过程Functionisprime(NumAsLong)AsBooleanIfNum<2Thenisprime=False:ExitFunctionDimiAsLongFori=2ToSqr(Num)If(NumModi)=0Thenisprime=FalseExitFunctionEndIfNextiisprime=TrueEndFunctionPrivateSubCommand1_Click()DimiAsLongFori=1To1000Ifisprime(i)ThenPrintiEndIfNextiEndSub.求最大公约数过程；FunctionMax公约数(AAsLong,BAsLong)'求出两个数的最大公约数DimXAsLong,YAsLong,KAsLongX=IIf(A>=B,A,B)%存入最大值Y=IIf(A<=B,A,B)'y存入最小值Do'辗转相除法K=XModY:IfK=0ThenExitDoX=Y:Y=KLoopMax公约数二YEndFunction.冒泡排序过程PrivateSubCommand1_Click()Dima(9)AsIntegerDimiAsIntegerFori=0To9a(i)=1门口口18。*("输入整数”)NextSortaFori=0To9Printa(i)NextEndSubPrivateSubSort(ByRefa()AsInteger)DimiAsIntegerDimjAsIntegerDimtAsIntegerFori=LBound(a)+1ToUBound(a)Forj=UBound(a)ToiStep-1Ifa(j-1)>a(j)Thent=a(j-1)a(j-1)=a(j)a(j)=tEndIfNextNextEndSub4顺序查找过程PrivateSubCommand1_Click()Dimi,j,t,a(1To10)RandomizePrint"原数组:"Fori=1To10a(i)=Int(Rnd*10)Print"a("&i&")="&a(i)&Space(2),IfiMod2=0ThenPrintEndIfNextiPrintFori=1To9Forj=i+1To10Ifa(j)<a(i)Thent=a(i)EndIfNextjNextiEndSub《VB期末范围题总汇》．求随机10个整数的最大值、最小值、平均值以及和；Dima(1To10)PrivateSubCommand1_Click()RandomizePicture1.Print"产生的随机数为："Fori=1To10a(i)=Int(Rnd*99+1)Picture1.Printa(i);NextiPicture1.PrintEndSubPrivateSubCommand2_Click()Dimmax,min,avemax=a(1)min=a(1)ave=0.1*a(1)Fori=2To10Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)ave=ave+0.1*a(i)NextiPicture1.Print"最大数为：";maxPicture1.Print"最小数为：";minPicture1.Print"平均数为：";aveEndSub.求水仙花数PrivateSubForm_Click()Dima,b,cAsInteger'a(个)b(十)c(百)Fora=0To9Forb=0To9Forc=1To9Ifa八3+b八3+c八3=a+10*b+100*cThenMsgBox100*c+10*b+aEndIfNextcNextbNextaEndSub.百元买百鸡问题；OptionExplicitConsta=5,b=3,c=1PrivateSubForm_Activate()DimiAsInteger,jAsInteger,kAsInteger,nAsIntegerFori=1To100Forj=1To100Fork=1To100Ifi*a+j*b+k*c=100Thenn=n+1List1.AddItem"公鸡："&i&"母鸡："&j&"小鸡："&kEndIfNext:Next:NextMsgBox"共有组合："&nEndSub求1000以内的所有完数一个按钮里调用的过程PrivateSubCommand1_Click()OutputWanNumber1000EndSub.'求完数的过程PrivateSubForm_Click()Dimi,jAsIntegerFori=4To100temp=1Forj=2Toi/2IfiModj=0Thentemp=temp+jEndIfNextjIftemp=iThenPrintiEndIfNextiEndSub.求各位数字之和input@:'输入任意数dob=amod10:'取a的末位数sum=sum+b:'求和a=a\10:'去掉末位数loopuntila=0print"sum="；$口山:'输出end(dimnasstringinputnfori=1tolen(n)sum=sum+val(mid(n,i,1))nextiprintsum).求最小公倍数PrivateSubForm_Load()Form1.AutoRedraw=TrueDimn1%,m1%,m%,n%,r%n1=InputBox("输入n1”)m1=InputBox("输入m1”)Ifm1>n1Then'为了求最小公倍数，增加m,n变量m=m1:n=n1Elsem=n1:n=m1EndIfDor=mModnIfr=0ThenExitDom=nn=rLoopPrintn1;",";m1;"的最大公约数为";nPrint"最小公倍数=",m1*n1/nEndSub.求逆序数(感觉题目类型太多).级数有限项求和问题(题目类型太多).求质因子问题PrivateSubCommand1_Click()DimNAsInteger,IAsIntegerN=Val(InputBox("请输入2的整数："))I=2DoIfNModI=0ThenPrintI;N=N\IElseI=I1EndIfLoopWhileN1EndSub.字符统计OptionBase1OptionExplicitPrivateSubCommand1_Click()Dimiasinteger，A(26)asinteger，nasintegerDimSasstring*1,StrlasstringStrl=Text1n=Len(Strl)Fori=1TonS=Mid(Strl,i,1)IfUCase(S)>=”A”AndUCase(S)<=”Z”ThenA(Asc(UCase(S))-64)+1EndIfNextiFori=1To26List1.AdditemChr(64+i)&“：”&A(i)NetxiEndSubPrivateSubCommand_Click()EndEndSub第二大题.判定素数过程Functionisprime(NumAsLong)AsBooleanIfNum<2Thenisprime=False:ExitFunctionDimiAsLongFori=2ToSqr(Num)If(NumModi)=0Thenisprime=FalseExitFunctionEndIfNextiisprime=TrueEndFunctionPrivateSubCommand1_Click()DimiAsLongFori=1To1000Ifisprime(i)ThenPrintiEndIfNextiEndSub.求最大公约数过程；FunctionMax公约数(AAsLong,BAsLong)'求出两个数的最大公约数DimXAsLong,YAsLong,KAsLongX=IIf(A>=B,A,B)%存入最大值Y=IIf(A<=B,A,B)'y存入最小值Do'辗转相除法K=XModY:IfK=0ThenExitDoX=Y:Y=KLoopMax公约数二YEndFunction3.冒泡排序过程PrivateSubCommand1_Click()Dima(9)AsIntegerDimiAsIntegerFori=0To9a(i)=InputBox("输入整数”)NextSortaFori=0To9Printa(i)NextEndSubPrivateSubSort(ByRefa()AsInteger)DimiAsIntegerDimjAsIntegerDimtAsIntegerFori=LBound(a)+1ToUBound(a)Forj=UBound(a)ToiStep-1Ifa(j-1)>a(j)Thent=a(j-1)a(j-1)=a(j)a(j)=tEndIfNextNextEndSub4顺序查找过程PrivateSubCommand1_Click()Dimi,j,t,a(1To10)RandomizePrint"原数组:"Fori=1To10a(i)=Rnd*10Print"a("&i&")="&a(i)&Space(2),IfiMod2=0ThenPrintNextiPrintFori=1To9Forj=i+1To10Ifa(j)<a(i)Thent=a(i)a(i《VB期末范围题总汇》．求随机10个整数的最大值、最小值、平均值以及和；Dima(1To10)PrivateSubCommand1_Click()RandomizePicture1.Print"产生的随机数为："Fori=1To10a(i)=Int(Rnd*99+1)Picture1.Printa(i);Ne