VB期末综合练习.doc

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB期末综合练习VB期末综合练习VB期末综合练习一、填空题1、计时器事件之间的间隔通过（ ）属性设置。2、要想在文本框中显示垂直滚动条，必须把（ ）属性设置为2，同时还应把（ ）属性设置为（ ）3、在过程定义中出现的变量名叫做（ ）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（ ）参数。4、VISUAL BASIC 6.0中的控件在窗体上分为3类，它们是（ ），（ ） 和（ ）。5、设计弹出式菜单时，先通过_建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的_方法显示弹出式菜单。 6、indows可公用的对话框有：_、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，可通过调用通用对话框控件的_、ShowSave、ShowColor、_ 、ShowPrint、ShowHelp方法来使用它们。也可通过设置通用对话框控件的_属性来实现。 7、根据文件的存取方式及其组成结构，将文件分成_、_和_。8、由ARRAY（）函数建立的数组的名字必须是_类型。9、强制退出DO.LOOP循环语句是_，强制性退出FOR.NEXT语句是_。10、Visual Basic 应用程序由（ ）、标准模块和（ ）。11、设置组合框的风格，可用的属性是（ ），按钮VALUE属性的值的类型是（ ）。12、Visual Basic 中，除了可以指定某个窗体作为启动对象之外，还可以指定（ ）作为启动对象。13、要将MDI应用程序中的普通窗体设置为MDI子窗体，只需要把（ ）属性设置为（ ）即可。14、建立弹出式菜单所使用的方法是（ ），要为某个菜单项加分隔线，则该菜单的标题项应设为（ ）。15、为了使计时器控件TIMER1每隔1秒触发一次TIMET事件,应将TIMER1控件的( )属性设置为( ).16、（ ）类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 17、控件数组的名字由_属性指定,而数组中的每个元素由_属性指定.18、为了把一个窗全装入内存,所使用的语句为_;为了清除内存中指定的窗体,所使用的语句为_.19、在VB中，对象的三要素分别是_,_和_.20、在VB中整型数据占_个字节的内存空间,双精度浮点型数据占_个字节的内存空间.21、为了使标签能自动调整大小以显示全部文本内容,应把标签的_属性设置为TRUE.22、确定复选框是否被选中，应访问的属性是_，要让一控件不显示，应将该控件的_属性设置成FALSE。23、对于计时器控件，如果希望每秒产生10个事件，则应将其INTERVAL设置为_。24、若要屏蔽加上的控件对象，则需要设置（ ）属性的值为FALSE。25、vb6.0分为3种版本，这3种版本是（ ）、（ ）和（ ）。26、如果打开了不需要的菜单或对话框，可以用（ ）键关闭。27、属性窗口分为4个部分，这4个部分分别是（ ），（ ），（ ），（ ），28、在中窗体文件的后缀名为（ ），工程文件的后缀名为（ ）。 29、提供（ ） 函数用于将数字字符转换成数值型，提供（ ）函数用于将数值转换成字符型。 30、工程文件的扩展名是（ ），窗体文件的扩展名（ ）。31、控件数组的名字由（ ）属性决定，而数组中的每个元素由（ ）属性决定。32、在3种不同类型的组合框中，只能选择而不能输入的组合框是（ ）。33、菜单编辑器可分为3部分，即（ ）、（ ）和（ ）。34、Visual Basic的过程有3种，它们是( )过程、（ ）过程和（ ）过程。35、为了显示一个窗体，所使用的方法为（ ），而为了隐藏一个窗体，所使用的方法为（ ）。36、VISUAL BASIC 6.0应用程序由（ ），（ ），（ ）三种模块组成。37、计时器事件之间的间隔通过（ ）属性设置。38、要想在文本框中显示垂直滚动条，必须把（ ）属性设置为2，同时还应把（ ）属性设置为（ ）39、在过程定义中出现的变量名叫做（ ）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（ ）参数。40、VISUAL BASIC 6.0中的控件在窗体上分为3类，它们是（ ），（ ） 和（ ）。二、单项选择题 1、打开多重窗体应用程序后（ ）A、打开一个窗体后，其他窗体都会被关闭B、允许同时打开多个窗体C、打开一个窗体后，其他窗体都会被隐藏起来D、在某一时刻只能打开一个窗体2、下列属性中，目录列表框和文件列表框都有的属性是（ ）A、List B、Path C、Vale D、Patten3、窗体的Caption属性的作用是（ ）A、确定窗体的名称 B、确定窗体的标题C、 确定窗体的边界类型 D、确定窗体的字体4、下列不属于Visual Basic应用程序所包含文件的是（ ）A、窗体文件 B、类表文件 C、文本文件 D、工程文件5、设a=2,b=3,c=4,d=5,则表达式a>b And c>=d And b<>c Or c>d的值是（ ）A、True B、False C、-1 D、16、为了用键盘打开菜单和执行菜单命令，第一步应按的键是（ ）A）功能键F10或ALT B）SHIFT+功能键F4 C）CTRL或功能键F8 D）CTRL+ALT7、VISUAL BASIC 6.0窗体设计器的主要功能是（ ）A）建立用户界面 B）编写源程序代码 C）画图 D）显示文字8、为了确定一个窗体或控件的大小的属性是（ ）A）WIDTH，TOP B）WIDTH ，HEITHT C）TOP ，WIDTH D）TOP ，LEFT9、下列可作为VISUAL BASIC 6.0的变量名的是（ ）A)FILENAME B）A（A+B） C）345D D）PRINT10、下列可作为VISUAL BASIC 6.0中所允许的形式的数是（ ）A）±25.74 B)3.457E-100 C)368 D)1.87E+5011、设A=2，B=3，C=4，D=5，下列表达式的值是（ ）。3>2*B and A=C and B<>C or C>DA)true B)false C)-1 D)112、决定标签内显示内容的属性是（ ）A)TEXT B）NAME C）ALIGNMENT D）CAPTION13、以下语句输出的结果是（ ） print format(32548.5,”000,000.00”)A）32548.5 B)32,548.5 C)032,548.5 D)32,548.514、表达式4+56*7/8 mod 9的值（ ） A）4 B）5 C）6 D）715、“对象”是将数据和程序（ ）起来的一个逻辑实体。A、连接 B、封装 C、串接 D、伪装16、下列语句错误的是（ ）A、Text1.Text=List1.TextB、Label1.Caption=List1.TextC、List1.List(1)=List1.Text+List1.ListIndexD、Command1.Caption=List1.Name+List1.Text17、下列可作为Visual Basic 中所允许的形式的数是（ ）。A、32 B、2.5E C、368 D、12E318、语句Print5*55/5的输出结果是（ ）A、5 B、25 C、 D、19、图象框有一个属性，可以自动调整图形的大小，以适应图象框的尺寸，这个属性是（ ）A、Autosize B、Stretch C、AutoRedraw D、Appearance20、下列程序的执行程序结果为（ ）a=100 b=50 If a<>b Then a=a+b Else b=b-aENDIF Print a,bA、5050 B、150 50 C、200 200 D、10 1021、在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_click() Dim a ， Array1(10,10) As Integer Dim i,j as integer For i=1 to 3 For j=2 to 4 Array1(i,j)=i+j Next j Next i Text1.text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ ）A、12 B、13 C、14 D、1522、设置复选框或单选框标题对齐方式的属性是（ ）A）ALIGN B）ALIGNMENT C）SORTED D）VALUE23、删除列表框中指定的项目所使用的方法为（ ） A）MOVE B）REMOVE C）CLEAR D）REMOVEITEM24、当拖动滚动条中的滚动块时，将触发滚动条的事件是（ ）A）MOVE B）CHANGE C）SCROLL D）SETFOCUS25、用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（ ）A）LIST B）LISTINDEX C）TEXT D）LISTCOUNT26、为了使标签覆盖背景，应把BACKSTRLE属性设置为（ ）A）0 B）1 C）3 D）427、为了使标签中的内容居中显示，应把ALIGNMENT属性设置为（ ）A）0 B）1 C）2 D）328、以下程序的输出结果：（ ）a=sqr(3):b=sqr(2)c=a>bprint cA)-1 B)0 C)false D)true29、下列关于键盘事件的说法中，正确的是（ ）A、按下键盘上的任意一个键都会引发KeyPress事件B、主键盘上的1键和数字键的1键的KeyCode码相同C、KeyDown和KeyUP的事件过程中有KeyAscii参数D、主键盘上的4键的上挡字符是$,当同时按下shift键和主键盘上的4键时,KeyPress事件过程中的KeyAscii参数值是$的Ascii值30、以下语句的输入结果为（ ）a=Sqr(3)b=Sqr(2)c=a>bprint cA、-1 B、0 C、False D、True31、要使命令按钮成为默认命令按钮，需使用其（ ）属性。A、Enabled B、Default C、Value D、Cancel32、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：private Sub Command1_Click()Dim i ,NumRandomizeDo For i=1 TO 1000 Num=Int(Rnd*100) Print Num; Select Case Num Case 12 Exit For Case 58Exit Do Case 65,68,92 End End SelectNext iLoopEnd Sub程序运行后，单击命令按钮，则正确的描述是（ ）A、Do循环的次数为1000次B、在For循环中产生的随机数小于或等于100C、当所产生的随机数为12时结束所有循环D、当所有的随机数为65、68或92时结束程序33、设有如下程序段：Option Base 1Private Sub Form_Click() Dim arr Arr=Array(10,20,”ABCDE”)For i=3 to 1 Step -1 Print arr(i)Next iEnd Sub程序运行后，单击窗体，在窗体上显示的内容为（ ）A、ABCDE 20 10 B、10 20 ABCDEC、ABCDE 10 20 D、出错信息34、使用过程是为了（ ）A、使程序模块化 B、使程序易于阅读C、提高程序运行速度 D、便于系统的编译35、可视化编程的最大优点是（ ）A、具有标准工具箱 B、一个工程文件由若干个窗体文件组成C、不需要编写大量的代码来描述图形对象 D、所见即所得36、对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于（）A、输入对话框 B、输出对话框C、模式（模态）对话框 D、无模式对话框37、假定有以下程序段： for i=1 to 3 for j=5 to 1 step -1 print i*jnext jnext i 则语句PRINT I*J 的执行次数是（ ） A）15 B）16 C）17 D）1838、设A=6，则执行X=IFF（A>5,-1,0）后的X值为( ) A)5 B)6 C)0 D)-139、下列程序段执行后的结果是： for i=1 to 3for j=1 to i for k=j to 3 a=a+1 next knext jnext i执行上面的3重循环后，a的值为（）A）3 B）9 C）14 D）2140、用下面的语句所定义的数组的元素个数是（ ） DIM A（-3 TO 5）AS INTEGER A）6 B）7 C）8 D）941、下列叙述中正确的是（ ） A.只有窗体才是Visual Basic中的对象 B.只有控件才是Visual Basic中的对象 C.窗体和控件都是Visual Basic中的对象 D.窗体和控件都不是Visual Basic中的对象42当窗体被加载时运行，发生的事件是（ ）ALoad BUnload CResize DDragDrop43用于Visual Basic程序设计的控件在（ ）A.工程窗口中 B.工具箱中C.工具菜单中 D.工具栏上44.Visual Basic程序中分隔各语句的字符是（ ）A.'   B.:  C.  D._ 45. 假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VB Test”的语句为（ ） A.Form1 = "VB Test" B.Caption ="VB Test" C.Form1.Text = "VB Test"  D.Form1.Name ="VB Test"46.使用驱动器表框的（ ）属性可以返回或设置磁盘驱动器的名称。 A.CAHNGE  B.DRIVE C.DIR D.PATH47. 为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效，必须把它的Style属性设置为（ ） A.0  B.1  C.True  D.False48. 为了使标签覆盖背景，应把BackStyle属性设置为（ ） A.0  B.1  C.True  D.False49. 为了使标签中的内容居中显示，应把Alignment属性设置为（ ） A.0  B.1  C.2  D.350. 下列可以把当前目录下的图形文件pic1.jpg装入窗体FORM1中的语句为（ ） A.FORM1 = "pic1.jpg" B.FORM1.Handle = "pic1 .jpg" C.FORM1.Picture = LoadPicture("pic 1.jpg") D.FORM1 = LoadPicture("pic 1.jpg")51.决定标签内显示内容的属性是（ ） A.Text  B.Name  C.Alignment  D.Caption52.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ） A.Value  B.Default  C.Cancel  D.Enabled53.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ） A.Value  B.Default  C.Cancel  D.Enabled54.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：Private Sub Command1_Click()a = Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为（ ） A.444 B.321123 C.123321 D.13223155.下列可作为Visual Basic的变量名的是（ ） A.3*Delta  B.PrintChar  C.Abs  D.AB56. 下列可作为Visual Basic中所允许的形式的数是（ ） A.±25.74  B.3.457E-100 C.368  D.1.87E+5057. 设a=2，b=3，c=4，d=5，下列表达式的值是（ ）a>b AND c<=d OR 2*a>c  A.True  B.False C.-1  D.058.以下语句的输出结果是(在立即窗口中)（ ）a="Beijing" b="ShangHai" Print a;b  A.BeijingShangHai B.BeijingShangHai C.BeijingShangHai  D.BeijingShangHai59. 语句Print 5*55/5的输出结果是 （ ） A.5  B.25  C.0  D.160.执行下面的语句后，所产生的信息框的标题是（ ）a=MsgBox("AAAA"，"BBBB"，""，5) A.BBBB  B.空  C.AAAA  D.出错，不能产生信息框三、 程序填空 1、请完成打印下列图形的程序：122333444455555FOR I=1 TO 5FOR J=_PRINT _NEXT J_NEXT I2、打印标准的九九表，完成下列程序：FOR I=1 TO 9 FOR J=（ ）RPINT （ ）NEXT J（ ）NEXT I2、以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分和最低分数。请将其补充完整。PRIVATE SUB FORM-CLICK（）DIM X AS SINGLE，AMAX AS SINGLE ，AMIN AS SINGLEX=INPUTBOX（“ENTER A SCORE”）AMAX=XAMIN=XDO WHILE （ ）IF X>AMAX THEN AMAX=XENDIFIF ( )THENAMIN=XENDIFLOOPPRINT “MAX=”;AMAX,”MIN=”;AMINEND SUB3、产生50个两位随机整数的程序。DIM S AS INGEGERDIM I AS INGEGERRANDOMIZE TIMERFOR I=（ ）S=（ ）PRINT S；NEXT I4、编写在窗口上显示如下图形的程序：-其中-表示空格FOR I=（ ）PRINT （ ）FOR J=（ ）PRINT “*“；NEXT JPRINTNEXT I5、编写求N！的子过程，通过调用此子过程来计算5！+8！-6！Private Sub FORM1_Click()DIM A&.B&,C&,D&CALL JCH(5,A)CALL JCH(8,B)CALL JCH(6,C)_PRINT DEND SUBSUB _DIM I%P=1FOR I=1 TO NP=P*INEXT IEND SUB6、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。修改程序，求方程的根。 要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。 Private Sub Command1_Click() Dim a,b,c,d As Single Dim x1,x2 As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b2-4*a*c If d_ Then x1=(-b+Sqr(d)/(2*a) x2=(-b-Sqr(d)/(2*a) Label1.Caption=x1 Label2.Caption=x2 _ Label3.Caption=_ End If End Sub7、修改程序，使能输出： 1-2+3-4+5-6+.+99-100的值 程序如下： Private Sub Command1_Click() s=_ For i=1 To 100 s=s+(-1)(_)*i Next i Print s End Sub8、填充程序，使能输出如下图形： * * * * * * * * * * * * * * * * * * * * * 程序如下： Private Sub Command1_Click() For i=1 to _ For j=1 to _ Print_ Next j _ Next i End Sub 9、下面的程序是求100以内奇数和s的值（S=1+3+5+7.+99）。程序中有三处错误，请更正。 Private Sub Command1_Click() Dim s As Single Dim i As Single s=1 For i=1 to 100 Step 1 s=s*i Next i Print s End Sub 10、完善已写在“执行”按钮的Click事 件下的程序代码， 将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具体的表达式，使得当鼠标单击命令按钮“执行”时，显示出满足条件2+4+6+.+x<80中最大的x的值。 命令代码如下： Private Sub Command1_Click() s=0 x=0 Do Until s>=80 x=x+常量 s=s+变量 Loop Print 表达式 End Sub四、综合题 一）、设计一个程序，窗体中有2个列表框，左侧列表框中列出若干城市名（大连，沈阳，上海，青铜，大同，天山，辽阳）。”显示”按钮用于复原,”清除”按钮用于清除2个列表框中的内容.两个标签的用于显示”全部的城市”,”部分的城市”.1、单击”>”按钮,某个城市名从左框消失,同进显示在右框中.2、单击”>>”按钮,左框的全部城市名消失,同时全部显示在右框中.3、单击”<”按钮,某个城市名从右框消失,同进显示在左框中.4、单击”<<”按钮,右框的全部城市名消失,同时全部显示在左框中.按下列步骤进行解答：1、用户界面设计2、属性设置3、代码设计二）北京、南京、西安、昆明四城市的名胜古迹和风景区如下： 北京：天安门广场、故宫、北海公园、颐和园、香山、天坛南京：雨花台、中山陵、明孝陵、灵谷寺、栖霞山、莫愁湖西安：钟楼、大雁塔、小雁塔、半坡博物馆、兵马俑昆明：金殿、西山龙门、安宁温泉、滇池、大观公园 建立一个弹出式菜单，该菜单包括4个命令，分别为“北京”、“南京”、“西安”、“昆明”。程序运行后，单击弹出菜单中某个命令，在标签中显示相应的城市的名字，而在文本框中显示相应的名胜古迹和风景区的名字。按以下步骤进行设计：1、用户界面设计2、控件属性设置3、菜单项属性设置4、代码设计三）在窗体上画一个文本框，把它的NULTILINE属性设为TRUE，通过菜单命令向文本框中输入信息并对文本框中的文本进行格式化。按下述要求建立菜单程序：1、菜单程序含有3个主菜单，分别为“输入信息”，“显示信息”和“格式”。其中：“输入信息”包括两个菜单命令：“输入”，“退出”；“显示信息”包括“显示”、“清除”两个菜单命令。 “格式”包括5个菜单命令：“正常”、“粗体”、“斜体”、“下划线”、“FONT20”。2、“输入”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字；3、“退出”命令的操作是：结束程序的执行；4、“显示”命令的操作是：在文本框中显示输入的文本；5、“清除”命令的操作是：清除文本框中显示的内容；6、“正常”命令的操作是：文本框中的文本用正常字（非粗体、非斜体、无下划线）显示；7、“粗体”命令的操作是：给文本框中的文本用粗体显示；8、“斜体”命令的操作是：文本框中的文本用斜体显示；9、“下划线”命令的操作是：给文本框中的文本加下划线；10、“FONT20”命令的操作是：把文本框中文本字体的大小设置为20。要求：新输入的文本添加到原有文本的后面。按下列步骤进行解答：1、用户界面设计2、控件属性设置3、菜单项属性设置4、代码设计-