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

《实验一简单VB程序设计_1.pdf》由会员分享，可在线阅读，更多相关《实验一简单VB程序设计_1.pdf（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 实验1 简单VB程序设计【实验目的】1 学习怎样启动和退出VB，熟悉VB的工作环境。2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。4 基本掌握用VB开发应用程序的一般步骤。【实验环境】VB6.0 奔腾586【实验内容】1.启动和退出VB 2.打开和关闭窗口 3.设置窗体属性 4.设置控件属性 5.设计简单界面 6.开发一个简单的应用程序【实验步骤】1.启动和退出VB（1）可用以下方法启动VB 法1 用“开始”菜单的“程序”命令。法2 用“开始”菜单的“运行”命令。（2）可用以下方法退出VB 法1 单击

2、主窗口右上角的“关闭”按钮。法2 执行“文件”菜单的“退出”命令。2.打开和关闭窗口（1）打开工程资源管理器窗口 法1 单击工具栏上的“工程资源管理器”按钮。法2 执行“视图”菜单中的“工程资源管理器”命令。法3 CTRL+R（2）打开窗体设计器窗口 法1 执行“视图”菜单中的“对象窗口”命令。法2 SHIFT+F7 法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。（3)激活属性窗口 法1 按F4键 法2 单击工具栏上的“属性窗口”按钮。法3 执行“视图”菜单中的“属性窗口”命令。（4)关闭窗口 法1 单击窗口右上角的关闭按钮。法2 ALT+F4 3.设置窗

3、体属性（1）激活窗体，打开属性窗口。（2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。（3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中选择一种颜色。（4）在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。（5）在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。4.设置控件属性 在窗体上建立两个命令按钮(名称)分别为Command1和Command2,Command2按钮的Font属性设置见图1.1,其

4、余各项属性设置用代码实现如下:Private Sub Form_Click()Command1.Caption=”确定”Command1.FontName=”黑体”Command1.FontSize=2 Command1.Fontbold=True Command1.FontItalic=True Command1.FontUnderline=True Command1.Enabled=False Command2.Enabled=True Command2.Caption=”取消”End Sub 图1.1 Font属性对话框 5.设计简单界面 设计一个简单计算器面板 步骤如下：（1）把窗体的

5、Caption属性设置为“简易计数器”。（2）在窗体上画一个文本框，把它的Text属性设置为空白。（3）在窗体上画16个命令按钮，适当调整其大小和位置，然后在属性窗口中把它们的属性分别设置为1，2，3，4，5，6，7，8，9，0，.，C，+，-，*，/。如图1.2所示。图1.2 简易计数器 6.开发一个简单的应用程序 编写一个输入字符进行转换的程序。转换规则是，将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。（1）建立界面 在窗体上画两个标签，两个文本框，两个命令按钮，通过属性窗口把两个标签的Caption属性分别设置为“输入字符串”和“转换”，把两个文本

6、框的Text属性设置为空白，把两个命令按钮的Caption属性分别设置为“清屏”和“结束”，将窗体的Caption属性设置为“大小写字母转换”。完成后的界面如图1.3所示。图1.3 界面设计（2）编写代码 打开代码窗口，选定文本框1，对该控件编写如下代码：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim aa As String*1 aa=Chr$(KeyAscii)Select Case aa Case A To Z aa=Chr$(KeyAscii+32)Case a To z aa=Chr$(KeyAscii-32)Case Case

7、Else aa=*End Select Text2.Text=Text2.Text&aa End Sub 分别选定两个命令按钮,编写如下代码:Private Sub Command1_Click()清屏按钮 Text1.Text=”Text2.Text=”End Sub Sub Command2_Click()结束按钮 End End Sub (3)运行程序 解释运行模式：法1 单击“启动”按钮开始运行程序。法2 选择“运行”菜单的“启动”命令或按F5键。编译运行模式：选择“文件”菜单的“生成exe”命令。(4)保存程序 步骤1：选择“文件”菜单的“Form1另存为”命令，在“保存在”文本框选

