VB程序设计期末考试卷及答案（高职）.docx

《VB程序设计期末考试卷及答案（高职）.docx》由会员分享，可在线阅读，更多相关《VB程序设计期末考试卷及答案（高职）.docx（13页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、VB程序设计期末考试试题（1）一、选择题（每题只有一个正确答案，多选、错选均不得分。共20题，每小题1分,共20分。）1、下列选项中不属于结构化程序设计方法的是 OA、自顶向下B、逐步求精C、模块化【）、可复用 派订 派订 派订 2、以下关于Visual Basic特点的叙述中，错误的是。A. Visual Basic是采用事件驱动编程机制的语言B、Visual Basic程序既可以编译运行，也可以解释运行C、构成Visual Basic程序的多个过程没有固定的执行顺序D. Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构 3、以下叙述中，错误的是 oA、在Visua

2、l Basic中，对象所能响应的事件是由系统定义的B、对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C. Visual Basic中允许不同对象使用相同名称的方法D、Visual Basic中的对象具有自己的属性和方法4、以下不属于Visual Basic的工作模式是 模式。A、编译B、设计C、运行D、中断5、要使Print方法在Form_load事件中起作用，要对窗体的 属性进行设置。A、 BackColorB、ForeColorC、 AutoRedrawD、Caption6、VB6.0中，文本框没有 属性。A、 EnabledB、VisibleC、 BackcolorD、Ca

3、ption7、窗体上放置了三个文本框，若在Textl中输入456,在Texl2中输入78,在程 序中执行了语句Text3=Text 1+Text2后，则在Text3中显示。A、434B、45678C、溢出D、语法错误 8、如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click() 事件过程，则命令按钮控件的名称属性和Caption属性分别为。A、“0K”和“确定”B、“确定”和“0K”C、“Commandl” 和“确定 D、“Commandl ” 和 “0K”9、以下所列项目不属于窗体事件的是 oA、 Initialize B、 SetFocus C、 GotFocus D

4、、 LostFocus 10、当运行程序时，系统自动执行启动窗体的 事件过程。A、 ClickB、 UnloadC、 GotFocus D、 Load11、如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等 于 OA、100()B、100 C、10D、112、设窗体上有一个滚动条，要求单击滚动条右端的滚动箭头一次，滚动块移动一 定的刻度值，决定此刻度值的属性是。A、MaxBx Min C、Smal 1 Change 【)、LargeChange13、在代码编辑器的一行内写多条语句时，每个语句之间用 符号分隔。A、,B、：C、D、；14、表达式Lcn(“123程序设计VB)

5、的值是。A、9B、13C、14D、1015、如下数组声明语句，正确。A、Dim a3,4 As Integer B、Dim(3 4) As IntegerC、Dim a(3, 4) As Integer D、Dim a(n, n) As Integer 16、函数Int(Rnd*100)是在 范围内的整数。 米 A、(0, 10)B、(1, 100)C、 0, 100)D、 (1,99)17、在窗体上有一个名为Cdl的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是 OA、Cdl. action=lB、Cdl. action=2C、Cdl. showsave=true

6、D、Cdl. showsave=018、假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是 oA、BOOL =TRUEB、BOOL =. TRUE.C、 BOOL =#TRUE#D, BOOL = True19、以下叙述中错误的是。A、用Shell函数可以执行扩展名为.exc的应用程序B、若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型C、Static类型的变量可以在标准模块的声明部分定义D、全局变量可以在标准模块中用Public声明20、某人创建了一个工程，其中的窗体名称为Forml,又添加了一个名称为Form2窗 体，并希望程序执行时先执行Form2窗

7、体，那么，需要做的工作是A、在工程属性对话框中把“启动对象”设置为Form2B、在Forml的Load事件过程中加入语句Load Form2C、在Form2的Load事件过程中加入语句Form2. showD、把Form2的Tab index属性设置为1,把Forml的Tabindex属性设置为2二、判断题(每题1分，共10分。将答案写在答题纸上，正确的填“T”，错误的 填 “F”)1,方法是Visual Basic对象可以响应的用户操作。2、使用RcDim语句既可以改变数组的大小，也可以改变数组的类型。3、过程调用时，数组作参数，传递的是地址数据。4、事件过程只能由系统调用，在程序中不能直接

