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

《VB程序设计期末考试试卷-1.pdf》由会员分享，可在线阅读，更多相关《VB程序设计期末考试试卷-1.pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

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

2、、选 择 题(共 30题，每 题 1 分，共 30分)。(1)在窗体中添加名称为Command 1 和名称为Command2的命令按钮测验文本框Texll,然后编写如下代码：Private Sub Command l_Click()Text 1.Text=AB”End SubPrivate Sub Command2_Click()Textl.Text=uCDnEnd Sub首先单击Command2按钮，然后再单击Command 1按钮，在文本框中显示()A)CD B)AB C)ABCD D)CDAB(2)以下叙述中错误的是A)双击鼠标可以触发DblClick事件 B)窗体或控件的事件的名称可以

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

4、(7)以下能判断是否到达文件尾的函数是A)BOF B)EOF C)LOF D)LOC(8)窗体的 MouseDown 事件过程 Form_MouseDown(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)设组合框Combo 1 中有3 个项目，则以下能删除最后-项的语句是A)Com

5、bo 1 .RemoveitemText 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 v条件则以下叙述中错误的是A)若“条件”是一个为0 的常数，则一次也不执

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

7、F事件过程：Private Sub Command 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)工程资源管理器窗U B)工具箱窗口 C)

8、代码窗口 D)属性窗口(17)在窗体上画-一个名称为Command 1 的命令按钮，然后编写如下事件过程：Private Sub Command l_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)

9、开始工作时，要求它的Enable属性为A)假 B)10 C)真 D)100(20)在窗体上建立三个文本框控件，一个命令按钮，程序代码如下，当按下命令按钮后在文本框3 内现实的内容是Private Sub Command 1 _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=Te

10、xtl.TextSelect Case nCase 1 To 20 x=10Case 2,4,6x=20Case Is 10 x=30Case 10 x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Texll中输入1 0,然后单击命令按钮，则在Text2中显示的内容是_ _ _ _ _ _ _ _ _ _ _ _A)10 B)20 C)30 D)40(22)设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx=20y=2f=x*yEnd Function在窗体上画一个名称为Commandl的

11、命令按钮，然后编写如下事件过程：Private Sub Command l_Click()Static x As Integerx=10y=5y=f(x)Print x;yEnd Sub程序运行后，如果单击命令按钮，则在窗体.上显示的内容是A)10 5 B)20 5 C)2040 D)10 40(23)在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2；六个标签，名称分别为Labell、Label2、Label3、Label4、Label5、Label6,其中标签 Label 4 Label6 分别显示“A、“A*B”等文字信息，标签Labell、Label2分别显示其右侧的滚

12、动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮”计算”时，对标签Labell、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是A)Private Sub Command 1 _Click()Label3.Caption=Val(Label 1 .Caption)*Val(Label2.Caption)End SubB)Private Sub Command 1 _Click()Label3.Caption=HScroll 1 .Value*HScroll2.ValueEnd Su

13、bC)Private Sub Commandl_Click()Label3.Caption=HScroll 1 *HScroll2End SubD)Private Sub Commandl_Click()Label3.Caption=HScroll 1.Text*HScroll2.TextEnd Sub(24)在窗体上画-个名称为Textl的文本框，并编写如下程序：Private Sub Form_Load()ShowTextl.Text=HTextl.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Inte

14、ger,X As Single,Y As Single)Print“程序设计”End SubPrivate Sub Text l_KeyDown(KeyCode As Integer,Shift As Integer)Print Wisual Basic;End Sub程序运行后，如果按“A键，然后单击窗体，则在窗体上显示的内容是A)Visual Basic B)程序设计 C)A 程序设计 D)Visual Basic程序设计(25)在窗体中添加一个命令按钮，名称为Commandl,两个文本框名称分别为Textl、Text2,然后编写如下程序：Private Sub Command l_Cli