8、择保存的文件夹，在“文件名”文本框输入文件名。步骤2：选择“文件”菜单的“工程另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。再次保存时，若以原文件名保存，则利用“保存Form”，“保存工程”命令，也可利用“保存”工具栏按钮。【实验报告】开发一个简单的应用程序。程序要求：在屏幕上开辟一个窗口，窗口的下部有三个按钮，其中左边按钮中标有“显示”，中间按钮中标有“清除”，右边按钮中标有“结束”。当用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用Visual Basic 6.0”；如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。程序结

9、果如下图1.4。图1.4 程序结果 实验2 VB基本语言【实验目的】1 掌握变量，常量的定义规则及VB基本输入输出函数和语句的功能和用法。2 熟悉选择结构和循环结构程序设计，灵活使用各种控制语句。3 掌握数组的定义方法，及数组元素的引用，赋值，输入和输出。【实验环境】VB6.0 奔腾586【实验内容】1.使用VB基本输入输出函数和语句及控制结构编写程序。2.使用数组编写程序。【实验步骤】1.使用VB基本输入输出函数和语句及控制结构编写程序1 程序要求：从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号，成绩，并根据成绩按下面的规定输出对该学生的评语。成绩 80100 6079 5059

10、 4049 039 评语 Very good Good Fair Poor Fail 程序如下：Private Sub Form_Click()n=InputBox(“请输入姓名”)s=InputBox(“请输入分数”)If s=80 Then Msgbox”姓名”&n&”,分数”&s&”,VeryGood”ElseIf s=60 And s=50 And s=40 And s=0 And s=39 Then Msgbox”姓名”&n&”,分数”&s&”,Fail”End If End Sub 程序运行后，单击窗体，在下图2.1，2.2所示对话框分别输入姓名和成绩，程序将在输出对话框中输出适当

11、的评语。结果如图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。程序如下：Priva

12、te Sub Form_Click()Dim msg,title As String msg=请确认此数据是否正确 title=数据检查对话框 x=MsgBox(msg,19,title)If x=6 Then MsgBox(x*x)ElseIf x=7 Then MsgBox(请重新输入)End If End Sub 程序运行后，单击窗体，结果如图2.4所示。图2.4 对话框 图 2.5 信息框1 图2.6信息框2 3.使用数组编写程序 程序要求：定义10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1元素与第10元素互换，第2元素与第9元素互换分别输出数组原来各元素

13、的值和对换后各元素的值。程序如下：Option Base 1 Private Sub Form_Click()arr=Array(1,3,5,7,9,2,4,6,8,10)Print 原来数组:For i=1 To 10 Print arr(i);Next i Print For i=1 To 5 For j=6 To 10 t=arr(i)arr(i)=arr(j)arr(j)=t Next j Next i Print 对换后的数组 For i=1 To 10 Print arr(i);Next i End Sub 程序运行后，单击窗体，结果如图2.7所示。图2.7 程序运行结果【实验报告

14、】编写程序，试验Msgbox函数的功能。程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“终止”，中间按钮中标有“重试”，右边按钮中标有“忽略”（2）。对话框内提示语为“Are you continue to？”，对话框标题“功能测试”，显示“？”图标（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 掌握常用控

15、件的主要属性、方法、事件。2 掌握菜单的设计方法和菜单事件过程的编写方法。【实验内容】1、单选按钮和复选框(1)Caption 属性为单选按钮和复选框边上的文本标(2)Alignment 属性表示标题（Caption）显示的位置，默认控件按钮在左边，标题显示在右边，值为 0；反之值为 1(3)Value 属性用来检查单选按钮和复选框是否被选定。对于单选按钮，属性值为 True 表示被选定，False 是缺省值，表示未被选定；复选框用属性值 0、1、2 分别表示未选定、选定和灰色（不允许选）(4)单选按钮和复选框的主要事件是 Click 事件。2、框架(1)主要作用是将其他控件组合在一起，对一个

