论文VB程序

第一篇：论文VB程序

《教务信息管理系统VB程序设计》的教学思路（2010年高职单招计算机专业技能测试题）

福安市民族职业中学———冯建锋

摘要：针对2010年高职单招计算机专业技能测试题，结合我省高职单招VB程序设计教学考纲要求进行分析。针对我校学生实际情况写出《教务信息管理系统VB程序设计》的教学思路（要求）

关键词：信息管理系统，VB程序设计，教学思路 程序思路，需要完成一个教务信息管理系统。

1：完成页面的设计。首先创建一个工程，工程中自动生成一个Form，也就是我们常说的页面，并给这个页面的名称设置成Form1，用以区分系统中其他的页面。通过编辑栏中的，Label工具，在页面中间插入一段文字，为“教务管理系统”。因为完成一个教务管理系统，需要完成的内容有学生信息的录入，学生信息的修改，学生信息删除以及学生信息的查询。于是在该页面使用Button工具，放置四个按钮并将四个按钮的Caption分别设置成“学生录入”，“学生修改”，“学生删除”和“信息统计”。且名称分别设置成Command1,Command2,Command3,Command4。依据程序要求我们可以知道，需要完成学生录入，学生修改，学生删除，和信息统计的各个功能，就必须存在有四个排版各不相同的页面，来满足各个功能的需求，于是在工程的树形菜单下选择窗体，再选择新建窗体。重复操作四次，成功建立了四个Form。分别命名为Form2,Form3,Form4,Form5用来区分和其他的Form。上面提到过的设置了四个按钮，作为按钮则是拿来点击的，而按照我们的思路，四个按钮分别代表了要完成的四项功能，那么可以得出每点击一个按钮，就应该要弹出相对应的页面来提供给用户恰当的服务。于是双击按钮，将自动生成代码如下： Private Sub Command1_Click()····· End Sub 其中Command1是代表按钮的名称整个函数就是代表了某一个按钮被点击之后应该执行的内容。End表示此函数结束。那么就应该写入对应的内容。完成之后的代码如下： Private Sub Command1_Click()

Form2.Show End Sub Private Sub Command2_Click()

Form4.Show End Sub Private Sub Command3_Click()

Form3.Show End Sub Private Sub Command4_Click()Form5.Show End Sub 分别代表了不同的按钮点击之后不同的执行的位置。其中Form.Show则代表对于某一个页面进行显示的功能。以上第一段表示了点击按钮1显示页面2。其他意思同上就不赘述。这样就完成了主页面：

我们可以知道的是还需要完成四个功能，学生录入，学生修改，学生删除和信息统计。完成学生录入的设计：使用工具栏中的Label,Text,和button以及Adodc进行页面的设计。即可。完成页面如下：。

其中Adodc原本工具栏中并没有，需要添加控件。按ctrl+T或者在菜单“工程”－“组件”里选择

Microsoft ADO Data Control 6.0(SP6)(OLEDB)选中之后，就可以在工具栏中选择该控件进行拖拽。其中Adodc中基本连接方法： Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” + App.Path + “hkmdckdb1.mdb”//字符串的连接。Adodc直接双击，可以在栏目中选定数据库的路径也就是Access文件的路径。就会自动生成ConnectionString。本页面的程序代码如下：

Private Sub Command1_Click()//点击按钮触发函数。

If Trim(Text1.Text)<> “" And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then

Adodc1.RecordSource = ”select * from stuInfo“

Adodc1.Refresh

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)

Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)

Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)

Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)

Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)

Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))

Adodc1.Recordset.Update

Adodc1.Recordset.Requery

Adodc1.Refresh

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”“

Text4.Text = ”“

Text5.Text = ”“

Text6.Text = ”“

MsgBox ”添加成功“, vbOKOnly, ”系统提示“ Else: MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“ End If End Sub

对于以上解析如下：对于这个页面在业务上我们可以知道，需要点击录入按钮，那么就将各个Text中的内容写入数据库中，那么在数据库中就会生成一条记录，也就是某一个学生的信息情况，那么就完成了学生信息的录入。首先文件进行了一个IF判断：

If Trim(Text1.Text)<> ”“ And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then “中间内容先省略”

Else: MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“ End If End Sub