15、ck()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)单击工具栏中的“菜单编辑器”命令B)执 行“工具”菜单中的“菜单编辑器”命令C)按 Shift+Alt+MD)按 Ctrl+E(27)在窗体中添加一个命令按钮Command 1,并编写如下程序：Private Sub Command 1 _Click()x=InputBox(x

16、)If xA2=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=1If A0 Then A=A+1If A1 Then A=0A)3 B)1 C)2 D)0(29)在 V B 中要设置菜单项的快捷访问键，应使用 符号A)B)*C)$D)&(30)假定有以下程序段：For i=1 To 3For j=5 To 1 Step-1Print i*jNext jNext i则语句Printi*j 的执行次数是

17、A)16 B)15 C)17 D)18三、判 断 题(共 10题，每 题 1 分，共 10分)。(1).窗体的Name属性的值是显示在窗体标题栏中的文本。()(2).改变文本框的内容能够触发文本框Change事件。()(3).表示滚动条控件取值范围最大值的属性是LargeChange。()(4).可以惟一标识控件数组中的每个控件属性的是index。()(5).VB中所有的对象都有同样的属性。()(6).窗体文件的扩展名是.frm。()(7).PictureBox图片框控件控件可以作为容器控件。()(8).若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置Passwor

18、dChar 属性值为*。()(9).确定一个窗体或控件大小属性是Top和 Left。()(10).使文本框获得焦点的方法LostFocus。()四、完 成 程 序(共 10空，每空3 分，共 30分)。(1)以下程序的功能是：生成20个 200到 300之间的随机整数，输出其中能被5 整除的数并求出它们的和。请填空。Private Sub Commandl_C 1 ick()Fori=lTo20 x=Int()If=0ThenPrint xS=S 十 _ _ _ _ _ _ _ _ _End IfNext iPrint Sum=n：SEnd Sub在窗体中添加两个文本框和一个命令按钮，然后在命

19、令按钮的代码窗口中编写如卜代码:Private Sub Command l_Click()Textl.Text=nVBMText2.Text=Text 1.TextTextl.Text=nABCuEnd Sub程序运行后，单击命令按钮后，两个文本框中显示的内容分别为 和。以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完整。Private Sub Form_Click()Dim x,amax,amin As Singlex=InputBox(nEnter a score)amax=xamin=xDo WhileIf

20、x amax Thenamax=xEnd IfIf Thenamin=xEnd Ifx=InputBox(Enter a score)LoopPrint,max=n;,Hmin=H;aminEnd Sub(4)在窗体上画一个名称为Command 1 的命令按钮和一个名称为T extl的文本框。程序运行后，Command 1 为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Commandl变为可用。请在空白处填入适当的内容，将程序补充完整Private Sub Form_Load()Command l.Enabled=End SubPrivate Sub TextCommand l.Enab

21、led=TrueEnd Sub五、程序设计题(第1、2 小题，每题6分，第 3 小题7分，共 30分)。1.输 出 200-2000之间所有不能被3 整除的数。2.利用随机函数产生20个 1100之间的数，求这些数的乘积和这些随机数中比50 大的数的个数。3.打印如图1所示的乘法“九九表”。For.l 目回区123456789112345678902468CMCMc-001X 11x1x 12581473369111222050505055511223344A-4U2604826/448112223328406284661123344541852963771223445664208642881

22、2344567876543219912345678图 1九九表2004-2005第二学期VB程序设计期末考试试卷(A)答案一、填 空 题(共 io 题，每 题 1 分，共 10分)。(l)Top le ft、width height o(2)msgbox inputbox o(3)int(md*(b-a+l)+a)(4)option baseo(5)rem 。二、选 择 题(共 30空，每 空 1 分，共 30分)。12345678910BBACBABABA11121314151617181920CABCCCCCCA21222324252627282930ACDAACCDDB三、判 断 题(共 10题，每 题 1 分，共 10分)。12345678910XVXVXVVVXX四、完 成 程 序(共 10空，每空3 分，共 30分)。(1).Int(rnd*(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分)。略