VB程序设计实训-.pdf

《VB程序设计实训-.pdf》由会员分享，可在线阅读，更多相关《VB程序设计实训-.pdf（44页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、实训项目一Visual Basic 集成开发环境一、实训目的与要求1.能进行 Visual Basic的启动与退出；2.培养 Visual Basic 的集成开发环境的简单运用。二、实训设备与器材计算机、Visual Basic 6.0软件三、实训组织与实施周一：14:00-17:30 地点：电子阅览室四、实训内容实训 1-1 练习 Visual Basic 6.0的启动与退出（1）启动（2）退出单击下图 VB 主窗口右上角的关闭按钮选择“文件”菜单中的“退出”命令：按快捷键 Alt+Q 实训 1-2 熟悉集成开发环境的窗口（1）主窗口如上图所示，由标题栏、菜单栏和工具栏组成(2)窗体设计器窗

2、口操作练习：拖动窗体设计窗口,改变其位置；拖动窗体设计窗口边框,改变其大小；拖动窗体设计窗口的“最小化”按钮，将其缩成图标；双击窗体设计窗口控制菜单图标，恢复其原来大小；（3）属性窗口属性窗口位于主窗口右侧，所有窗体或控件的属性，如颜色、字体、大小等，都可以通过窗口设置以及修改。操作练习：单击窗体设计窗口，注意此时属性窗口显示了当前Form1 的所有属性；选中 Caption 属性，将 Form1 改为窗体练习，此时窗体变为窗体练习；（4）工程资源管理器窗口工程资源管理器窗口是以树型结构方式列出当前工程中所有文件，并对工程进行管理，如下图：操作练习：查看“代码窗口”按钮，显示和编辑代码；查看“

3、对象代码”按钮，显示窗口上的模块对象；（5）代码窗口代码窗口是专门进行程序设计的窗口，可在其中显示和编辑代码窗口。（6）工具箱窗口操作练习：选择“工程菜单”中的部件按钮；在弹出部件对话框中选择控件选项卡，单击确定按钮，这时工具箱中会出现新的按钮；（7）其它窗口1）立即窗口：使用立即窗口可以在中断状态下监视对象属性、变量或表达式的值，也可以在设计时查询表达式的值或命令的执行结果。初学者可以在设计时利用立即窗口练习常用函数、语句和表达式的使用。2）窗体布局（Form Layout）窗口：窗体布局窗口，用于指定程序运行时窗体的初始位置。在窗体布局窗口中有一个模拟显示器，在它的“屏幕”上直观地显示了本

4、程序中各窗体在实际显示器屏幕中的位置和大小。思考题：1.详细叙述 VB6.0 各个窗口的主要作用。窗体窗口:窗体窗口是 Visual Basic 应用程序的主要构成部分，是应用程序最终面向用户的窗口，应用程序的运行结果最终在窗体中体现。各种图形、图像、数据、按钮等都是通过窗体或窗体中的控件显示出来的，窗体窗口的设计是应用程序设计的第一步。属性窗口：属性窗口就是用来设置窗体和窗体中的控件属性的。工程资源管理器窗口：在工程资源管理器中也可以创建、添加或删除文件。在工程资源管理器窗口的上部有3 个按钮，其作用介绍如下。【查看代码】按钮：用于打开代码编辑器，查看当前窗体的程序指令。【查看对象】按钮：将

5、当前打开的代码编辑器所指向的窗体打开。【切换文件夹】按钮：用于切换工程资源管理器中管理不同类型文件的文件夹。2.任意举出一个例子来说明VB 应用程序开发的详细步骤。3.谈谈 VB 程序设计学习的感受。（不少于 1000 字）项目二创建简单的应用程序一、实训目的和要求1.Visual Basic对象的属性、方法和事件运用；2.练习 Visual Basic 程序开发的一般步骤操作；3.培养编写简单的应用程序。二、实训设备和器材计算机、Visual Basic 6.0软件三、实训组织与实施地点：电子阅览室四、实训内容实训 2-1：控件名称及其属性设置控件名称属性名及属性值Form1 Caption

6、=“LT1-1”Command1 Caption=“确定”界面设计 显示代码：Private Sub Command1_Click()Print 你单击了命令按钮 End Sub Private Sub Form_Click()Form1.Print 你单击了窗体 End Sub 运行效果实训 2-2：控件名称及其属性设置控件名称属性名及属性值Label1 Caption=“输入行数”Text1 Text=“”界面设计代码显示：Private Sub Form_Click()Dim n As Integer,i%,j%Cls 清屏n=Val(Text1.Text)For i=1 To n Pr