如果Text1至Text6的内容不等于（<>代表不等于）空字符串。也就是各个内容都输入了的。就执行省略的了中间内容。如果有一个为空，也就是信息未填写全。就执行Else:中的内容 也就是MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“。这个代表了弹出一个对话框，其中文字写了“信息未填写完整”，按钮上面显示 vbOKOnly。之后结束IF语句，并退出函数。现在对于省略部分的函数进行解析： Adodc1.RecordSource = ”select * from stuInfo“//从stuInfo表格中做一个查询

Adodc1.Refresh

Adodc1.Recordset.AddNew//新增信息

//表格也就是提供的Access的数据库中提供给了stuNo,stuName等字段名，以下就是在记录集中将Text1中的字段写入到stuNo的记录集里，并以此类推，完成该记录集的填充。

Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)

Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)

Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)

Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)

Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)

Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))

//到这里就成功的完成了记录集的填写

Adodc1.Recordset.Update//将字段更新到数据库中

Adodc1.Recordset.Requery Adodc1.Refresh //将页面中的Text的内容填写为空

Text1.Text = ”“

Text2.Text = ”“

Text3.Text = ”“

Text4.Text = ”“

Text5.Text = ”“

Text6.Text = ”“ MsgBox ”添加成功“, vbOKOnly, ”系统提示“ //弹出方框，表示数据填写成功。

到此数据全部填写完成。并写入数据库。也完成了这个页面的功能。之后的几个页面的内容类似。其中重点在于DataGrid和Adodc的绑定。对于DataGrid和Adodc的绑定在这里举一个小小的例子如下： 1.ADODC1是数据库连接部件

2.Datagrid1是显示数据表中内容的表格

ADODC1需要设置它连接的是哪个数据表.(Adodc1.RecordSource = ”select * from 表名“)Datagrid1需要设置的是它的数据源来自ADODC1.(Set DataGrid1.DataSource = Adodc1)然后2个部件都要刷新！Refresh

Adodc1.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & ”1.mdb;Persist Security Info=False“ Adodc1.CommandType = adCmdText Adodc1.RecordSource = ”select * from table“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh

这个之后，Datagrid1就可以显示1.mdb中table表的内容。

以下是本程序中修改页面的代码如下： Private Sub Command2_Click()

Dim str As String//定义str

Dim stuNo As String

Dim sql As String

stuNo = Text1.Text//获得学号

If stuNo <> ”“ Then

Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“//通过学号机型查询

str = Adodc1.Recordset.Fields(”sex“)

If str <> ”男“ Then//如果查询出来的sex不等于男

Adodc1.Recordset.Fields(”sex“)= ”男“

Adodc1.Recordset.Update//将sex字段设置为男，并进行更新

Else

Adodc1.Recordset.Fields(”sex“)= ”女“

Adodc1.Recordset.Update//否则就将字段设置为女，并进行更新

End If

Else:

MsgBox ”学号未输入“, vbOKOnly, ”系统信息“

End If

Adodc1.Recordset.Update//结束IF之后，更新一下Adodc

DataGrid1.Refresh//因为Adodc更新了，而DataGrid和Adodc进行了一次绑定，所以也需要对其进行更新。

End Sub

Private Sub Form_Load()//这个函数是页面载入的时候执行的函数，因为页面载入的时候本身就需要对表格的内容进行填充，将表格的内容填充为数据库中的内容。所以进行页面载入的时候，首先对DataGrid进行更新。

DataGrid1.Refresh End Sub

删除的代码和修改的代码类似，其中的区别在于逻辑判断的区别了最终执行的区别，一个是update一个则是delete。代码如下： Private Sub Command2_Click()

Dim str As String

Dim stuNo As String

Dim sql As String

stuNo = Text1.Text

If stuNo <> ”“ Then//如果学号不为空，也就是该学生信息存在，也只有存在才可以删除

Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“

Adodc1.Recordset.Delete//删除操作

Else:

MsgBox ”学号未输入“, vbOKOnly, ”系统信息“

End If

Adodc1.Recordset.Update//同更新类似不做赘述

DataGrid1.Refresh End Sub Private Sub Form_Load()DataGrid1.Refresh End Sub

最后是查询的页面，这个页面稍稍有一点麻烦，因为对于其他页面逻辑较为复杂。代码如下： Private Sub Command1_Click()//点击按钮，执行一下函数

//对字符串进行定义

Dim stuNo As String

Dim StuName As String

Dim ScoreLow As Double

Dim ScoreHigh As Double

Dim sql As String

stuNo = Text1.Text