16、窗体中的各种功能进行分类，便于识别。(2)当用框架将一个窗体上的单选按钮分组后，在一组中单选按钮进行的操作不会影响到其他组的选择。(3)主要属性是 Caption，当该属性为空时，为封闭框架。(4)框架一般不需要编写事件过程。3、列表框和组合框(1)列表框可以选择所需的项目。(2)组合框是组合了列表框和文本框的特性而形成的一种控件，即科选择所需项目，也可键入内容。(3)组合框的类型由 Style 属性决定，Style 值为 0，下拉式组合框；Style 值为 1，简单组合框；Style 值为 2，下拉式列表框(4)列表框和组合框常用方法是：AddItem、RemoveItem 和 Clear(

17、5)列表框的主要事件是：Click 和 DblClick 4、滚动条(1)水平和垂直两种，可以作输入数据的工具，也可用来观察数据或确定位置。(2)常用属性：Max、Min、Value、SmallChange 和 LargeChange(3)事件：Change 和 Scroll。5、时钟控件 按一定时间间隔（Interval）产生一个计时器（Timer）事件的控件。常用属性：Interval，以 0.001 秒为单位。事件：Timer。6、菜单 1）菜单的使用形式有下拉式和弹出式两种。2）每一个菜单都是一个控件对象，有 Click 事件。3）建立菜单：(1)在设计状态，选择“工具”菜单下的“菜单

18、编辑器”命令，打开“菜单编辑器”对话框。(2)在标题栏输入该菜单的文本。(3)在名称栏中输入程序中要引用该菜单的名称。(4)设置菜单的属性（复选、有效、可见）和快捷键等。(5)选菜单层次，重复前三步，建立菜单各项。(6)在标题栏输入一个连字符“”来表示菜单的分隔线。7、多重窗体 1）添加窗体：选中“工程”菜单上的“添加窗体”命令或工具栏上的“添加窗体”按钮。2）启动对象：缺省情况下，第一个创建的窗体被指定为启动对象。3）语句和方法：(1)Load 语句：Load 窗体名称(2)Unload 语句：Unload 窗体名称(3)Show 方法：窗体名称.Show (4)Hide 方 法：窗 体名称

19、.Hide【实验步骤】1编写一个登陆程序，如图：要求姓名是非数值型数据；密码设为“123456”，在登陆窗口中显示“*”。当输入不正确时，显示相关的提示信息；当输入正确时，登陆窗口关闭，情况调查窗口显示。1）控件：2 个标签，2 个文本框，2 个命令按钮 2）属性设置：Text2：PasswordChar=“*”，Maxlength=6；其余属性自行设置。3）程序代码：Private Sub Command1_Click()If IsNumeric(Text1.Text)Then MsgBox 非有效内容,vbRetryCancel+vbExclamation,提示信息 Text1.Text=

20、Text1.SetFocus End If If Text2.Text 123456 Then MsgBox 密码错误,vbRetryCancel+vbExclamation,提示信息 Text2.Text=Text2.SetFocus Else Form1.Hide Form2.Show End If End Sub Private Sub Command2_Click()End End Sub 2编写情况调查程序，界面如下图，文本框中显示复选框中选中的文字内容；用单选按钮来选 择文本框内显示文字的字体、大小和颜色；并设置图中所示的菜单 1）控件：需要的控件有两个标签，1 个文本框，4 个框

21、架，6 个单选按钮，3 个复选框，1 个水平滚定条。3）程序设计如下：Dim str1 As String,str2 As String,str3 As String Private Sub Check1_Click()If Check1.Value=Checked Then str1=Check1.Caption+Else str1=End If Text1.Text=str1+str2+str3 End Sub Private Sub Check2_Click()If Check2.Value=Checked Then str2=Check2.Caption+Else str2=End I

22、f Text1.Text=str1+str2+str3 End Sub Private Sub Check3_Click()If Check3.Value=Checked Then str3=Check3.Caption+Else str3=End If Text1.Text=str1+str2+str3 End Sub Private Sub Form_Load()Label1.Font=楷书 Label1.FontSize=18 End Sub Private Sub HScroll1_Change()Text1.FontSize=HScroll1.Value End Sub Privat