7、int Tab(20);For j=1 To i Print*;Next j Print Next i End Sub 运行效果：实训 2-3 控件名称及其属性设置控件名称属性名及属性值Text1 Text=“”Text2 Text=“”Command1 Caption=“测算”界面设计显示代码：Private Sub Command1_Click()Dim n As Date n=Text1.Text If n Mod 4=o And n Mod 100 0 Or n Mod 400=0 Then Text2.Text=是闰年 Else Text2.Text=不是闰年 End If End

8、Sub 运行效果：实训 2-4 本题不需要添加控件界面设计代码显示Private Sub Form_Click()Dim x,y,z As Integer For x=1 To 20 For y=1 To 33 z=100-x-y If(x+y+z)=100 And(5*x+3*y+z/3)=100 Then Print 公鸡;x,母鸡;y,小鸡;z End If Next y Next x End Sub 注计算鸡数量的判定式：x+y+z=100 and 5x+3y+z/3=100 运行效果：实训 2-5：界面设计代码显示：Private Sub Timer1_Timer()Label1.M

9、ove Label1.Left-20 判断是否到达窗体左边缘If Label1.Left+Label1.Width=0 Then Label1.Left=Form1.Width End If End Sub 运行效果：实训项目三Visual Basic语言基础一、实训目的与要求1.掌握 VB 中基本数据类型和常用内部函数的使用；2.正确使用 VB 的运算符和表达式在编程中的应用；3.熟悉常用的输入和输出方法的运用。二、实训设备和器材计算机、Visual Basic 6.0 软件三、实训组织与实施地点：电子阅览室四、实训内容实训 3-1：本题不需添加控件界面设计：代码显示：Private Sub