8、调用。5、定义一个过程时有几个形参，则在调用该过程的时候就必须提供几个实参。6、在过程中用Static定义的变量不是局部变量。7、窗体的Paint事件是否触发，将受到AutoRedraw属性的限制。8、当用户拖动滚动条滑块时，滚动条的Scroll事件将连续触发。9、若在列表框中第五项之后插入一项目“ABCD”，则所用语句为Listl. Additem “ABCD” ，5。10、图片框和图像框都可以作为容器来使用。三、填空题(每空2分，共20分。)1、VB中坐标系统的坐标度量单位可通过设置 属性来改变。2、用RGB ()函数把窗体的背景色设置为红色，则该语句为： Forml. BackColor

9、=。3、在名称为piclurel的图片框里用画线方法从(100, 100)到(500, 500)画一 条线，该语句为：.4、Microsoft Access数据库文件的扩展名是。5、SQL语句Select编号，姓名，部门From 职工Where部门=”信工学院”， 所查询的表名称是。6、VB允许对3种类型的记录集进行访问，即、和 O7、在窗体上有驱动器列表框(Drivel),目录列表框(Dirl)和文件列表框(Filel),要实现驱动器列表框和目录列表框的同步，需要在驱动器列表框的Change事件过程中写入代码：;要实现目录列表框和文件列表框的同步，需要在 目录列表框的Change事件过程中写

10、入代码:订 米 四、程序阅读题(共4小题，每题5分，共20分。)1、在窗体上画1个命令按钮，名称为Command 1,然后编写如下程序Dim Flag As BooleanPrivate Sub Conunandl_Click()Dim intNum As IntegerintNum=InputBox(“请输入：”)If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X10 ThenY=XEl se Y=X+10End Iff=YEnd FunctionInteger, X AsPrivate

11、 Sub Form MouseUp(Button As Integer, Shift As Single, Y As Single)Flag二TrueEnd Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5,则程序的输 出结果为2、在菜单编辑器中建立1个名称为Menu 123的菜单项，将其“可见”属性设置为False,并建立其若干子菜单，然后编写如下过程:Private Sub Form MouseDown(Button As Integer, Shift As Integer, X AsSingle, Y As Single)End IfEnd Sub请把程序补充完整，

12、要求在窗体上单击左键，弹出已经隐藏的菜单Menul23。3、在窗体上画1个文本框，其名称为Textl,然后编写如下过程:PrivateSub Textl_KeyDown(KeyCode As Integer, Shift As Integer)PrintChr(KeyCode)End SubEnd SubEnd SubPrivateSub Textl_Keyl-p(KeyCode As Integer, Shift As Integer)PrintPrintPrintChr(KeyCode+2)对话框，设置文本框中字体的颜色。 For*2End Sub程序运行后，把焦点移到文本框中，此时如果敲

13、击“A”键，则输出结果为4、如下图，窗体里有名称为Textl的文本框，名称为commandl的命令按钮，已经名称为commondialogl的通用对话框控件。要求程序运行时点击命令按钮弹出“颜色”Private Sub Commandl_Click()End Sub装 五、编程题（共3小题，每题10分，共30分。）X X X X X X：1、用随机函数产生50个10100之间的互不相同的整数，存于一数组中，并以升 序每行10个数打印输出到窗体上。2、输入系列字符串，按升序排列输出。要求:（1）每输入一个字符串，按回车键后即把该字符串存放到数组中，并输出在排序前的文本框Texi2中。字符数组“升

14、序”排列，并在排序后的文本框Texl3中输出。（2）程序运行后窗体界面如图所示。米 3、设计一个画板程序，程序运行后可以根据选择的线型的粗细、颜色，用鼠标的左 键模拟笔在绘图区随意绘图，用鼠标的右键可擦除所绘制的线条，要求：（1）绘图区使用图片框，名称为picture并将其设置为固定边框，白色背景。（2）单击“清除”按钮则清除图片框中的图形。（3）粗细线型分别设置为1磅和5磅（设置图片框的Drawwidth属性），标题 为“细”的单选钮名称是optionl,标题为“粗”的单选钮名称是option2。请依据设计界面添加详细的代码。程序设计界面如图所示：,For.1二|叵区清除VB程序设计试题（1