23、e Sub Option1_Click()Text1.FontName=隶书 End Sub Private Sub Option2_Click()Text1.FontName=幼圆 End Sub Private Sub Option3_Click()Text1.ForeColor=vbRed End Sub Private Sub Option4_Click()Text1.ForeColor=vbGreen End Sub Private Sub Option5_Click()Text1.FontBold=True End Sub Private Sub Option6_Click()Te

24、xt1.FontItalic=True End Sub 菜单中程序代码：Private Sub fon12_Click()Text1.FontSize=12 HScroll1.Value=Text1.FontSize End Sub Private Sub fon18_Click()Text1.FontSize=18 HScroll1.Value=Text1.FontSize End Sub Private Sub fon24_Click()Text1.FontSize=24 HScroll1.Value=Text1.FontSize End Sub Private Sub fon36_Cli

25、ck()Text1.FontSize=36 HScroll1.Value=Text1.FontSize End Sub Private Sub fh_Click()Form2.Hide Form1.Show End Sub Private Sub quit_Click()End End Sub 【实验习题】设计一个简单的设置字体、字形、字体大小的演示程序。要求：窗体中有 3 个组合框，分别为 3 种类型的组合框，3 个标签，1 个框架，1 个命令按钮和 1 个图片框。实验四 数据库系统【实验目的】1 学会创建一个简单的数据库 2 了解数据库控件的属性、事件和方法。【实验内容】1 会用数据库管理

26、器建立数据库（建立 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 窗口中，单击“外

27、接程序”菜单中的“可视化数据库管理器”，打开可视化数据库管理器(2)在 数 据 库 管 理 器中，单击“文件”菜单下“新建”中“Microsoft Access/Version 7.0 MDB”命令，打开“选择要创建的Microsoft Access 数据库”对话框，在“文件名”栏输入数据库文件名“学生成绩”，选择路径。(3)右击数据库窗口中“Properties”，选择“新建表”命令。打开“表结构”对话框，在“表名称”栏输入“学生成绩”。(4)单击“添加字段”按钮，在打开的对话框中输入名称、类型、大小等，设置一个字段要单击“确定”按钮。(5)表建好后，在数据库窗口中“学生成绩”表名处双击（击

28、右键，选择打开），打开表格输入窗口，选“添加”按钮，添写更新各条纪录。3设置属性 1）数据库控件 Data1 Connect 属性：设为 Access DatabaseName 属性：学生成绩.mdb，要加路径（直接选数据库文件就可以）。RecordSource 属性：学生成绩 RecordType 属性：0-Table 2）6 个文本框 DataSource 属性：Data1 DataField 属性：从 Text1Text6 依次选择 学号、姓名 计算机。4）其他控件请根据题来设置。程序代码如下：Private Sub Command1_Click()Data1.Recordset.Mov

29、eFirst End Sub Private Sub Command2_Click()Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command3_Click()Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command4_Click()Data1.Recordset.MoveLast

30、 End Sub Private Sub Command5_Click()On Error Resume Next Command6.Enabled=Not Command6.Enabled Command7.Enabled=Not Command7.Enabled Command8.Enabled=Not Command8.Enabled If Command5.Caption=新增 Then Command5.Caption=确定 Data1.Recordset.AddNew Text1.SetFocus Else Command5.Caption=新增 Data1.Recordset.U

31、pdate Data1.Recordset.MoveLast End If End Sub Private Sub Command6_Click()On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command7_Click()On Error Resume Next Command6.Enabled=Not Command6.Enabled Command5.

32、Enabled=Not Command5.Enabled Command8.Enabled=Not Command8.Enabled If Command7.Caption=修改 Then Command7.Caption=确定 Data1.Recordset.Edit Text1.SetFocus Else Command7.Caption=修改 Data1.Recordset.Update End If End Sub Private Sub Command8_Click()Dim m As String m=InputBox$(输入学号,查找)Data1.Recordset.FindFirst 学号=&m&If Data1.Recordset.NoMatch Then MsgBox 无此学生！,提示 End Sub 【实验习题】建立一个小型的图书管理系统，界面自行设计，要求合理、方便。要求有添加、删除、查询功能。图书数据要有编号、书名、购入时间、价钱、简介、状态（是否出借）等。