StuName = Text2.Text //因为查询信息，是根据多个条件进行查询的，在这里进行了一个定义，查询条件主要有一下几项，既是学生学号，学生姓名，学生成绩，学生年龄，以及学生性别。

If stuNo <> ”“ Then//如果学号不为空，就将SQL语句变成之下的语句，用于查询学生学号。

sql = ”select * from stuInfo where stuNo = '“ + Trim(stuNo)+ ”'“

End If

If StuName <> ”“ Then//如果姓名不为空，就将SQL语句变成之下的语句，用于查询学生姓名。

sql = ”select * from stuInfo where stuName = '“ + Trim(StuName)+ ”'“

Text1.Text = ”“

End If

If Text3.Text <> ”“ And Text4.Text <> ”“ Then//这里是分数

ScoreLow = Text3.Text

ScoreHigh = Text4.Text

sql = ”select * from stuInfo where score >= “ + Trim$(ScoreLow)+ ” and score <= “ + Trim$(ScoreHigh)

Text1.Text = ”“

Text2.Text = ”“

End If

If Text5.Text <> ”“ And Text6.Text <> ”“ Then//年龄

sql = ”select * from stuInfo where age >= “ + Trim$(Text5.Text)+ ” and age <= “ + Trim$(Text6.Text)

End If

If Text7.Text <> ”“ Then//性别

sql = ”select * from stuInfo where sex = '“ + Trim$(Text7.Text)+ ”'“

End If

Adodc1.RecordSource = sql

Adodc1.Refresh//更新数据集

Label7.Caption = ”满足条件的一共有 “ + Trim$(Adodc1.Recordset.RecordCount)+ ” 人"

DataGrid1.Refresh//更新显示信息

End Sub

典型案例：2010届我校计算机专业36名考生参加高职单招，80分以上达27人。其中罗幼凤同学得满分100分。被福建师大本科计算机网络专业录取。

心得体会：

请按以上要求补充审改。而后发表。

第二篇：VB论文

学生姓名 ：曹超

班 级 ：1226001 学 号 ：201220600107 专 业 ：采矿工程

日期: 2014 年 12 月 18 日

学习VB的心得体会

这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的计算机2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。

一、Visual Basic 简介

Visual Basic 是Microsoft 公司开发的Windows 应用程序开发工具，Visual ——“可视化的”，是一种开发图形户界面(GUI)的方法，使得非计算机专业的人也可以开发出专业的Windows软件。Visual Basic继承了BASIC语言简单易学的优点，又增加了许多新的功能，它采用面向对象与事件驱动的程序设计思想，使编程变得更加方便、快捷，使用Visual Basic既可以开发个人或小组使用的小型工具，又可以开发多媒体软件，数据库应用程序，网络应用程序等大型软件，是国内外最流行的程序设计语言之一。英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中入了控件的概念，在Windows中控件的身影无处不在，如按钮、文本框等。VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法，能够响应用户操作(事件)。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了。这些在以前的编程语言下是要经过相当复杂的工作的。

可视化设计：Visual Basic为用户提供大量的界面元素(在Visual Basic中称为控件对象)，例如 “窗体”、“菜单”、“命令按钮”、“工具按钮”、“检查框”等等。用户只需要利用鼠标，键盘把这些控件对象拖动到适当的位置，设置它们的大小，形状，属性等，就可以设计出所需的应用程序界面。

事件驱动编程：Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的，在使用Visual Basic设计应用程序时，必须首先确定应用程序如何同用户进行交互。(例如发生鼠标单击，键盘输入等事件时，用户必须编写代码控制这些事件的响应方法)这就是所谓的事件驱动编程。

程序设计方法概述

1、初期的程序设计

高运行效率，少占用内存为目标

2、结构化程序设计

程序的可读性，可维护性为目标

程序=算法+数据结构+计算机语言+面向过程的程序设计方法

3、面向对象的程序设计(OOP)

降低程序的复杂性，提高软件的开法效率和改善工作界面为目标

程序=对象+消息+面向对象的程序设计

Visual Basic 特点

1、具有面向对象的可视化设计工具

2、事件驱动的编程机制

3、结构化的程序设计语言

4、提供了易学易用的应用程序集成开发环境

5、支持多种数据库系统的访问

6、高度可移植化的代码

7、VB6.0在开发环境上，网络功能等的大大增强。

二、对VB的理解