10、 Form_Click()t=今天是:&Now Print Format(t,yyyy&dddddd&hh:mm:ss)End Sub 运行效果：实验 3-2：本题不需要添加任何控件界面设计：代码显示Private Sub Form_click()Dim x As Single x=1234.57 Print Format(x,#.#)Print Format(x,000000.0000)Print Format(x,#%)Print Format(x,+#,#,#$)Print Format(x,#.#E+)美金)End Sub 运行效果：实训项目四“科学计数器”设计一、实训目的与要求1.进

11、一步熟悉窗体、命令按钮、标签、文本框的属性、事件和方法运用2.学会使用菜单编辑器培养 VB 基本语句的使用二、实训设备与器材计算机、Visual Basic 6.0 软件三、实验组织与实施地点：电子阅览室四、实训内容实训 4-1：编写程序，设计一个简易的科学计数器。实训项目五“文本字体”设置一、实训目的与要求1.熟悉选择类控件与框架的属性、事件及方法控件的应用；2.熟悉列表类控件的属性、事件和方法以及控件的应用；3.培养运用所学相关知识Windows 字体对话框程序对相关文本文字进行设置。二、实训设备与器材计算机、Visual Basic 6.0 软件三、实验组织与实施地点：电子阅览室四、实训

12、内容实训 5-1：课本例题 7.1：利用框架、单选按钮和复选框建立一个字体、字型和字号的对话框，根据不同的选择在文本框中显示不同的文字。框架控件数组属性设置控件名属性名及其属性值Frame1 Caption=“字体”Frame2 Caption=“字型”Frame3 Caption=“字号”各框架内控件数组名称及其属性设置“字体”框架内“字型”框架内“字号”框架内Option1(0)Caption=“黑体”Check1(0)Caption=“倾斜”Option2(0)Caption=“18”Index=0 Index=0 Index=0 Option1(1)Caption=“宋体”Index=

13、1 Check1(1)Caption=“加粗”Index=1 Option2(1)Caption=“24”Index=1 Option1(2)Caption=“幼圆”Index=2 Check1(2)Caption=“下划线”Index=2 Option2(2)Caption=“28”Index=2 界面设计：代码显示：Rem 字体设计过程代码Private Sub Option1_click(Index As Integer)Select Case Index Case 0 Text1.FontName=黑体 Case 1 Text1.FontName=宋体 Case 2 Text1.Fon

14、tName=幼圆 End Select End Sub Rem 字型设计过程代码Private Sub Check1_Click(Index As Integer)Select Case Index Case 0 Text1.FontItalic=Not Text1.FontItalic 复选框具有开关的效果Case 1 Text1.FontBold=Not Text1.FontBold Case 2 Text1.FontUnderline=Not Text1.FontUnderline End Select End Sub Rem 字号设计过程代码Private Sub Option2_Cl

15、ick(Index As Integer)Select Case Index Case 0 Text1.FontSize=18 Case 1 Text1.FontSize=24 Case 2 Text1.FontSize=28 End Select End Sub 运行效果：实训 5-2：例题 7-2：设计一个应用程序。程序运行时，当“预选”复选框没有选中时，它下面的两个单选按钮是不能使用的。如果单击“确定”按钮，则在图片框中显示用户所选择的配置。主要控件名称及其属性设置“计算机品牌”框架内“内存”框架内“其他设备”框架内Option1 Caption=“方正”Option4 Caption=

16、“1G”Check1 Caption=“预选”Opton2 Caption=“联想”Option5 Caption=“2G”Option6 Caption=“无线网卡”Option3 Caption=“惠普”Option7 Caption=“无线鼠标”界面设计：代码显示：Private Sub Form_Load()程序开始运行时，两个单选按钮不可用Option6.Enabled=False Option7.Enabled=False End Sub Private Sub Check1_Click()Option6.Enabled=Not Option6.Enabled 复选框具有开关效果O

17、ption7.Enabled=Not Option7.Enabled End Sub Private Sub Command1_Click()Dim PP As String,NC As String,QT As String Picture1.Cls If Option1 Then 非 0 值为 True PP=方正 ElseIf Option2.Value=True Then PP=联想 Else PP=惠普 End If If Option4 Then NC=1G Else NC=2G End If If Check1.Value=1 Then If Option6 Then QT=无线

18、网卡 Else QT=无线鼠标 End If End If Picture1.Print PP;NC;QT End Sub 运行效果：实训 5-3 例题 7.5 列表框和组合框的应用。设计一个应用程序，程序运行后，“预安装操作系统”框架内的两个单选按钮不可用，当用户选中“安装”复选框之后才可用。当用户在“计算机品牌”组合框、“购买数量”组合框和“预安装操作系统”中选择项目后，单击“确定”按钮，则在列表框中将选择的内容显示出来。控件名称及属性设置控件名称属性名及属性值Label1 Caption=“计算机品牌”Label2 Caption=“购买数量”Combo1 Style=0 Combo2

19、Style=0 Frame1 Caption=“预安装操作系统”Check1 Caption=“安装”Option1 Caption=“windows 2000”Option2 Caption=“windows 2007”List1 Command1 Caption=“确定”界面设计：显示代码：Private Sub Form_Load()Combo1.AddItem 联想 向“计算机品牌”组合框添加项目Combo1.AddItem IBM Combo1.AddItem 戴尔 Combo1.AddItem 惠普 Combo1.ListIndex=0 Combo2.AddItem 50 向“购买

20、数量”组合框添加项目Combo2.AddItem 80 Combo2.AddItem 100 Combo2.ListIndex=0 Option1.Enabled=False 设置两个单选按钮不可用Option2.Enabled=False End Sub Private Sub Check1_Click()单击复选框后，两个单选按钮在可用/不可用之间切换Option1.Enabled=Not Option1.Enabled Option2.Enabled=Not Option2.Enabled End Sub Private Sub Command1_Click()向列表框添加各个选项内容L

21、ist1.Clear List1.AddItem Combo1.Text List1.AddItem Combo2.Text If Check1.Value=1 Then If Option1.Value=True Then List1.AddItem Option1.Caption End If If Option2 Then List1.AddItem Option2.Caption End If End If End Sub 运行效果：实训 5-4：例题 7.6：设计一个调色板程序，利用滚动条作为红、绿、蓝3 种基色的输入控件，然后将合成的颜色作为文本框的前景色或背景色。控件名称及其属性

22、设置控件名称属性名及属性设置Label1 Caption=“红色分量值”Label2 Caption=“绿色分量值”Label3 Caption=“蓝色分量值”Label4 Caption=“合成颜色”Command1 Caption=“设置前景色”Command2 Caption=“设置背景色”Hscroll1 Min=0，Max=255，LargeChange=25 Hscroll2 Min=0，Max=255，LargeChange=25 Hscroll3 Min=0，Max=255，LargeChange=25 Text1 Text=“”Text2 Text=“调色板像变色龙”Form

23、1 Caption=“调色板”界面设计：代码显示：Dim red,green,blue As Long Private Sub Command1_Click()设置文本框前景色Text2.ForeColor=Text1.BackColor End Sub Private Sub Command2_Click()设置文本框背景色Text2.BackColor=Text1.BackColor End Sub Private Sub HScroll1_Change()设置红色分量值事件red=HScroll1.Value green=HScroll2.Value blue=HScroll3.Valu

24、e Text1.BackColor=RGB(red,green,blue)Text1 用于预览颜色End Sub Private Sub HScroll2_Change()设置绿色分量值事件red=HScroll1.Value green=HScroll2.Value blue=HScroll3.Value Text1.BackColor=RGB(red,green,blue)End Sub Private Sub HScroll3_Change()设置蓝色分量值事件red=HScroll1.Value green=HScroll2.Value blue=HScroll3.Value Text

25、1.BackColor=RGB(red,green,blue)End Sub 运行效果：实训 5-5 1.添加一个列表框，组合框，创建一个单选按钮控件数组，一个复选框控件数组，一个滚动条控件数组，标签等控件名称及其属性设置对象属性属性值List1 各个属性均为默认值Combo1 各个属性均为默认值Frame1 Caption 字体Frame1 Caption 字行Frame1 Caption 字号Frame2 Caption 效果Frame3 Caption 字体颜色Frame1 Backcolor 背景颜色Frame1 Backcolor 预览（设置效果）Option1(0)Caption

26、10 号字Option1(1)Caption 20 号字Option1(2)Caption 30 号字Option1(3)Caption 40 号字Check1(0)Caption 下划线Check(1)Caption 删除线Labe11(0)Caption 红色值Label1(1)Caption 绿色值Label1(2)Caption 蓝色值Label2(0)Caption 红色值Label2(1)Caption 绿色值Label2(2)Caption 蓝色值HScroll1 和 HScroll2（控件各组元素设置均相同）Max 255 Min 0 Label3 Caption 文本字体设置

27、效果界面设置：代码显示：Private Sub Check1_Click(Index As Integer)If Check1(0).Value=1 Then Label3.FontUnderline=True Else Label3.FontUnderline=False End If If Check1(1).Value=1 Then Label3.FontStrikethru=True Else Label3.FontStrikethru=False End If End Sub Private Sub Combo1_Click()Select Case Combo1.Text Case

28、 常规 Label3.FontBold=False Label3.FontItalic=False Case 倾斜 Label3.FontBold=False Label3.FontItalic=True Case 加粗 Label3.FontBold=True Label3.FontItalic=False Case 加粗倾斜 Label3.FontBold=True Label3.FontItalic=True End Select End Sub Private Sub Form_Load()Dim I%For I=0 To Screen.FontCount-1 根据字体数List1.A

29、ddItem Screen.Fonts(I)把每一种屏幕字体放进列表框Next I Combo1.AddItem 常规 Combo1.AddItem 倾斜 Combo1.AddItem 加粗 Combo1.AddItem 加粗倾斜 Option1(0).Value=True End Sub Private Sub HScroll1_Change(Index As Integer)Label3.ForeColor=RGB(HScroll1(0).Value,HScroll1(1).Value,HScroll1(2).Value)End Sub Private Sub HScroll2_Chang

30、e(Index As Integer)Label3.BackColor=RGB(HScroll2(0).Value,HScroll2(1).Value,HScroll2(2).Value)End Sub Private Sub List1_Click()单击列表框Label3.FontName=List1.Text 将在列表框中选择的字体设为文本框字体End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case0 Label3.FontSize=10 Case1 Label3.FontSize=20 Case

31、2 Label3.FontSize=30 Case4 Label3.FontSize=40 End Select End Sub 运行效果：项目六图形设计一、实训目的与要求1学会简单的图形对象绘制及属性设置；2学会使用直线控件和Shape控件绘制图形；3学会控件数组的运用，学会添加控件数组的方法；4掌握常见绘图方法。5了解交互式绘制的基本原理。二、实训设备与器材计算机、Visual Basic 6.0 软件三、实训组织与实施地点：电子阅览室四、实训内容例题 9.7：设计一个简单的秒表。控件名称及属性值控件名称属性及属性值说明Picture1 Width=2600,Height=2500 Sha

32、pe1 Shape=3,Width=2600,Height=2400 作为时钟的表面，呈圆形Line1 BorderWidth=2,BorderColo=vbRedr 作为时钟的秒针Label1label4 4 个 Caption 分别为 0，15，30和 45 作为时钟的数字指示Command1 Caption=“开始”作为启动定时器的按钮Command2 Caption=“停止”作为停止定时器的按钮Timer1 Interval=1000，Enabled=False 界面设计：代码显示：Dim arph 用 arph表示秒针旋转角度（用弧度表示）Private Sub Form_Load(

33、)Timer1.Interval=1000 Timer1.Enabled=False Picture1.Scale(-1,1)-(1,-1)定义 Picture1的坐标系，原点在 Picture1的中心位置Line1.X1=0:Line1.Y1=0 将秒针的起始点移到原点Line1.X2=0:Line1.Y2=0.7 将秒针的另一端移到正上方，指向0 Line1.BorderWidth=2 改变指针线条的宽度Line1.BorderColor=vbRead 设计指针的颜色arph=0 旋转角度为 0 End Sub Private Sub Command1_Click()开始按钮事件过程，启动

34、定时器Timer1.Enabled=True End Sub Private Sub Timer1_Timer()每隔 1 秒钟触发一次 Timer 事件arph=arph+3.14159/30 旋转角度增加 6Line1.Y2=0.7*Cos(arph)将秒针的另一端移动到旋转后的位置Line1.X2=0.7*Sin(arph)End Sub Private Sub Command2_Click()停止按钮事件过程Timer1.Enabled=False End Sub 运行效果：实验 6-2：例题 9.10：使用 Circle 方法画出圆、椭圆、圆弧和扇形。在窗体上添加一个 picture

35、1，四个命令按钮界面设计：代码显示：Private Sub Form_Load()Picture1.Scale(0,0)-(2000,1000)End Sub Private Sub Command1_Click()Picture1.Cls Picture1.FillStyle=0 Picture1.FillColor=QBColor(Int(Rnd*15)Picture1.Circle(Int(Rnd*Picture1.ScaleWidth),Int(Rnd*Picture1.ScaleHeight),100 End Sub Private Sub Command2_Click()Pictu

36、re1.Cls Picture1.FillStyle=0 Picture1.FillColor=QBColor(Int(Rnd*15)a=3 Picture1.Circle(100,500),200,a Picture1.Circle(400,500),200,a/2 Picture1.Circle(900,500),200,a/3 Picture1.Circle(1400,500),200,a/4 Picture1.Circle(1900,500),200,a/5 End Sub Private Sub Command3_Click()Picture1.Cls Picture1.DrawWi

37、dth=2 Picture1.ForeColor=QBColor(Int(Rnd*15)a=3:pi=3.14159 Picture1.Circle(400,300),200,pi/2,1.5*pi Picture1.Circle(1000,300),200,pi/2,0 Picture1.Circle(1600,300),200,0,0.5*pi Picture1.Circle(1000,600),200,pi*0.2,1.5*pi Picture1.Circle(1400,500),200,pi*1.2,0.5*pi End Sub Private Sub Command4_Click()

38、Picture1.Cls pi=3.1415926 Picture1.FillStyle=0 Picture1.DrawWidth=2 Picture1.FillColor=vbRed Picture1.Circle(1200,500),300,vbRed,-pi/3,-pi Picture1.FillColor=vbBlue Picture1.Circle(1200,500),300,vbBlue,-pi,-pi*5/3 Picture1.FillColor=vbYellow Picture1.Circle(1200,500),300,vbYellow,-pi*5/3,-pi/3 Pictu

39、re1.FillColor=QBColor(Int(Rnd*15)Picture1.Circle(600,300),300,vblue,-pi,-0.9*pi End Sub 运行效果：实验 6-3：在窗体上添加 Shape 控件和单选按钮 Option1 控件数组界面设计代码显示：Private Sub Form_Load()Dim a(5),i a(0)=矩形 a(1)=正方形 a(2)=椭圆形 a(3)=圆形 a(4)=圆角矩形 a(5)=圆角正方形 Option1(0).Caption=0&:&a(0)For i=1 To 5 创建 option1 的另外 5 个元素Load Option1(i)为新的单选按钮设置位置Option1(i).Top=Option1(i-1).Top+Option1(0).Height+30 设置单选按钮标题Option1(i).Caption=i&:&a(i)Option1(i).Visible=True Next i End Sub Private Sub Option1_Click(Index As Integer)Shape1.Shape=Index End Sub 运行效果：