VB程序设计期末考试试卷2.pdf

《VB程序设计期末考试试卷2.pdf》由会员分享，可在线阅读，更多相关《VB程序设计期末考试试卷2.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2004-2005第二学期V B程序设计期末考试试卷(A)说明：请将所有答案写在答题纸上，写在试卷上的一律无效。一、填 空 题(共 10空，每 空 1 分，共 10分)。(1)与 控 件 的 位 置 及 大 小 有 关 的 四 个 属 性 是、。(2)VB中对话框是程序与用户交互的主要途径之一，对话框有、。(3)如果希望产生AB 之间的随机整数(包括A 和 B),应用 表示实现。(4)如果不指定数组的下标下界，则数组的下界由 语句控制，如无该语句，则默认为 0。(5)为了提高程序的可读性，通常应该在程序的适当位置加上一些注释，可以在注释前面加上 或 来表示注释。二、选 择 题(共 30题，每

2、题 1 分，共 30分)。(1)在窗体中添加名称为Commandl和名称为Command2的命令按钮测验文本框Textl,然后编写如下代码：Private Sub Command 1 _Click()Textl.Text=ABEnd SubPrivate Sub Command2_Click()Text I.Text=CDEnd Sub首先单击Command2按钮，然后再单击Commandl按钮，在文本框中显示()A)CD B)AB C)ABCD D)CDAB(2)以下叙述中错误的是A)双击鼠标可以触发DblClick事件 B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发Mo

3、useMove事件 D)控件的名称可以山编程人员设定 以 卜属于Visual Basic系统窗体的文件类型是A).frm B).bat C).vbg D).vbp(4)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A)MouseDown B)MouseUp C)Load D)Click(5)设 a=10,b=5 c=l,执行语句Print a b c 后，窗体上显示的是A)True B)False C)1 D)出错信息(6)如果要改变窗体的标题，则需要设置的属性是A)Caption B)Name C)BackColor D)BorderStyle(7)以下能判断是否到达文件尾的函数是

4、A)BOF B)EOF C)LOF D)LOC(8)窗体的 MouseDown 事件过程 Form_MouscDown(Button As Integer,Shift As Integer,X AsSingle,Y As Single)有 4 个参数，关于这些参数，正确的描述是A)通过Button参数判定当前按下的是哪,个鼠标键B)Shift参数只能用来确定是否按下Shift键C)Shift参数只能用来确定是否按下Alt和 Ctrl键D)参数x,y用来设置鼠标当前位置的坐标(9)设组合框Combol中有3 个项目，则以下能删除最后一项的语句是A)Combo 1.Removeitem Text

5、B)Combo 1.Removeitem 2C)Combo 1 .Removeitem 3 D)Combo 1 .Removeitem Combo 1.Listcount(10)如果耍在菜单中添加一个分隔线，则应将其Caption属性设置为A)-B)*C)&D)=(11)如果变量a、b、c 均为整型，下列程序段的输出结果为a=2b=3c=a*bPrint a&b&“=&cA)c=6 B)a*b=c C)2*3=6 D)a*b=6(12)设有以下循环结构Do循环体Loop While(条件则以下叙述中错误的是A)若 条件 是一个为0 的常数，则一次也不执行循环体B)条件 可以是关系表达式、逻辑表

6、达式或常数C)循环体中可以使用Exit D o语句D)如果 条件 总是为T ru e,则不停地执行循环体(13)在窗体上画一个名称为Command 1 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim num As Integernum=1Do Until num 6Print num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A)1 3.4 5.8 B)135 C)147 D)无数据输出(14)在窗体上画一个名称为Command 1 的命令按钮，然后编写如下事件过程：Private Sub Com

7、mand l_Click()Dim a As Integer,s As Integera=8s=1Dos=s+aa=a-1Loop While a=0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A)79 B)34 0 C)97 D)死循环(15)文件列表框的Pattern属性的作用是A)显示当前驱动器或指定驱动器上的目录结构B)显示当前驱动器或指定驱动器上的某目录下的文件名C)显示某一类型的文件D)显示该路径下的文件(16)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A)工程资源管理器窗口 B)工具箱窗口 C)代码窗口 D)属性窗口(17)在窗体上画一

8、个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()For n=1 To 20If n Mod 3 o 0 Then m=m+n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是A)15 B)18 C)21 D)24(18)菜单控件只包含一个事件，即(),当用鼠标单击或键盘选中后按回车键触发该事件,除分隔条以外的所有菜单控件都能识别该事件A)GotFocus B)Load C)Click D)KeyDown(19)当计时器控件(Timer)开始工作时，要求它的Enable属性为A)假

9、B)10 C)真 D)100(20)在窗体上建立三个文本框控件，一个命令按钮，程序代码如下，当按下命令按钮后在文本框3 内现实的内容是Private Sub Command l_Click()Text 1.Text=9Text2.Text=9Text3.Text=Text 1 .Text+Text2.TextEnd SubA)99 B)19 C)18 D)空(21)在窗体上画一个名称为Command 1的命令按钮和两个名称分别为Textl、Text2的文本框,然后编写如下事件过程：Private Sub Command 1 _Click()n=Textl.TextSelect Case nCa

10、se 1 To 20 x=10Case 2,4,6x=20Case Is Label3 Label4 Label5 Labcl6,其中标签 Label 4 Label6 分别显示”A“、”B、“A*B”等文字信息，标签Labell、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮”计算 时，对标签Labell、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是A)Private Sub Commandl_Click()Label3.Caption=Val