（1）VB不只是数据库和报表。不要以为VB就是数据库和报表，这只是VB强大功能的一小部份。如果这此都搞不清，还是好好的看一下相关的书籍，比在这里问问题有用多了。我以前没有学过数据库，只是有些编程的思路，后来学数据库就非常容易了。我做报表一般用RichTextBox或是From来做，一般都能做的很好，也不用去考虑什么水晶报表了。

（2）不要迷信于API。API能做很多东西，但有些东西在VB里面的函数中就有，API只是VB对WindowsSDK的封装而已。如果想学好API，建议学习SDK。如果VB本身就能很好的支持这个功能，何必还要用API呢。

（3）不要什么都想着控件。如果做程序都想着第三方控件的话，代价是很高的，不仅程序大，安全性也低了很多。其实VB本身带的控件已经完全够用了。

（4）认认真真的把MSDN中关于VB的内容好好看一看，特别是函数和语句，很有用的。

（5）遇到问题不要直接来这里问，自己好好想一想，试着解决这个问题，这虽然在时间上慢了，可是在自身的提高上却有很大的帮助。

（6）没事的时候，多研究些语言上的东西，如数据结构和算法，不要老是想着什么花哨的东西。这对以后的提高非常有帮助。如何学好VB程序设计

1、学习程序设计的基本要求

2、VB的功能及特点

3、学习VB程序设计的方法

对学习者知识的要求：

首先，学习程序设计要具备一定的数学基础，计算机与数学有很大的联系，综观计算机历史，计算机的数学模型(图灵机，由Alan Turing提出)和体系结构(由John Von Neuman提出)等都是由数学家提出的。因此，要学习好计算机就要有一定的数学基础，不过对于初学者来说，在数学基础方面的要求并不是很高，从我个人的角度来看，有高中数学水平就差不多了。

其次，学习程序设计要有一定的逻辑思维能力，逻辑思维需要长时间的锻炼，如果你觉得自己在逻辑思维能力上有不足，也没有关系，因为编写程序本身也是对逻辑思维的锻炼，初学程序设计应具备的逻辑基础可以从高中数学中学到。

学习程序设计基本要求：

熟悉Visual Basic操作环境与设计工具，能设计应用程序界面。掌握，理解面向对象程序设计基本概念。

掌握VB语言的基础知识，程序设计的方法。

能阅读一般难的程序；

能应用编写一些简单程序；

具有用Visual Basic开发Windows环境下应用程序的能力和阅读分析一般难度的VB程序的能力。

面向对象的程序设计具有如下的优点：

1、符合人们习惯的思维方法，便于分解大型的复杂多变的问题。由于对象对应于现实世界中的实体，因而可以很自然地按照现实世界中处理实体的方法来处理对象，软件开发者可以很方便地与问题提出者进行沟通和交流。

2、易于软件的维护和功能的增减，对象的封装性及对象之间的松散组合，都给软件的修改和维护带来了方便。

3、可重用性好。重复使用一个类(类是对象的定义，对象是类的实例化)，可以比较方便地构造出软件系统，加上继承的方式，极大地提高了软件开发的效率。

4、与可视化技术相结合，改善了工作界面。随着基于图形界面操作系统的流行，面向对象的程序设计方法也将深入人心，它与可视化技术相结合，使人机界面进入GUI时代。

三、学习VB程序设计的方法

(1)保持良好的学习心态

1、要有自信,自强,积极主动学习.2、克服畏难情绪,树立学好程序设计的信心(2)要有良好的学习习惯

1、课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业.2、VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成.(3)学习程序设计要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.(4)自己动手编写程序

程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.(5)阅读,借签别人设计的好程序

多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.(6)VB程序设计学习的重点

1、程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.2、只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.等你在编写大量程序之后,我想过二级肯定没问题，不过能不能做到真知灼见,运用自如我就不敢说了.3、动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用.(7)上机调试程序应注意的几点:

1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)

2、每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.3、平时应多抽课余时间多上机调试程序.注意系统的提示信息,遇到问题多问几次为什么.(8)养成良好的编程习惯

1、程序构思要有说明;

2、学会如何调试程序;

3、对运行结果要做正确与否的分析.四、学习VB的意义

1、充实生活。业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄VB。是啊，想想以前，真是一无是处，不是打游戏，就是看小说。现在生活有了寄托，是VB给了我无穷的快乐，让我乐此不疲。

