实验一简单VB程序设计.pdf

实验实验1 1简单简单VBVB程序设计程序设计【实验目的实验目的】1 学习怎样启动和退出VB，熟悉VB的工作环境。2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。4 基本掌握用VB开发应用程序的一般步骤。【实验环境实验环境】VB6.0 奔腾586【实验内容实验内容】1.启动和退出VB2.打开和关闭窗口3.设置窗体属性4.设置控件属性5.设计简单界面6.开发一个简单的应用程序【实验步骤实验步骤】1.启动和退出VB（1）可用以下方法启动VB法1 用“开始”菜单的“程序”命令。法2 用“开始”菜单的“运行”命令。（2）可用以下方法退出VB法1 单击主窗口右上角的“关闭”按钮。法2 执行“文件”菜单的“退出”命令。2.打开和关闭窗口（1）打开工程资源管理器窗口法1 单击工具栏上的“工程资源管理器”按钮。法2 执行“视图”菜单中的“工程资源管理器”命令。法3 CTRL+R（2）打开窗体设计器窗口法1 执行“视图”菜单中的“对象窗口”命令。法2 SHIFT+F7法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。（3)激活属性窗口法1 按F4键法2 单击工具栏上的“属性窗口”按钮。法3 执行“视图”菜单中的“属性窗口”命令。（4)关闭窗口法1 单击窗口右上角的关闭按钮。法2 ALT+F43.设置窗体属性（1）激活窗体，打开属性窗口。（2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。（3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中选择一种颜色。（4）在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。（5）在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。4.设置控件属性在窗体上建立两个命令按钮(名称)分别为Command1和Command2,Command2按钮的Font属性设置见图1.1,其余各项属性设置用代码实现如下:Private Sub Form_Click()Command1.Caption=”确定”Command1.FontName=”黑体”Command1.FontSize=2Command1.Fontbold=TrueCommand1.FontItalic=TrueCommand1.FontUnderline=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueCommand2.Caption=”取消”End Sub图1.1Font属性对话框5.设计简单界面设计一个简单计算器面板步骤如下：（1）把窗体的Caption属性设置为“简易计数器”。（2）在窗体上画一个文本框，把它的Text属性设置为空白。（3）在窗体上画16个命令按钮，适当调整其大小和位置，然后在属性窗口中把它们的属性分别设置为1，2，3，4，5，6，7，8，9，0，.，C，+，-，*，/。如图1.2所示。图1.2 简易计数器6.开发一个简单的应用程序编写一个输入字符进行转换的程序。转换规则是，将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。（1）建立界面在窗体上画两个标签，两个文本框，两个命令按钮，通过属性窗口把两个标签的 Caption属性分别设置为“输入字符串”和“转换”，把两个文本框的Text属性设置为空白，把两个命令按钮的Caption属束”，将窗体的字母转换”。完成性分别设置为“清屏”和“结Caption属性设置为“大小写后的界面如图1.3所示。图1.3界面设计（2）编写代码打开代码窗口，选定文本框1，对该控件编写如下代码：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim aa As String*1aa=Chr$(KeyAscii)Select Case aaCase A To Zaa=Chr$(KeyAscii+32)Case a To zaa=Chr$(KeyAscii-32)Case Case Elseaa=*End SelectText2.T ext=Text2.Text&aaEnd Sub分别选定两个命令按钮,编写如下代码:Private Sub Command1_Click()清屏按钮Text1.Text=”Text2.Text=”End SubSub Command2_Click()结束按钮EndEnd Sub(3)运行程序解释运行模式：法1 单击“启动”按钮开始运行程序。法2 选择“运行”菜单的“启动”命令或按F5键。编译运行模式：选择“文件”菜单的“生成exe”命令。(4)保存程序步骤1：选择“文件”菜单的“Form1另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。步骤2：选择“文件”菜单的“工程另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。再次保存时，若以原文件名保存，则利用“保存 Form”，“保存工程”命令，也可利用“保存”工具栏按钮。【实验报告】开发一个简单的应用程序。程序要求：在屏幕上开辟一个窗口，窗口的下部有三个按钮，其中左边按钮中标有“显示”，中间按钮中标有“清除”，右边按钮中标有“结束”。当用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用Visual Basic 6.0”；如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。程序结果如下图1.4。图1.4 程序结果实验实验2 2VBVB基本语言基本语言【实验目的实验目的】1 掌握变量，常量的定义规则及VB基本输入输出函数和语句的功能和用法。2 熟悉选择结构和循环结构程序设计，灵活使用各种控制语句。3 掌握数组的定义方法，及数组元素的引用，赋值，输入和输出。【实验环境实验环境】VB6.0 奔腾586【实验内容实验内容】1.使用VB基本输入输出函数和语句及控制结构编写程序。2.使用数组编写程序。【实验步骤实验步骤】1.使用VB基本输入输出函数和语句及控制结构编写程序1程序要求：从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号，成绩，并根据成绩按下面的规定输出对该学生的评语。成绩80100607950594049039评语Very goodGoodFairPoorFail程序如下：Private Sub Form_Click()n=InputBox(“请输入姓名”)s=InputBox(“请输入分数”)If s=80 ThenMsgbox”姓名”&n&”,分数”&s&”,VeryGood”ElseIf s=60 And s=50 And s=40 And s=0 And s=39 ThenMsgbox”姓名”&n&”,分数”&s&”,Fail”End IfEnd Sub程序运行后，单击窗体，在下图2.1，2.2所示对话框分别输入姓名和成绩，程序将在输出对话框中输出适当的评语。结果如图2.3所示。图2.1 输入对话框1图2.2 输入对话框2图2.3 程序执行结果2使用VB基本输入输出函数和语句及控制结构编写程序2程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“是”，中间按钮中标有“否”，右边按钮中标有“取消”（3）。对话框内提示语为“请确认此数据是否正确”，对话框标题“数据检查对话框”，显示“X”图标（16），并把第一个按钮作为默认活动按钮（0）。对话框见图2.4。如果选择“是”，则返回值为 6，在信息框中显示6的平方，见图2.5。如果选择“否”，则返回值为7，在信息框中显示“请重新输入”。见图2.6。程序如下：Private Sub Form_Click()Dim msg,title As Stringmsg=请确认此数据是否正确title=数据检查对话框x=MsgBox(msg,19,title)If x=6 ThenMsgBox(x*x)ElseIf x=7 ThenMsgBox(请重新输入)End IfEnd Sub程序运行后，单击窗体，结果如图2.4所示。图2.4 对话框图 2.5 信息框1图2.6信息框23.使用数组编写程序程序要求：定义10个整数，并放入一个一维数组中，然后将其前 5个元素与后5个元素对换，即第1元素与第10元素互换，第2元素与第9元素互换分别输出数组原来各元素的值和对换后各元素的值。程序如下：Option Base 1Private Sub Form_Click()arr=Array(1,3,5,7,9,2,4,6,8,10)Print 原来数组:For i=1 To 10Print arr(i);Next iPrintFor i=1 To 5For j=6 To 10t=arr(i)arr(i)=arr(j)arr(j)=tNext jNext iPrint 对换后的数组For i=1 To 10Print arr(i);Next iEnd Sub程序运行后，单击窗体，结果如图2.7所示。图2.7程序运行结果【实验报告】编写程序，试验Msgbox函数的功能。程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“终止”，中间按钮中标有“重试”，右边按钮中标有“忽略”（2）。对话框内提示语为“Are you continueto？”，对话框标题“功能测试”，显示“？”图标（32），并把第一个按钮作为默认活动按钮（0）。对话框见图2.8。输出函数的返回值，单击终止，打印返回值 3，见图2.9；单击重试，打印返回值4，见图2.10；单击忽略，打印返回值5，见图2.11。图2.8 对话框图2.9信息框1图2.10信息框1图2.11信息框1实验三实验三常用控件和窗体常用控件和窗体【实验目的】【实验目的】1 掌握常用控件的主要属性、方法、事件。2 掌握菜单的设计方法和菜单事件过程的编写方法。【实验内容】【实验内容】1、单选按钮和复选框(1)Caption 属性为单选按钮和复选框边上的文本标(2)Alignment 属性表示标题（Caption）显示的位置，默认控件按钮在左边，标题显示在右边，值为 0；反之值为 1(3)Value属性用来检查单选按钮和复选框是否被选定。对于单选按钮，属性值为 True表示被选定，False 是缺省值，表示未被选定；复选框用属性值 0、1、2 分别表示未选定、选定和灰色（不允许选）(4)单选按钮和复选框的主要事件是Click 事件。2、框架(1)主要作用是将其他控件组合在一起，对一个窗体中的各种功能进行分类，便于识别。(2)当用框架将一个窗体上的单选按钮分组后，在一组中单选按钮进行的操作不会影响到其他组的选择。(3)主要属性是 Caption，当该属性为空时，为封闭框架。(4)框架一般不需要编写事件过程。3、列表框和组合框(1)列表框可以选择所需的项目。(2)组合框是组合了列表框和文本框的特性而形成的一种控件，即科选择所需项目，也可键入内容。(3)组合框的类型由 Style 属性决定，Style 值为 0，下拉式组合框；Style 值为 1，简单组合框；Style 值为 2，下拉式列表框(4)列表框和组合框常用方法是：AddItem、RemoveItem和 Clear(5)列表框的主要事件是：Click 和 DblClick4、滚动条(1)水平和垂直两种，可以作输入数据的工具，也可用来观察数据或确定位置。(2)常用属性：Max、Min、Value、SmallChange 和 LargeChange(3)事件：Change 和 Scroll。5、时钟控件按一定时间间隔（Interval）产生一个计时器（Timer）事件的控件。常用属性：Interval，以 0.001 秒为单位。事件：Timer。6、菜单1）菜单的使用形式有下拉式和弹出式两种。2）每一个菜单都是一个控件对象，有Click 事件。3）建立菜单：(1)在设计状态，选择“工具”菜单下的“菜单编辑器”命令，打开“菜单编辑器”对话框。(2)在标题栏输入该菜单的文本。(3)在名称栏中输入程序中要引用该菜单的名称。(4)设置菜单的属性（复选、有效、可见）和快捷键等。(5)选菜单层次，重复前三步，建立菜单各项。(6)在标题栏输入一个连字符“”来表示菜单的分隔线。7、多重窗体1）添加窗体：选中“工程”菜单上的“添加窗体”命令或工具栏上的“添加窗体”按钮。2）启动对象：缺省情况下，第一个创建的窗体被指定为启动对象。3）语句和方法：(1)Load 语句：Load 窗体名称(2)Unload 语句：Unload 窗体名称(3)Show 方法：窗体名称.Show(4)Hide方 法：窗 体名称.Hide【实验步骤】【实验步骤】1编写一个登陆程序，如图：要求姓名是非数值型数据；密码设为“123456”，在登陆窗口中显示“*”。当输入不正确时，显示相关的提示信息；当输入正确时，登陆窗口关闭，情况调查窗口显示。1）控件：2 个标签，2 个文本框，2 个命令按钮2）属性设置：Text2：PasswordChar=“*”，Maxlength=6；其余属性自行设置。3）程序代码：Private Sub Command1_Click()If IsNumeric(Text1.T ext)ThenMsgBox 非有效内容,vbRetryCancel+vbExclamation,提示信息Text1.T ext=Text1.SetFocusEnd IfIf Text2.Text 123456 ThenMsgBox 密码错误,vbRetryCancel+vbExclamation,提示信息Text2.T ext=Text2.SetFocusElseForm1.HideForm2.ShowEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2编写情况调查程序，界面如下图，文本框中显示复选框中选中的文字内容；用单选按钮来选择文本框内显示文字的字体、大小和颜色；并设置图中所示的菜单1）控件：需要的控件有两个标签，1 个文本框，4 个框架，6 个单选按钮，3 个复选框，1 个水平滚定条。3）程序设计如下：Dim str1 As String,str2 As String,str3 As StringPrivate Sub Check1_Click()If Check1.Value=Checked Thenstr1=Check1.Caption+Elsestr1=End IfText1.Text=str1+str2+str3End SubPrivate Sub Check2_Click()If Check2.Value=Checked Thenstr2=Check2.Caption+Elsestr2=End IfText1.T ext=str1+str2+str3End SubPrivate Sub Check3_Click()If Check3.Value=Checked Thenstr3=Check3.Caption+Elsestr3=End IfText1.T ext=str1+str2+str3End SubPrivate Sub Form_Load()Label1.Font=楷书Label1.FontSize=18End SubPrivate Sub HScroll1_Change()Text1.FontSize=HScroll1.ValueEnd SubPrivate Sub Option1_Click()Text1.FontName=隶书End SubPrivate Sub Option2_Click()Text1.FontName=幼圆End SubPrivate Sub Option3_Click()Text1.ForeColor=vbRedEnd SubPrivate Sub Option4_Click()Text1.ForeColor=vbGreenEnd SubPrivate Sub Option5_Click()Text1.FontBold=TrueEnd SubPrivate Sub Option6_Click()Text1.FontItalic=TrueEnd Sub菜单中程序代码：Private Sub fon12_Click()Text1.FontSize=12HScroll1.Value=Text1.FontSizeEnd SubPrivate Sub fon18_Click()Text1.FontSize=18HScroll1.Value=Text1.FontSizeEnd SubPrivate Sub fon24_Click()Text1.FontSize=24HScroll1.Value=Text1.FontSizeEnd SubPrivate Sub fon36_Click()Text1.FontSize=36HScroll1.Value=Text1.FontSizeEnd SubPrivate Sub fh_Click()Form2.HideForm1.ShowEnd SubPrivate Sub quit_Click()EndEnd Sub【实验习题】【实验习题】设计一个简单的设置字体、字形、字体大小的演示程序。要求：窗体中有 3 个组合框，分别为 3 种类型的组合框，3 个标签，1 个框架，1 个命令按钮和 1 个图片框。实验四实验四 数据库系统数据库系统【实验目的】【实验目的】1 学会创建一个简单的数据库2 了解数据库控件的属性、事件和方法。【实验内容】【实验内容】1 会用数据库管理器建立数据库（建立Access 数据库）2 数据控件的属性(1)Connect 属性：指定所连接的数据库类型(2)DatabaseName 属性：指定具体使用数据库的文件名，包括路径名。(3)RecordSource属性：确定具体可访问的数据，可是个表名。(4)RecordType属性：确定纪录集类型，如使用Access 的 MDB 数据库，则应选择Table 类型。3 数据控件的事件4 数据控件的方法5 记录集的属性和方法6 数据库记录的操作【实验步骤】【实验步骤】1设计界面，添加控件：1 个 Data 控件，6 个标签，6 个文本框2建立学生成绩数据库(1)在 VB 窗口中，单击“外接程序”菜单中的“可视化数据库管理器”，打开可视化数据库管理器(2)在 数 据 库 管 理 器中，单击“文件”菜单下“新建”中“MicrosoftAccess/Version7.0 MDB”命令，打开“选择要创建的MicrosoftAccess 数据库”对话框，在“文件名”栏输入数据库文件名“学生成绩”，选择路径。(3)右击数据库窗口中“Properties”，选择“新建表”命令。打开“表结构”对话框，在“表名称”栏输入“学生成绩”。(4)单击“添加字段”按钮，在打开的对话框中输入名称、类型、大小等，设置一个字段要单击“确定”按钮。(5)表建好后，在数据库窗口中“学生成绩”表名处双击（击右键，选择打开），打开表格输入窗口，选“添加”按钮，添写更新各条纪录。3设置属性1）数据库控件 Data1Connect 属性：设为 AccessDatabaseName 属性：学生成绩.mdb，要加路径（直接选数据库文件就可以）。RecordSource属性：学生成绩RecordType属性：0-Table2）6 个文本框DataSource 属性：Data1DataField 属性：从 Text1Text6依次选择 学号、姓名 计算机。4）其他控件请根据题来设置。程序代码如下：Private Sub Command1_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click()On Error Resume NextCommand6.Enabled=Not Command6.EnabledCommand7.Enabled=Not Command7.EnabledCommand8.Enabled=Not Command8.EnabledIf Command5.Caption=新增 ThenCommand5.Caption=确定Data1.Recordset.AddNewText1.SetFocusElseCommand5.Caption=新增Data1.Recordset.UpdateData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()On Error Resume NextCommand6.Enabled=Not Command6.EnabledCommand5.Enabled=Not Command5.EnabledCommand8.Enabled=Not Command8.EnabledIf Command7.Caption=修改 ThenCommand7.Caption=确定Data1.Recordset.EditText1.SetFocusElseCommand7.Caption=修改Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command8_Click()Dim m As Stringm=InputBox$(输入学号,查找)Data1.Recordset.FindFirst 学号=&m&If Data1.Recordset.NoMatch Then MsgBox 无此学生！,提示End Sub【实验习题】【实验习题】建立一个小型的图书管理系统，界面自行设计，要求合理、方便。要求有添加、删除、查询功能。图书数据要有编号、书名、购入时间、价钱、简介、状态（是否出借）等。