15、）参考答案 派订 派订 一、选择题1-5 DDBAC6-10DBABD11-15ACBAC16-20CBDCA二、判断题1、F2、F3、T4、F5、T6、F7、T8、T9、T10、F三、填空Scalemode2、RGB (255, 0,0)3、picturel. line (100, 100) - (500, 500)4、 . mdb5、职工6、表类型、动态类型、快照类型7、dirl. path=drivel. driveFilel.path=dirl. path四、程序阅读题1、5If Button=l ThenPopupMenu Menu 1233、AC4、CommonDialogl. S

16、howCo1orTextl. ForeColor = CommonDialogl. Color五、编程题1、用随机函数产生50个10100之间的互不相同的整数，存于一数组中，并以升 序每行10个数打印输出到窗体上。Private Sub Command 1 _Click()Dim a(l To 50) As Integer, i%, j%, t%, p%, n%, x%n = 0已经产生的元素个数RandomizeDo While n n Thenn = n + Ia(n) = xEnd IfLoopFor i = 1 To 49使用选择法排序P = iFor j = i + 1 To 50I

17、f a(p) a(j) Then p =jNext jt = a(p): a(p) = a(i): a(i) = tNext IFor i = 1 To 50 ，打印输出Pictuel.Print a(i);If i Mod 1() = 0Then Pictucl.PrintNext i 派订 派订 派订 End Sub2、输入系列字符串，按升序排列输出。要求：(1)每输入一个字符串，按回车键后即把该字符串存放到数组中，并输出在排序前 的文本框Text2中。字符数组“升序”排列，并在排序后的文本框Text3中输出。(2)程序运行后窗体界面如图所示。Dim a() As String, n%Pr

18、ivate Sub Textl_KeyPress(KeyAscii As Integer)Dim i As Integer, j As Integer, k As Integer, t As String If KeyAscii = 13 Then n = n + 1ReDini Preserve a(n)动态存储数组a增加1个元素，前nT个元素值保持 不变。a(n) = Textl. TextText2. Text = Text2. Text + Textl. Text + Chr(13) + Chr(10) Textl. Text = Text3. Text =For i = 1 To n

19、 - 1P = iFor j = i + 1 To nIf a(p) a(j) Then p = jNext j t = a(i) a(i) = a(p) a(p) = t Next I For i = 1 To nText3. Text = Text3. Text & a(i) & Chr(13) + Chr(10) Next iEnd If End Sub 3、设计一个画板程序，程序运行后可以根据选择的线型的粗细、颜色，用鼠标的左 键模拟笔在绘图区随意绘图，用鼠标的右键可擦除所绘制的线条，要求：（H）分）（4）绘图区使用图片框，名称为picture1,并将其设置为固定边框，白色背景。（5）

20、单击“清除”按钮则清除图片框中的图形。(6)粗细线型分别设置为1磅和5磅(设置图片框的Drawwidth属性)，标题 为“细”的单选钮名称是。ptionl,标题为“粗”的单选钮名称是。ption2。请依据设计界面添加详细的代码。程序设计界面如图所示：Private Sub Command2_Click() 嘴除Picture I.CisEnd Sub1当鼠标按下键记录下当前坐标Private Sub Picture 1 MouseDown(Button As Integer, Shift As Integer, X As Single, Y AsSingle)Picture l.Currcnt

21、X = XPicture 1 .CurrentY = YEnd SubPrivate Sub Picture 1 _MouscMove(Button As Integer, Shift As Integer, X As Single, Y AsSingle)，判断画笔的粗细If Option! .Value = True ThenPicture l.DrawWidth = 1End IfIf Option2.Value = True ThenPicture 1 .Draw Width = 5End If判断鼠标左键是否按下If Button = vbLeftButton ThenPicture l.ForcColor = colorPicture 1.Line -(X,Y) ，画线End If判断鼠标右键是否按下If Button = vbRightButton ThenPicture 1 .ForeColor = vbWhitePicture l.DrawWidth = 5Picture 1.Line -(X,Y) ，擦除End If 派订