11、(Label 1 .Caption)*Val(Label2.Caption)End SubB)Private Sub Commandl_Click()Label3.Caption=HScrolll.Value*HScroll2.ValueEnd SubC)Private Sub Commandl_Click()Label3.Caption=HScrolll*HScroll2End SubD)Private Sub Commandl_Click()Label3.Caption=HScrolll.Text*HScroll2.TextEnd Sub(24)在窗体上画一个名称为Textl的文本框，并编

12、写如下程序：Private Sub Form_Load()ShowTextl.T e x tTextl.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Print 程序设计”End SubPrivate Sub Text 1 _KeyDown(KeyCode As Integer,Shift As Integer)Print Visual Basic;End Sub程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是A)Visual

13、Basic B)程序设计 C)A 程序设计 D)Visual Basic程序设计(25)在窗体中添加 个命令按钮，名称为Commandl,两个文本框名称分别为Textl、Text2,然后编写如下程序：Private Sub Commandl_Click()a=Textl.textb=Text2.textC=Lcase(a)D=Ucase(b)PrintC;DEnd Sub程序运行后，在文本框Textl.Text2中分别输入AbC和 E fg,结果是A)abcEFG B)abcefg C)ABCefg D)ABCEFG(26)选中一个窗体，启动菜单编辑器的方法有A)单击工具栏中的“菜单编辑器”命

14、令B)执 行“工具”菜单中的“菜单编辑器”命令C)按 Shift+Alt+MD)按 Ctrl+E(27)在窗体中添加个命令按钮Com m andl,并编写如下程序：Private Sub Command l_Click()x=InputBox(x)If x八 2=9 Then y=xIf xA29 Then y=xA2+lPrint yEnd Sub程序运行后，在 InputBox中输入3,单击命令按钮，程序的运行结果是A)ll B)0.33 C)3 D)9(28)当 VB执行下面语句后，A 的值为A=1IfA0 Then A=A+1IfAl ThenA=0A)3 B)1 C)2 D)0(29

15、)在 V B 中要设置菜单项的快捷访问键，应使用 符号A)B)*C)$D)&(30)假定有以下程序段：For i=1 To 3For j=5 To 1 Step-1Print i*jNext jNext i则语句Print i*j 的执行次数是A)16 B)15 C)17 D)18三、判 断 题(共 10题，每 题 1 分，共 10分)。(1).窗体的Name属性的值是显示在窗体标题栏中的文本。()(2).改变文本框的内容能够触发文本框Change事件。()(3).表示滚动条控件取值范围最大值的属性是LargeChangeo()(4).可以惟一标识控件数组中的每一个控件属性的是index。()

16、(5).VB中所有的对象都有同样的属性。()(6).窗体文件的扩展名是 m。()(7).PictureBox图片框控件控件可以作为容器控件。()(8).若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置PasswordChar 属性值为*。()(9).确定一个窗体或控件大小属性是Top和 Left。()(10).使文本框获得焦点的方法LostFocus。()四、完 成 程 序(共 10空，每空3 分，共 30分(1)以下程序的功能是：生成20个 200到 300之间的随机整数，输出其中能被5 整除的数并求出它们的和。请填空。Private Sub Commandl C

17、 1 ick()Fori=lTo20 x=Int()If=0 ThenPrint xS=S 十 _ _ _ _ _ _ _ _ _End IfNext iPrint HSum=：SEnd Sub(2)在窗体中添加两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下代码:Private Sub Commandl_Click()Textl.Text=nVBMText2.Text=Text 1.TextTextl,Text=ABCEnd Sub程序运行后，单击命令按钮后，两个文本框中显示的内容分别为 和。(3)以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，

18、当输入负数时结束输入，输出结果，请将程序补充完整。Private Sub Form_Click()Dim x,amax,amin As Singlex=InputBox(Enter a score)amax=xamin=xDo While_If x amax Thenamax=xEnd IfIf Thenamin=xEnd Ifx=InputBox(Enter a score*)LoopPrint nmax=;,min=”;aminEnd Sub(4)在窗体上画一个名称为Command 1 的命令按钮和一个名称为T extl的文本框。程序运行后，Command 1 为禁用(灰色)。当向文本框中

19、输入任何字符时，命令按钮Commandl变为可用。请在空白处填入适当的内容，将程序补充完整Private Sub Form_Load()Command l.Enabled=End SubPrivate Sub TextCommandl.Enabled=TrueEnd Sub五、程序设计题(第1、2 小题，每题6 分，第 3 小题7分，共 30分)。1.输出200 2000之间所有不能被3 整除的数。2.利用随机函数产生20个 1100之间的数，求这些数的乘积和这些随机数中比50大的数的个数。3.打印如图1所示的乘法“九九表”。BFor.l0回区123456789112345678902468O

20、-JCM乙一00 111x1X12581473369111222050505055511223344表4U26048264481122233284062846611233445418529637712234456642086428812344567876543219912345678图 1九九表2004-2005第二学期VB程序设计期末考试试卷(A)答案一、填 空 题(共 io 题，每 题 1 分，共 10分)。(l)Top le ft、width height o(2)msgbox inputbox o int(md*(b-a+l)+a)。(4)option baseo(5)rem 0二、选

21、 择 题(共 30空，每 空 1 分，共 30分)。12345678910BBACBABABA11121314151617181920CABCCCCCCA21222324252627282930ACDAACCDDB三、判 断 题(共 10题，每 题 1 分，共 10分)。12345678910XJXVXVVVXX四、完 成 程 序(共 10空，每空3 分，共 30分)。(1).Int(md*(300-200+1 )+200)x mod 5、i(2).ABC、AB(3).x=0 x am in、amax(4)false change五、程序设计题(第1、2 小题，每题6 分，第 3 小题7 分，共 30分)。略