VB期末综合练习

1、VB期末综合练习一、填空题1、计时器事件之间的间隔通过（ ）属性设置。2、要想在文本框中显示垂直滚动条，必须把（ ）属性设置为2，同时还应把（ ）属性设置为（ ）3、在过程定义中出现的变量名叫做（ ）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（ ）参数。4、VISUAL BASIC 6.0中的控件在窗体上分为3类，它们是（ ），（ ） 和（ ）。5、设计弹出式菜单时，先通过_建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的_方法显示弹出式菜单。 6、indows可公用的对话框有：_、保存文件对话框、颜色设置、字体设置对话框、打印设置对

2、话框、帮助文件六种，可通过调用通用对话框控件的_、ShowSave、ShowColor、_ 、ShowPrint、ShowHelp方法来使用它们。也可通过设置通用对话框控件的_属性来实现。 7、根据文件的存取方式及其组成结构，将文件分成_、_和_。8、由ARRAY（）函数建立的数组的名字必须是_类型。9、强制退出DO.LOOP循环语句是_，强制性退出FOR.NEXT语句是_。10、Visual Basic 应用程序由（ ）、标准模块和（ ）。11、设置组合框的风格，可用的属性是（ ），按钮VALUE属性的值的类型是（ ）。12、Visual Basic 中，除了可以指定某个窗体作为启动对象之外

3、，还可以指定（ ）作为启动对象。13、要将MDI应用程序中的普通窗体设置为MDI子窗体，只需要把（ ）属性设置为（ ）即可。14、建立弹出式菜单所使用的方法是（ ），要为某个菜单项加分隔线，则该菜单的标题项应设为（ ）。15、为了使计时器控件TIMER1每隔1秒触发一次TIMET事件,应将TIMER1控件的( )属性设置为( ).16、（ ）类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 17、控件数组的名字由_属性指定,而数组中的每个元素由_属性指定.18、为了把一个窗全装入内存,所使用的语句为_;为了清除内存中指定的窗体,所使用的语句为_.19、在VB中，

4、对象的三要素分别是_,_和_.20、在VB中整型数据占_个字节的内存空间,双精度浮点型数据占_个字节的内存空间.21、为了使标签能自动调整大小以显示全部文本内容,应把标签的_属性设置为TRUE.22、确定复选框是否被选中，应访问的属性是_，要让一控件不显示，应将该控件的_属性设置成FALSE。23、对于计时器控件，如果希望每秒产生10个事件，则应将其INTERVAL设置为_。24、若要屏蔽加上的控件对象，则需要设置（ ）属性的值为FALSE。25、vb6.0分为3种版本，这3种版本是（ ）、（ ）和（ ）。26、如果打开了不需要的菜单或对话框，可以用（ ）键关闭。27、属性窗口分为4个部分，这

5、4个部分分别是（ ），（ ），（ ），（ ），28、在中窗体文件的后缀名为（ ），工程文件的后缀名为（ ）。 29、提供（ ） 函数用于将数字字符转换成数值型，提供（ ）函数用于将数值转换成字符型。 30、工程文件的扩展名是（ ），窗体文件的扩展名（ ）。31、控件数组的名字由（ ）属性决定，而数组中的每个元素由（ ）属性决定。32、在3种不同类型的组合框中，只能选择而不能输入的组合框是（ ）。33、菜单编辑器可分为3部分，即（ ）、（ ）和（ ）。34、Visual Basic的过程有3种，它们是( )过程、（ ）过程和（ ）过程。35、为了显示一个窗体，所使用的方法为（ ），而为了隐藏一个

6、窗体，所使用的方法为（ ）。36、VISUAL BASIC 6.0应用程序由（ ），（ ），（ ）三种模块组成。37、计时器事件之间的间隔通过（ ）属性设置。38、要想在文本框中显示垂直滚动条，必须把（ ）属性设置为2，同时还应把（ ）属性设置为（ ）39、在过程定义中出现的变量名叫做（ ）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（ ）参数。40、VISUAL BASIC 6.0中的控件在窗体上分为3类，它们是（ ），（ ） 和（ ）。二、单项选择题 1、打开多重窗体应用程序后（ ）A、打开一个窗体后，其他窗体都会被关闭B、允许同时打开多个窗体C、打开一个窗体后，其他窗体

7、都会被隐藏起来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,则表达式ab And c=d And bc Or cd的值是（ ）A、True B、False C、-1 D、16、为了用键盘打开菜单和执行菜单命令，第一步应按

8、的键是（ ）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

9、.74 B)3.457E-100 C)368 D)1.87E+5011、设A=2，B=3，C=4，D=5，下列表达式的值是（ ）。32*B and A=C and BC or CDA)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

10、）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、图象框有一

11、个属性，可以自动调整图形的大小，以适应图象框的尺寸，这个属性是（ ）A、Autosize B、Stretch C、AutoRedraw D、Appearance20、下列程序的执行程序结果为（ ）a=100 b=50 If ab 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 Di

12、m 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、当拖动滚动条中的滚动块时，将触发

13、滚动条的事件是（ ）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=abprint cA)-1 B)0 C)false D)true29、下列关于键盘事件的说法中，

14、正确的是（ ）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=abprint cA、-1 B、0 C、False D、True31、要使命令按钮成为默认命令按钮，需使用其（ ）属性。A、Enabled B、Default C、Value D、Cancel32、在窗

15、体上画一个名称为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时结束所有循

16、环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、具有标准工具箱

17、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（A5,-1,0）后的X值为( ) A)5 B)6 C)0 D)-139、下列程序段执行后的结果是： for i

18、=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 BUn

19、load 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 TestC.Form1.Text = VB Test D.Form1.Name =VB Test46.使用驱动器表框的（ ）属性可以返回或设置磁盘驱动器的名称。A.CAHNGE B.DRIV

20、E 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.jpgB.FORM1.Handle = pic1 .jp

21、gC.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

22、 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.444B.32112

23、3C.123321D.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，下列表达式的值是（ ）ab AND cc A.True B.False C.-1 D.058.以下语句的输出结果是(在立即窗口中)（ ）a=Beijing b=ShangHai Print a;b A.BeijingShangHaiB.BeijingShang

24、HaiC.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

25、、以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分和最低分数。请将其补充完整。PRIVATE SUB FORM-CLICK（）DIM X AS SINGLE，AMAX AS SINGLE ，AMIN AS SINGLEX=INPUTBOX（“ENTER A SCORE”）AMAX=XAMIN=XDO WHILE （ ）IF XAMAX THEN AMAX=XENDIFIF ( )THENAMIN=XENDIFLOOPPRINT “MAX=”;AMAX,”MIN=”;AMINEND SUB3、产生50个两位随机整数的程序。DIM S AS INGEG

26、ERDIM 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*INEX

27、T 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=

28、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 _

29、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=x+常量 s=s+变量 Loop Print 表达式 End Sub四、综合题 一）、设计一个程序，窗体中有2个列表框，左侧列表框中列出若干城市名（大连，沈阳，上海，青铜，大同，天山，辽阳）。”显示”按钮用于复原,”清除”按钮用于清除2个列表框中的内容.两个标签的用于显示”全部的