2、武装头脑。VB是一门计算机编程语言，也算是一项知识含量较高的东西吧。VB语言容易上手，采用的是可视化程序设计。通过学习VB，扩展了自己的视野，让自己的知识得到了增加。

3、锻炼意志。编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。

4、获得成就感。经过学习VB，我编写了一些小程序，例如计算器，贪吃蛇等。每当调试成功的时候，感到特别兴奋，成就感十足。

五、小结

通过选修课的学习，对了VB这种高级语言有了进一步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的VB课程让我收获了很多，使我对计算机2级考试有了信心。

第三篇：vb成绩判断程序

Private Sub Form_Click()

score = Val(InputBox(“请输入成绩:”))If score >= 60 Then

If score >= 90 Then

Level = “优”

Else

If score >= 80 Then

Level = “良”

Else

If score >= 70 Then

Level = “中”

Else

Level = “及格”

End If

End If

End If

Else

Level = “不及格”

End If

Print Level

End Sub

第四篇：VB程序设计说明（写写帮整理）

选题介绍及意义，程序模块及功能，程序流程图，程序源码及注释，程序的后续完善及存在问题，设计程序的心得体会 一．选题说明及意义

用VB实现备忘录的基本功能，包括记事本，屏幕抓图，数字时钟和日历等功能，利用VB中的诸多控件，例如PictureBox,Label,CommendButton,Timer,CommendDialog,RichTextBox等，完成VB程序的诸多功能的实现，创建功能较为完善的记事本，并具有一定辅助功能，对于利用此软件的人能够具有一定的便利。二．程序模块及功能实现流程图

三．部分程序代码 1.屏幕截图部分

Private Declare Function GetDC Lib “user32”(ByVal hwnd As Long)As Long Private Declare Function StretchBlt Lib “gdi32”(ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long)As Long

Private Sub Command1_Click()Dim wScreen As Long Dim hScreen As Long Dim w As Long Dim h As Long Picture1.Cls wScreen = Screen.Width Screen.TwipsPerPixelX hScreen = Screen.Height Screen.TwipsPerPixelY ‘定义截屏的长度和宽度等于屏幕实际长宽 Picture1.ScaleMode = vbPixels w = Picture1.ScaleWidth h = Picture1.ScaleHeight hdcScreen = GetDC(0)r = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy)‘StretchBlt，函数名。该函数从源矩形中复制一个位图到目标矩形，必要时按目标设备设置的模式进行图像的拉伸或压缩。

End Sub

Private Sub Command2_Click()‘另存为按键代码 Me.Picture = Me.Image CommonDialog1.Filter = “BMP文件(*.bmp)|*.bmp|JPG文件(*.jpg)|*.jpg” CommonDialog1.ShowSave CommonDialog1.Flags = &H2 + &H4 + &H8 ‘&H2使用长文件名 &H4 隐藏只读复选框。

&H8强制对话框将对话框打开时的目录置成当前目录

If CommonDialog1.FileName <> “" Then SavePicture Me.Picture, CommonDialog1.FileName End If End Sub

Private Sub Command3_Click()‘退出按键代码 Form3.Hide form6.Show End Sub 2.登陆部分

Option Explicit Dim Npass As Integer

Private Sub Command1_Click()If username.Text = ”111“ And password.Text = ”111“ And Npass < 3 Then Form5.Hide Form2.Show Else Npass = Npass + 1 If Npass = 3 Then MsgBox ”你没有机会了“ End Else MsgBox ”密码第“ & Npass & ”错误!请再试一次.“, 0, ”密码输入错误“ password.Text = ”“ ' password.SetFocus End If End If End Sub

Private Sub Command2_Click()username.Text = ”“ password.Text = ”“ End Sub 3.日记本部分代码

Dim sfind As String Dim FileType, FiType As String Private Sub copy_Click()‘复制按键 Clipboard.Clear On Error Resume Next Clipboard.SetText TxtDemo.SelText End Sub

Private Sub date_Click()‘日期按键 Text1.SelText = Now End Sub

Private Sub delete_Click()‘删除按键 RichTextBox1.SelText = ”“ End Sub

Private Sub edits_Click()‘编辑按键 RichTextBox1.SetFocus End Sub

Private Sub exit_Click()‘退出按键 Form2.Hide Form1.Show End Sub

