VisualBasic程序设计往届试题三.doc

Visual Basic程序设计课程考核说明一、课程考核有关说明Visual Basic程序设计是开放教育计算机信息管理专业(专科)和计算机网络技术专业（专科）的一门限选省开课。4学分，72学时，其中实验36学时，第二学期开设。（一）考核对象：甘肃电大计算机相关专业的学生。（二）考核方式：本课程采用形成性考核与终结性考核相结合的考试方式。（三）命题依据：本课程依据课程教学大纲要求命题，所使用的文字教材是中央电大出版社出版的Visual Basic程序设计（刘世峰主编）。本课程的考核说明是形成性考核与终结性考试命题的基本依据。（四）课程总成绩的记分方法：形成性考核成绩占总成绩的20%，终结性考试成绩占总成绩的80%。课程总成绩按百分制记分，60分为合格。（五）形成性考核的形式及要求：主要考核学生平时学习及实验的完成情况，其中作业和测试占总成绩的8%，网上学习占总成绩的6%，实验占总成绩的6%，其成绩均由各分校、工作站及直属教学点的课程辅导教师给分。甘肃电大将不定期随机抽检各地电大学生的作业及实验报告。 (六)终结性考核的要求及形式1考核要求本课程考核学生以下知识和能力（1）了解：Visual Basic集成开发环境。ActiveX的简单应用。（2）理解：对象的概念、可视化编程和事件驱动的基本特性。（3）掌握：常用控件及其属性、事件和方法；基本数据类型、常量、变量、常用函数、表达式运算；Visual Basic6.0基本语句和基本结构，数组和子程序的调用；文件系统控件和Winsock控件的基本用法；VB坐标系统的原理，简单图形图像的基本处理方法；VB数据库应用程序的基本框架、SQL操纵数据的方法。具备阅读、编写和调试简单Visual Basic应用程序的能力。2组卷原则依“Visual Basic程序设计”教学大纲规定的要求，按掌握、理解、了解三个层次命题。以大纲中所要求的“掌握内容”为主，约占60%，“理解内容”为辅，约占30%，了解的内容较少，约占10%。试题覆盖面广，并突出重点。在教学内容范围内，按照理论联系实际的原则，考察学生对所学知识应用能力的试题，不属于超纲。3试题类型及试卷结构试题题型有选择题、填空题、阅读程序题、完善程序题和编写程序题等题型。其中较容易和较难试题各占15%。4考试形式终结性考核采用开卷笔试的形式，由甘肃电大统一命题，答题时限为90分钟。二、课程考核内容和要求第1章 可视化编程理论概述考核知识点1可视化编程的概念和特点2VB集成开发环境3Visual Basic 与其它可视化程序的区别考核要求：1掌握VB工程的概念及管理方法2理解可视化编程的概念和特点3了解目前流行的可视化编程工具的种类和主要特色第2章 VB可视化编程初步考核知识点1创建VB应用程序的一般步骤，建立用户界面对象；2赋值语句、MsgBox语句或函数的使用、变量与常量；3窗体、标签、命令按钮和文本框的常用属性、方法和事件；4对象及对象的属性、方法和事件的概念，事件过程和事件驱动；5时钟控件基本应用考核要求：1掌握VB应用程序开发的一般步骤。2掌握MsgBox的用法，能够使用该语句或函数进行程序设计。3掌握窗体、命令按钮、文本框、标签、Timer控件的用法，能够运用Name、Caption、Text、Enabled、Disable、ReadOnly等基本属性，以及Load、Unload、Click、DBClick、Chang等基本事件和Load、Unload语句进行程序设计。4理解赋值语句、变量和常量的概念。5理解对象的概念、事件驱动的原理。第3章 应用程序接口设计及代码编写考核知识点1可视化界面设计菜单设计和应用、多窗体设计、MDI多文档窗体的设计2常用控件：单选钮、复选框、控件列表框控件、组合框控件、工具栏、状态栏和图标列表控件、通用对话框控件3常用内部函数4运算符和表达式5常用数据类型6工程化思想及编程风格7流程控制语句考核要求：1掌握可视化界面设计的方法2掌握变量和常量的作用域、作用范围及用法。能够编写变量和常量的声明、赋值等语句，并通过阅读程序，分析变量取值的变化过程。3掌握运算符及流程控制语句的用法，能够编写各种运算表达式，以及具有分支、循环、顺序结构的简单程序。4理解工程化思想和编程风格5理解常用函数的使用方法6了解窗体设计的基本原则7了解“简单计算器”程序设计过程，能够读懂并完善这类程序的部分语句。第4章 VB高级语言技巧 考核知识点：1API函数声明和调用方法2枚举及自定义数据类型3数组的使用 数组的基本概念、静态及动态数组的声明、控件数组的建立及使用4Sub过程和函数过程的定义和调用5参数传递机制基本概念 6键盘使用技巧KeyPress事件、KeyDown和KeyUp事件7鼠标使用技巧MouseMove、MouseDown、MouseUp事件考核要求 ：1掌握数组的使用方法，能够声明一维、二维静态和动态数组，并能够在程序中完成针对数组（包括控件数组）的赋值、表达式各种处理语句。2掌握键盘、鼠标的使用技巧，能够针对KeyPress、KeyDown、KeyUp和MouseMove、MouseDown、MouseUp等事件进行程序设计。3掌握过程和函数的定义和调用方法，能够编写自定义过程和函数。4掌握API函数的调用方法，能够在给出的程序代码中利用Public和Private关键字，补充完善API函数的声明。5了解枚举及自定义数据类型，能够在给出的程序代码中找出对这种数据类型的定义，并依此编写简单的变量声明和赋值语句。第5章 文件处理应用程序设计方法考核知识点：1相关的语句和函数改变当前驱动器、改变当前目录、建立和删除目录、删除文件、设置文件的属性、得到当前可执行文件的路径2文件系统控件介绍驱动器列表框、目录列表框、文件列表框3文件读写的基本方法顺序文件访问、随机文件访问、二进制文件访问考核要求：1掌握文件读写的基本方法2掌握与文件处理相关的语句和函数的用法，并能够完善程序。3理解文件系统控件的基本功能，能够通过对驱动器列表框、目录列表框、文件列表框三类控件的属性设置，编写简单的文件管理程序。4了解“文件管理器”应用程序的开发过程，能够读懂并完善这类程序的部分语句。第6章 图形图像和多媒体应用程序设计方法考核知识点1VB坐标系统和颜色 坐标系、改变坐标系统的方法；RGB和QBColor函数2Shap控件和Line控件，Image和PictureBox控件，MMControl（Multimedia）控件3绘图方法 画点方法Pset，画直线、矩形方法，画圆方法4与绘图有关的常用属性和方法 线宽、线型、填充颜色和填充样式等；清除图像方法5播放多媒体信息的基本方法考核要求：1掌握图形图像的基本处理方法。2理解VB坐标系统的原理。3理解“指针式时钟”程序的设计方法，能够读懂并完善这类程序的部分语句。4理解“VCD播放器”程序设计的方法，能够读懂并完善这类程序的部分语句。5掌握图形控件和多媒体控件的使用和与绘图有关的常用属性和方法。6了解播放多媒体信息的基本方法第7章 数据库应用程序设计方法考核知识点1数据库概念2VB数据对象及数据库访问机制3数据库控件和可视化数据管理器4报表设计考核要求：1掌握VB数据库应用程序的基本框架，以及SQL操纵数据的方法，能够编写Insert、Update、Delete和Select语句，并将这些语句嵌入到VB程序中。2理解使用VB数据库引擎操纵数据库的方法，以及VB数据对象及数据库访问机制，能够运用ADO对象进行程序设计3了解使用Excel输出报表的方法，能够在给出的程序代码中，完善对Excel对象的简单的操作语句。4了解“成绩查询”程序的设计过程，能够读懂并完善这类程序的部分语句。第8章 网络应用程序设计方法考核知识点：1Winsock控件的主要属性、方法和事件2基于Winsock控件的开发模式3网络应用程序设计考核要求：1掌握Winsock控件的基本属性和事件、方法，能够利用Winsock控件进行程序设计。2了解网络应用程序设计的基础知识。3了解“网络聊天”应用程序的开发过程，能够读懂并完善这类程序的部分语句。第9章 调试与错误处理考核知识点：1程序错误分类2程序调试方法3错误捕获及处理方法考核要求：1掌握程序调试的基本方法2掌握错误捕获及处理的基本方法，能够使用On Error Goto、On Error Resume语句进行程序设计，能够使用Err对象和MsgBox语句或函数显示错误信息。3了解程序错误的分类第10章 Com和ActiveX应用考核知识点：1ActiveX模型的基本概念和内容2ActiveX控件（OCX控件）编程考核要求：1了解ActiveX EXE组件开发应用方法。2了解ActiveX DLL组件开发应用方法。3了解ActiveX 控件开发应用方法。三、试题类型及解答一、填空题1用Dim A(5,5)语句声明二维数组后，数组A的元素共有 个。2将下列数学式子写成Visual Basic运算表达式。 ： 。3将1 x 12写成Visual Basic逻辑表达式 。4.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。5欲设置定时器的时间间隔为2秒，则属性Interval的值为 。6VB应用程序可分为单窗体、多窗体和 。7Winsock控件主要用来编制 或UDP协议的通讯程序。8.PictureBox控件可通过设置其AutoSize属性为True使之可自动调整大小；而Image控件可通过设置其_ _属性为True，使其加载的图片能自动调整大小以适应Image。9图像框对象的Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。10.在Visual Basic 6.0中将多重窗体程序中第一个被装载内存的窗体称为 。11Winsock控件主要用来编制 或UDP协议的通话程序。12VB中将数据库分为本地数据库、 和 三种类型。13VB中的程序错误类型主要有编译错误 、 等三种。二、单项选择题1后缀为.bas的文件表示（ ）。A类模块文件 B窗体文件 C标准类模块文件 D窗体二进制数据文件2Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。A事件驱动 B按过程顺序执行 C从主程序开始执行 D按模块顺序执行3在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ ）。A、窗体设计器 B、代码编辑器窗口 C、属性窗口 D、工程资源管理器窗口4窗体的Load事件的触发时机是（ ）A、用户单击窗体时 B、窗体被加载时 C、窗体显示之后 D、窗体被卸载时5. 工程文件的扩展名是（ ）。A.frm B.basC.vbp D.frx6与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术7无论何种控件，共同具有的属性是（ ）。AText属性 BCaption属性 CName属性 DAutosize属性8如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）A、Text.Mytext B、Mytext.Text C、Mytext.(Text) D、 Mytext*Text9把数值型转换为字符串型需要使用的函数是（ ）。A、Val B、Str C、Asc D、Chr10为了使图像框中的图形自动适应图像框的大小，则应（ ）。A将其AutoSize属性值设置为True B将其AutoSize属性值设置为FalseC将其Stretch属性值设置为True D将其Stretch属性值设置为False11设置对象的边框类型的属性是（ ）A、Drawstyle B、BorderstyleC、DrawWidth D、ScaleMode12. 为了清除图片框Picture1中的图形，应采取的正确方法是（ ）A、选择图片框，然后按Del键B、执行语句Picture1.Picture = LoadPicture()C、执行语句Picture1.Picture = D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键13要发送数据，通常使用Winsock控件的（ ）。AGetDate方法 BListen方法CAccept方法 DSendData方法14有程序代码如下： Text1.Text=Visual Basic则Text1、Text 和Visual Basic分别代表（ ）。A对象，值，属性 B对象，属性，值 C对象，方法，属性 D属性，对象，值15如果要在文本框中键入字符时，只显示某个字符，如星号”*”,应设置文本框的（ ）属性。 ACaption BPasswordCharCText DLocked16要绘制不同形状的图形，需要设置Shape控件的（ ）属性A、Shape B、BorderstyleC、FillStyle D、Style17要向图片框P1中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（ ）。APicture1.Picture= d:hainanzhiwu.bmp BPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp ) CP1.Picture=LoadPicture(d:hainanzhiwu.bmp) DP1.Picture=LoadPicture(d:hainanzhiwu.bmp ) 18要绘制多种式样的直线，需要设置Line控件的（ ）属性A、Shape B、BorderstyleC、FillStyle D、Style19不属于VB数据库引擎的是（ ）。AODBC BJet引擎CBDE DOLE DB20以下有关Visual Basic语言描述中错误的是（ ）。A不区分大小写B语句是一行一句，以回车键结束C用“,”分隔一行中的多个语句D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行三、判断题1在Visual Basic中，VB规定程序不可以改变字符的长度。( )2变量名的长度最长可达1024个字符。( ) 3在Visual Basic中日期时间型的常量用“#”号分隔。( )4. 单击控件是进入代码编辑器的方法之一。( )5在Visual Basic中表达式a=10的类型是算术表达式。( )6. Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。( )7. Select Case是Visual Basic语言的循环控制结构之一。( )8Msgbox函数返回值的类型为整数或字符串（视输入的数据而定）。( )四、阅读程序，写出运行结果1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 4 y = x + y Form1.Print x=; x, y=; yEnd Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2 Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub点击窗体两次后，变量Sum的值是：3Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single)If Button=2 ThenPrint AAAAAEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single, _Y As Single)Print “BBBBB”End Sub程序运行后，如果单击鼠标右键后再单击鼠标左键，则输出结果为：。 4Private Sub Form_Click() Dim a,c As IntegerFor a=1 To 5 c=a+1 Print cNext aEnd Sub变量C的结果依次为：5 在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1）,然后编写如下两个事件过程：Private Sub Command1_Click() m = Text1.Text + Text2.Text Print mEnd SubPrivate Sub Form_Load() Text1.Text = Text2.Text = End Sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：6Private Sub Command1_Click() Text1.Text=2 Text2.Text=3 Text3.Text=Text1.Text+Text2.Text Text4.Text=Val(Text1.Text)+Val(Text2.Text) End Sub 文件框Text3和Text4的结果分别是：五、完善程序题1在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图1所示。图1程序如下，请补充完整。Private Sub Form_Load() 1 File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change() Dir1.Path = 2 Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = 3 End SubPrivate Sub File1_click() Picture1. 4 = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = FileName End Sub2已知SQL Server数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图1、图2所示。表1学号姓名专业2004001张红软件专业2004003李强会计专业2004002王丽软件专业图1图2程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionReadFromTable过程Private Sub ReadFromTable() Dim strtmp As String Dim ADOrs As 1 ADOrs.ActiveConnection = ADOcn ADOrs.Open 2 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 strtmp = 学号 + vbTab + 姓名 + vbTab + 专业 MSFlexGrid1.AddItem strtmp Do While Not ADOrs.EOF strtmp = ADOrs(学号) + vbTab + ADOrs(姓名) + vbTab + ADOrs(专业) MSFlexGrid1.AddItem strtmp 3 Loop MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End Sub Private Sub Form_Load() 定义数据库连接字符串 Dim strDB As String 用于连接SQL Server数据库，其中: Server为服务器名称 User ID为登录账号 Password为登录口令 Database为具体的数据库名 strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database =学生 如果还没有建立与数据库的连接，则用以下代码创建。 If ADOcn Is Nothing Then Set ADOcn = 4 ADOcn.Open 5 连接SQL Server数据库 End If ReadFromTable 调用过程显示students表中的记录End SubPrivate Sub Command1_Click() Unload MeEnd Sub3列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果下图所示。List1Command3Command2Command1Text1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem 李敏 List1.AddItem 张华 List1.AddItem 吕晓烨 List1.AddItem 赵巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 List1.AddItem 崔宁 List1.AddItem 何月End SubPrivate Sub Command1_Click() If Text1.Text Then 1 Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click() If Command3.Caption = 修改Then Text1.Text = 2 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption =修改确认 Else 3 Command1.Enabled = True Command2.Enabled = True Text1.Text =4 Command3.Caption = 修改 End IfEnd Sub六、编写程序题（共15分）1请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图1所示。图12. 创建一个登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName、txtPassword）组成。其中，口令文本框（txtPassword）的 PasswordChar 属性设置为“*”，运行时要求输入姓名和密码，如果在两个文本框中分别输入“Guest：”和“12345”，则界面显示“欢迎使用本系统！”，否则显示“对不起，你不是本系统用户！”。参考答案一、填空题136 2Sqr(s*(s-a)*(s-b)*(s-c) 3x=1 And x12 4.Picture1. Picture = LoadPrcture(“picturefile.jpg”)520006MDI窗体7TCP/IP（或者回答TCP协议）8.Stretch9False 10.启动窗体11TCP/IP12外部数据库 远程数据库13实时错