面向对象程序设计VB
- 格式:docx
- 大小:183.12 KB
- 文档页数:43
VB程序设计第一章Visual Basic 程序设计概述Visual Basic程序设计第一章 Visual Basic程序设计概述1.1 Visual Basic简介Visual Basic(简称VB)是一种面向对象的事件驱动编程语言,它是Microsoft公司开发的一种高级计算机程序设计语言。
VB的主要特点是简单易学、可视化编程、快速开发和广泛应用。
1.2 VB的历史发展VB最初于1991年推出,是作为Windows操作系统的开发工具而设计的。
经过多次版本更新,目前最新的版本是Visual Basic 2019.1.3 VB的编程环境VB使用Visual Studio作为主要的开发工具,提供了可视化的设计界面以及强大的编程功能。
开发者可以通过拖拽控件、设置属性以及添加事件来构建程序界面,并使用VB编写代码逻辑。
1.4 VB的基本语法VB的语法类似于英语,采用英语关键字和固定的语法规则。
VB程序由一系列语句构成,每个语句以换行符或分号结束。
1.4.1 变量和数据类型VB中的变量需要先声明才能使用,可以使用关键字Dim来声明变量。
VB支持多种数据类型,包括整型、浮点型、字符串型、布尔型等。
1.4.2 控制流程VB提供了多种控制流程语句,如条件语句(If-Then-Else语句)、循环语句(For循环、Do循环)以及跳转语句(GoTo语句)等,用于控制程序的执行流程。
1.4.3 函数和子程序VB可以定义函数和子程序来封装一段特定的代码逻辑。
函数可以返回一个值,而子程序则不返回任何值。
开发者可以在程序中调用函数和子程序来实现代码的重复利用。
1.5 VB的应用领域VB广泛应用于Windows环境下的软件开发,尤其在企业管理系统、数据库应用、人机交互界面等方面具有重要地位。
附录:本文档涉及附件本文档的附件包含了VB相关的示例代码、项目文件以及其他相关文档,可以帮助开发者更好地理解和学习VB程序设计。
法律名词及注释:1.Visual Basic(VB):一种面向对象的事件驱动编程语言。
Visual Basic 概述VB语言是一种面向对象的可视化程序设计语言一、面向对象程序设计的基本概念面向对象程序设计:面向对象的程序设计通过类、对象、继承、多态等机制形成一个完善的编程体系。
它是一种以对象为基础、以事件驱动对象对事件进行处理的程序设计技术。
对象:概念:对象既包含数据,又包含接受事件后对数据进行操作的方法,将两者封装起来的一个独立逻辑实体。
也就是说,对象都有自己的属性(数据)、方法、事件。
对象包含属性和方法,能够识别和响应一定的事件。
事件刺激对象,用一定方法处理数据,从而完成一定的功能任务。
属性:定义:用来描述对象的特征。
包括公共属性和专业属性。
设置:每个对象的属性都有一个默认值,可在属性窗口中设置改变,也可在代码窗口中通过编程设置改变(格式:对象名.属性名称=属性值)。
事件:定义:指对象能够识别并做出反应的外部刺激。
每个事件都有其事件名。
对象事件是由VB预先定义好的能被对象识别和响应的动作。
分类:系统事件:由系统或对象自己的产生的,如Load事件。
用户事件:由用户操作引起的事件,如Click事件。
驱动机制:事件发生→刺激对象→对象响应→执行事件代码→完成一定功能(所执行的事件代码称为事件过程)能由用户引发也可以由系统引发。
VB应用程序的运行过程就是对事件的处理过程。
事件过程格式:Private Sub 对象名_事件名()[括号不能省略]……End Sub方法:定义:指系统已设计好的、在编写事件过程中可以使用的一些特殊程序。
从而实现完成显示、隐藏、移动、聚焦、卸载、加载、打印等功能。
不同对象具有不同的方法,方法的内容是不可见的,用户只需要知道有哪些方法,完成哪些功能,熟悉其使用规则即可。
使用格式:对象名.方法名[参数1,][参数2,]…[参数n]常用方法:Print、Show、Cls、SetFocus类:概念:具有相同性质的对象的集合,类中的每个单个对象称为类的一个实例。
属于同一类的对象具有同一组属性、事件、方法,只是类的对象一旦建立,每个对象的属性值、响应事件、设计方法可以不同。
《VB面向对象的程序设计》校本课程设计一、校本课程:VB面向对象的程序设计教学材料:创编课程类型:讲授型、实验探究型、活动交流型。
授课时间:一学年。
授课对象:高一年级中程序设计的爱好者。
二、校本课程的具体内容:知识与技能:认识VB对象的属性与方法,理解事件、事件过程和事件驱动的概念,了解VB的可视化编程。
过程与方法:熟悉VB界面,制作简单的程序界面,能够通过属性窗口更改对象属性,认识事件和事件过程的概念并制作出一个小程序。
情感态度与价值观:通过实践演示并由学生自己动手操作编辑简单实用小程序,引发学生学习计算机程序的兴趣,从而形成积极主动学习使用计算机解决问题的习惯。
校本课程目录:第一课:我的第一个VB程序第二课编写程序代码第三课:认识各国国旗第四课:做个简单的文本编辑器第五课:“你猜对了吗?”----分支结构的程序设计第六课:让飞机飞起来----循环结构的程序设计第七课:编译软件三、校本课程实施方法和形式:实施方法:教案讲授,学生讨论分析综合实践。
实施形式:教师设计、组织主持,学生设计、集体实践四、校本课程教学评价:部分学生评价:VB程序设计是一个比较抽象的概念,不易理解,但在老师的举一反三的例证和深入浅出的讲解之下,能最大层度的激发我们的兴趣,调动我们学习参与的积极性。
在整个课程中,我们不但能了解了VB的一些最基本的功能,也能简单的编辑一些实用的小程序。
我想,这也为我们以后进一步的学习打下良好的基础。
教师教学自我评价:本校本课程是VB面向对象的程序部分,根据我校学生的自身特点,在教材自身的知识基础上加入了一些常规对话框的制作,如自然数相加自然数的制作,文本框的设计等等,充实了教材的内容,满足了学生的求知欲和好奇心,学生基本能全程参与,积极动手。
经过一学年的学习,学生基本能了解的程序设计的对象的概念,设计并制作一些简单的实用的对象,如仿制操作系统中的文本框,制作文件的保存对话框等等,基本达到了开设这门课的目的。
江西财经大学考试试卷试卷代码: 03694A卷授课课时:80课程名称:面向对象程序设计(VB)适用对象:选课班一、填空题(每空1分,共16分)1.构造函数和析构函数的意义分别是和。
2.命令窗口用于在集成开发环境中发出命令或调试和计算表达式,它有和两种模式。
3.ReDim语句重定义数组大小时,缺省情况下原数组中的存储的数据会丢失,但可以使用关键字来保证原数组中的数据能保留下来。
4.CLR的中文含义是。
5.为了方便用户操作,系统在FileDialog的基础上,系统已派生了和文件对话框类。
6.过程为应用程序的启动点,也就是运行代码时最优先访问的函数。
7.语句允许用户直接使用在其他命名空间中定义的类及类型,而无需使用限定引用。
8.窗体是继承.NET类库中的类。
9.类提供访问文件的方法,包括标准输入、输出和错误设备。
10. 要进行二进制文件存取,必须创建与对象。
11. 在任何图形绘制之前,一定要先用类创建一个对象。
12.对象是DataSet对象和数据源之间的桥梁。
二、单项选择题(从下列各题四个备选答案中选出一个正确答案,并将其代号写在答题纸相应位置处。
答案错选或未选者,该题不得分。
每小题2分,共16分。
)1.以下关于静态成员正确的说法是A.静态成员可以不用Static修饰符修饰B.静态成员只能用类名访问C.静态成员和非静态成员不能同时在类中定义D.静态成员可以被类的实例调用的工程文件是以扩展名来保存。
A..slnB..vbC. .vbprojD..sou3.在类视图窗口以结构显示当前工程中的所有类。
A.树状结构B.下拉列表C.菜单D.表4.以下不是数据提供程序所提供的四个核心对象。
A.ConnectionB.DataReaderC.ParserD.DataAdapter5.有关继承下列说法不正确的是A.所有类缺省都是可继承的,除非在类定义时使用NotInheritable关键字修饰。
B.在中,一个类的基类可能有多个。
江西财经大学考试试卷试卷代码:03694A 卷授课课时:80课程名称:面向对象程序设计(VB)适用对象:选课班一、填空题(每空1分,共16分)1. 构造函数和析构函数的意义分别是_________ 和 ______ 。
2. 命令窗口用于在集成开发环境中发出命令或调试和计算表示式,它有和______ 两种模式。
3. ReDim语句重定义数组大小时,缺省情况下原数组中的存储的数据会丢失,但能够使用关键字 _______ 来保证原数组中的数据能保留下来。
4. CLR的中文含义是 _______ 。
5. 为了方便用户操作,系统在FileDialog 的基础上,系统已派生了和_____ 文件对话框类。
6. ______ 过程为应用程序的启动点,也就是运行代码时最优先访问的函数。
7. ______ 语句允许用户直接使用在其它命名空间中定义的类及类型,而无需使用限定引用。
8. 窗体是继承.NET类库中的_______ 类。
9. ______ 类提供访问文件的方法,包括标准输入、输出和错误设备。
10. 要进行二进制文件存取,必须创立_________ 与 _______ 对象。
11. 在任何图形绘制之前,一定要先用_________ 类创立一个对象。
12. ______ 对象是DataSet对象和数据源之间的桥梁。
二、单项选择题(从下列各题四个备选答案中选出一个正确答案,并将其代号写在答题纸相应位置处。
答案错选或未选者,该题不得分。
每小题2分,共16分。
)1. 以下关于静态成员正确的说法是________A. 静态成员能够不用Static修饰符修饰B. 静态成员只能用类名访问C. 静态成员和非静态成员不能同时在类中定义D. 静态成员能够被类的实例调用2. 的项目文件是以 ______ 扩展名来保存。
A. .sinB. .vbC. .vbprojD. .sou3. 在类视图窗口以_______ 结构显示当前项目中的所有类。
A. 树状结构B. 下拉列表C. 菜单D. 表4. 以下_______ 不是数据提供程序所提供的四个核心对象。
A. Conn ecti onB. DataReaderC. ParserD. DataAdapter5. 有关继承下列说法不正确的是________A. 所有类缺省都是可继承的,除非在类定义时使用Notlnheritable 关键字修饰。
B. 在中,一个类的基类可能有多个。
C. 为了防止基类中需要封装保密的成员在派生类中被泄露出来,派生类定义的访问权限必须比其基类更为严格或者至少与之相同。
D. 在Visaul Basic .NET 中,一个类的基类只能有一个。
6. 在中,关于构造函数的说法,下列说法不正确的是___________A. 能够指定构造函数的返回值B. 构造函数能够重载C. 构造函数的过程能够带有参数D. 构造函数的过程名一定是New7.菜单控件支持事件。
A. ClickB. MouseDow nC. KeyPressD. Leave8.Err 对象的属性返回了错误号A. NumberB. SourceC. Description资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。
D.HlepContext三、阅读程序, 根据要求回答问题。
( 每小题每5分, 共20分)1. 指出以下文件操作程序代码的功能, 并画出Windows 窗体的界面图。
Pri vate Sub Butt on1_Cl i ck(ByVal sender As Syst em. Obj ect , ByVal e As Syst em. Event Args) Handl es But ton1.Cl i ckOpenFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 格式文件(*RTF)|*RTF"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.Title = " 打开文件"OpenFileDialog1.InitialDirectory = Application.StartupPathOpenFileDialog1.RestoreDirectory = TrueOpenFileDialog1.ShowDialog()Fname = OpenFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.LoadFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.LoadFile(Fname,End IfRichTextBoxStreamType.RichText)资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。
StatusBar1.Panels(0).Text = ”读状态”StatusBar1.Panels(1).Text = ”未保存”End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickSaveFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 件(*RTF)|*RTF"格式文SaveFileDialog1.FilterIndex = 1SaveFileDialog1.Title = " 保存文件"SaveFileDialog1.InitialDirectory = Application.StartupPathSaveFileDialog1.RestoreDirectory = TrueSaveFileDialog1.ShowDialog()Fname = SaveFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.RichText)End If资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。
StatusBar1.Panels(0).Text = " 写状态"StatusBar1.Panels(1).Text = " 已保存"End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickStatusBar1.Panels(2).Text = DateTime.Now.ToString("T")End SubPrivate Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged RichTextBox1.Modified=falseIf RichTextBox1.Modified ThenStatusBar1.Panels(1).Text = " 未保存"ElseStatusB ar1.Panels(1).Text = ”已保存”RichTextBox1.Modified=falseEnd IfEnd Sub2. 指出下列程序的运行结果, 并说明该程序的功能。
Module Module1WithEvents frm1 As New Form()Dim label1 As New Label()资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。
Sub Main()label1.Size = New Size(80, 20)label1.BackColor = Color.Yellowlabel1.TextAlign = ContentAlignment.MiddleCenterlabel1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRange(NewSystem.Windows.Forms.Control(){label1})Application.Run(frm1)End SubPublic Sub frm1_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles frm1.MouseMovelabel1.Location = New Point(e.X, e.Y - 15) label1.Text = "X=" & e.X & ",Y=" & e.Y End SubEnd Module3. 分析下列程序的运行结果, 说明该程序的功能。
Public Class loginInherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的Code "‘系统自动创立的程序, 为了节省篇幅, 在此处省略。
#End RegionDim mymdimain As MainMDI资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.ClickIf txtUserName.Text.Trim = "" ThenshowMsg(" 用户名不许为空! ")txtUserName.Focus()Exit SubEnd IfIf txtPassWord.Text.Trim = "" ThenshowMsg(" 密码不许为空! ")txtPassWord.Focus()Exit SubEnd IfDim i As IntegerDim strsql As StringDim mydataset As New DataSetDim myTable As DataTableDim uname As StringDim psw As Stringuname = Trim(txtUserName.Text)psw = Trim(txtPassWord.Text)Trystrsql = "SELECT * FROM Operator WHERE Name= '" + uname资料内容仅供您学习参考,如有不当或者侵权,请联系改正或者删除。