Private Sub find_Click()‘查找按键 Dim sfind As Integer sfind = InputBox(”请输入要查找的词：“, ”查找内容“, sfind)RichTextBox1.find sfind If RichTextBox1.SelText <> sfind Then MsgBox ”找不到要查询的内容“, , ”查询结果报告“ End If End Sub Private Sub Form_Load()Me.Height = 6000 Me.Width = 9000

On Error Resume Next '出错处理 RichTextBox1.Top = 20 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight40 End Sub

Private Sub new_Click(Index As Integer)‘新建按键 RichTextBox1.Text = ”“ '清空文本框 FileName = ”未命名“ Me.Caption = FileName End Sub

Private Sub open_Click()‘打开部分

CommonDialog1.Filter = ”文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*“ CommonDialog1.ShowOpen RichTextBox1.Text = ”“ '清空文本框 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName Me.Caption = ”记事本：“ & FileName End Sub

Private Sub paste_Click()Clipboard.Clear On Error Resume Next Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = ”“ End Sub

Private Sub riji_Click()‘帮助日记部分 MsgBox ”日记Ver1.0版权所有(C)网络“, vbOKOnly, ”关于“

End Sub

Private Sub save_Click()‘保存文件部分 CommonDialog1.Filter = ”文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*“ CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileName Select Case FiType Case ”txt“ RichTextBox1.SaveFile FileName, rtfText Case ”rtf“ RichTextBox1.SaveFile FileName, rtfRTF Case ”*.*“ RichTextBox1.SaveFile FileName End Select Me.Caption = ”记事本：“ & FileName End Sub

Private Sub selectall_Click()‘全选部分 RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub

Private Sub tie_Click()‘剪切部分 On Error Resume Next RichTextBox1.SelText = Clipboard.GetText RichTextBox1.SelText = ”" End Sub 4.数字时钟部分代码

Private LastMinute As Integer Private LastHour As Integer Private Lastx As Integer Private Lasty As Integer

Private Sub Form_Load()Lastx = 999 End Sub

Private Sub Timer1_Timer()Const pi = 3.141592653 ‘定义圆周率 Dim T Dim X As Integer Dim Y As Integer T = Now SEC = Second(T)Min = Minute(T)HR = Hour(T)frmClock.Scale(-16, 16)-(16,-16)If Min <> lastMin Or HR <> LastHour Then LastMinute = Min LastHour = HR frmClock.Cls Lastx = 999 frmClock.DrawWidth = 2 frmClock.DrawMode = 13 h = HR + pi / 60 X = 5 * Sin(h * pi / 6)Y = 5 * Cos(h * pi / 6)frmClock.Line(0, 0)-(X, Y)X = 8 * Sin(Min * pi / 30)Y = 8 * Cos(Min * pi / 30)frmClock.Line(0, 0)-(X, Y)frmClock.DrawWidth = 1 End If frmClock.DrawMode = 10 RED = RGB(255, 0, 0)X = 10 * Sin(SEC * pi / 30)Y = 10 * Cos(SEC * pi / 30)If Lastx <> 999 Then frmClock.Line(0, 0)-(Lastx, Lasty), RED End If frmClock.Line(0, 0)-(X, Y), RED Lastx = X Lasty = Y End Sub

Private Sub NoUse_Click()Unload Me End Sub 四．程序后续完善及存在问题

目前程序功能较为简单，对于备忘录部分只能实现简单的文字输入和截屏，日历，数字时钟的功能，在以后陆续的开发中会实现更多更复杂的功能，例如定时提醒，连接数据库，Excel表格等功能，程序在设计之初与最后成品稍有 不同，对于程序设计中部分功能未能实现，十分遗憾，在以后的学习中会加强程序设计部分知识，逐渐完善程序功能。五．设计程序的心得体会

通过此次程序设计，我对于VB程序语言和VB各类控件有了更深入的了解，对于综合VB各项函数等也有了更深入的学习，完成一个综合的作品对于学习编程语言来说是进阶必不可少的一部分，通过完成自己的作品也激发了我的创造思维和创作能力。在以后的学习中，我也会继续学习和深入了解编程语言，为更好的做学术研究打基础。

第五篇：学生成绩管理系统VB程序

登陆

登陆

Private Sub cmdLogin_Click()If txtUser.Text = “" Then

MsgBox(”请输入用户名!“)

txtUser.SetFocus Else Call openconn sql = ”select * from login where username='“ & Trim(txtUser.Text)& ”' and password='“ & Trim(txtPwd.Text)& ”'“ rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then

MsgBox ”用户不存在！“

Else

Unload Me

frmMain.Show End If End If End Sub

退出

Private Sub cmdRegister_Click()Unload Me End Sub

功能选择

选课管理

Private Sub cmdChoice_Click()frmChoice.Show Unload Me End Sub 退出

Private Sub cmdExit_Click()End End Sub 查询

Private Sub cmdFind_Click()frmFind.Show Unload Me End Sub 成绩管理

Private Sub cmdGrade_Click()frmGrade.Show Unload Me End Sub 学生管理

Private Sub cmdStu_Click()frmStu.Show Unload Me End Sub

学生管理

添加

Private Sub cmdAdd_Click()frmAddStu.Show Unload Me End Sub 删除

Private Sub cmdDel_Click()rs.Delete MsgBox(”删除成功！“)End Sub 编辑

Private Sub cmdEdit_Click()frmEditStu.Show Unload Me End Sub 查找

Private Sub cmdFind_Click()'查询功能 If cboFind.Text = ”学号“ Then

If txtInput.Text = ”“ Then

MsgBox(”学号输入不能为空!“)

txtInput.SetFocus

Else

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select * from stuInfo where ID='“ & txtInput.Text & ”'“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs1

DataGrid1.Refresh

End If

End If Else

If txtInput.Text = ”“ Then

MsgBox(”姓名输入不能为空!“)

txtInput.SetFocus

Else

Dim sql2 As String

Set rs2 = New ADODB.Recordset

sql2 = ”select * from stuInfo where name='“ & txtInput.Text & ”'“

rs2.CursorLocation = adUseClient

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs2

DataGrid1.Refresh

End If

End If End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 输出窗口

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

' txtInput.Text = DataGrid1.Columns.Item(4)''获取选中行的第5列数据

End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs 'datagrid绑定数据源 End Sub

成绩查询

返回 Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 确定

Private Sub Command1_Click()

lblGrade.Caption = Trim(cboCourse.Text)+ ”课程成绩“

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID,score.Num,score.score from score, course where name='“ & cboCourse.Text & ”' and score.Num=course.Num“

'sql1 = ”select * from course“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs1 End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from course“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF

cboCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

选课管理

返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID = ”“ Then

MsgBox(”请输入学号！“)

txtID.SetFocus ElseIf lstCourse.Text = ”“ Then

MsgBox(”请选择课程！“)Else

Dim sql1 As String

Dim sql2, name As String

Set rs2 = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID, score.Num from score , course where ID='“ & txtID.Text & ”' and name='“ & lstCourse.Text & ”' and score.Num=course.Num“

name = lstCourse.Text

sql2 = ”select Num from course where name='“ & name & ” '“

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic

If rs1.EOF Then

rs1.AddNew

rs1(”ID“)= txtID.Text

rs1(”Num“)= rs2(”Num“)

rs1.Update

MsgBox(”选课成功！“)

rs1.Close

Else

MsgBox(”已选过该课！“)

End If End If End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

sql = ”select * from course“

Call openconn

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF 'listbox控件利用循环读取课程表中的课程名

lstCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

查询

确定

Private Sub cmdOK_Click()If txtID = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus Else

Dim sql As String

Dim sum1, sum2 As Single

Dim n As Integer

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select course.name , score.score , course.credit from score , course where score.ID='“ & txtID.Text & ”' and score.Num=course.Num“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs

sum1 = 0

sum2 = 0

n = 0

Do While Not rs.EOF

sum1 = sum1 + Val(rs(”score“))

sum2 = sum2 + Val(rs(”credit“))

n = n + 1

rs.MoveNext

Loop

lblAvg.Caption = Format(sum1 / n, ”0.0“)

lblCredit.Caption = sum2 End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub

修改学生信息

返回

Private Sub cmdReturn_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”姓名不能为空！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”学分不能为空！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If Not rs.EOF Then

'判断学号是否存在 rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”修改成功！“)

Else

MsgBox(”学号不存在!“)

End If End If End Sub 窗体

Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“)cboPro.Text = rs(”pro“)End Sub

添加学生

返回

Private Sub cmdReset_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”请输入姓名！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”请输入性别！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If rs.EOF Then

'判断学号是否存在 rs.AddNew

rs(”ID“)= txtID.Text

rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”添加成功！“)

frmStu.Show

Unload Me

Else

MsgBox(”学号已存在!")

End If End If End Sub