《VB 程序设计》课程实训报告书.docx

1、 Visual Basi程c序设计实训报告摘 要Visual Basic 一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大学会综合运用 VB 有关的控件、函数和对象的知识，掌握各种控件和对象在系统开发中的实际应用。想要真正学好它需要花功夫努力去学习、探索。为此，老师为我们安排了为期两周的实训，希望我们将所学的理论知识付诸实践。通过这次实训不仅增加了自身能力的锻炼而且提高了专业知识。我们在这两周的任务主要是在完成老师布置的任务基础上，对自己感兴趣的项目进行深化。我们的任务主要工作是对所学的熟练掌握V

2、B 的菜单设计、工具栏设计、状态栏、多文档界面、ActiveX 控件、文件存取、错误处理、帮助信息等方面的知识及相应程序设计方法， 了解利用VB 进行软件开发和系统设计的基本过程，训练和提高我们VB 软件开发的基本技能。在学会运用VB 进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。在这两个星期的实训里，我根据所学知识认真老师布置的任务，为的是提高自己的动手操作能力。希望在以后的学习和工作中能更加出色的完成学习以及工作任务。关键字： 控件 对象 窗体- 1 - Visual Basic 程序设计实训报告目录实训项目一 Visual Basic

3、 集成开发环境. - 3 -实训项目二创建简单的应用程序 . - 11 -实训项目三 Visual Basic 语言基础 . - 17 -实训项目四“科学计数器”设计 . - 22 -实训项目五“文本字体”设置 . - 27 -实训项目六图形设计 . - 39 - 44 -实训项目一 Visual Basic 集成开发环境一、实训目的1、能熟练进行Visual Basic 的启动与退出；2、培养Visual Basic 的集成开发环境的简单运用。二、实训内容实训1-1练习 VB 的启动与退出(1) 启动启动 Visual Basic6.0 后,出现如下图所示的新建工程对话框选择新建选项卡中的标

4、准 EXE,单击打开按钮后,就可创建一个新的 VisualBasic工程，如下图所示（2）退出1 单击下图 VB 主窗口右上角的关闭按钮2 选择文件菜单中的退出命令3 按下快捷键 Alt+Q实训1-2熟悉集成开发环境的窗口（1） 主窗口由标题栏，菜单栏和工具栏组成（2） 窗口设计器窗口操作练习：1 拖动窗体设计窗口，改变其位置2 拖动窗体设计窗口边框，改变其大小3 拖动窗体设计窗口的最小化按钮，将其缩成图标，双击窗体设计窗体控制菜单图标，恢复其原来大小（3） 属性窗口属性窗口位于主窗口右侧，所有窗体或控件的属性，如颜色，字体，大小，等都可以通过属性窗口设置以及修改操作练习：1 单击窗体设计窗口

5、，此时属性窗口显示了当前 Form1 的所有属性2 选中 Caption 属性,将 Form1 改为窗体练习,此时窗体变为窗体练习(4) 资源管理器窗口操作练习:1 查看代码窗口按钮,显示和编译代码2 查看对象代码按钮,显示窗口上的模块对象(5) 代码窗口代码窗口是专门进行程序设计的窗口，可在其中显示和编辑代码窗口操作练习:（6）工具箱窗口1 选择工程菜单中的部件按钮2 在弹出部件对话框中选择控件选项卡,单击确定按钮,这时工具箱中会出现新的按钮(7)其他窗口1)立即窗口:使用立即窗口可以在中断状态下监视对象属性,变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果.初学者可以在设计时

6、利用立即窗口练习常用函数,语句和表达式的使用.2)窗体布局窗口窗体布局窗口,用于指定程序运行时窗体的初始位置,在窗体布局窗口中有一个模拟显示器,在它的屏幕上直观地显示了本程序中各窗体在实际显示器屏幕中的位置和大小思考题: 1 详细叙述 VB6.0 各个窗口的主要作用窗体窗口的作用:窗体窗口简称窗体.是VB 应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。属性窗口:在VB 中,窗体和控件被称为对象,每个对象都可以用一组属性来描述其特征,如大小,字体和颜色等,属性窗口就是用来设置窗体和窗体中的控件属性的. 工程资源管理器窗口：工程资源管理器窗口中的文件可以

7、分为 6 类，即窗体文件、程序模块文件、类模块文件、工程文件、工程组文件和资源文件。工程资源管理器窗口标题栏的下方有 3 个快捷按钮，分别是查看代码、查看对象和切换文件夹。代码窗口：专门用来显示和编辑代码，每个窗体都有一个代码窗口。工具箱窗口：工具箱由各种图标组成，这些图标称为对象或控件，利用这些工具图标，用户就可以在窗体上设计各种控件。立即窗口：立即窗口是为了调试应用程序提供的。窗体布局窗口：窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。2 任意举出一个例子来说明 VB 应用程序开发的详细步骤一界面设计二属性设计三代码设计五保存四运行调试实训心得实训项目一

8、结束了,在实训中重温了 VB 的特点和作用,简单直接介绍了 VB 的启动和退出的几种方法。 VisualBasic 是基于asic 的可视化程序设计语言，它继承了 Basic 语言简单易懂的特点，采用面相对对象、事件驱动的编程机制，提供了直观的可视化程序设计方法。VisualBasic 是目前面向对象开发的主要语言之一，是最简单、最容易使用的语言，因此它是初学者学习可视化编程语言的最佳选择。在以 Windows 操作系统为平台的众多可视化编程工具中，VisualBasic 具有易用性、通用性和开发效率高等特点，这使得 VisualBasic 特别适合于一般应用程序的开发，成为最流行的 Wind

9、ows 应用程序开发语言。VisualBasic6.0 现有三种版本：学习版、专业版和企业版通过这次实训熟练掌握最基本的 VB 简单设计和各个窗体的作用,工具箱的使用及窗体的属性设计,窗体的合理布局。实训项目二创建简单的应用程序一、实训目的和要求1. Visual Basic 对象的属性、方法和事件运用；2. 练习 Visual Basic 程序开发的一般步骤操作；3. 培养编写简单的应用程序。二、实训内容实训 2-1 设计一个窗体，在窗体上添加一个确定命令按钮。运行程序时，单击确定按钮，在窗体上显示“你单击了命令按钮”。若单击窗体，在窗体上显示“你单击了窗体” 界面设计二属性设计三代码设计四

10、运行调试五保存实训 2-2 使用循环语句在窗体上输出有“*”组成的简单图形一、设计界面二属性设计三 代码编辑Private Sub Form_Click() Dim n As Integer, i%, j% Cls “清屏”n = Val(Text1.Text) For i = 1 To nPrint Tab(20): For j = 1 To I Print *: Next jPrint Next i End Sub四运行调试五保存实训 2-3 编写程序，输入年份，判断其是否为闰年一、设计界面二属性设计Text1Text=“” Text2Text=“”Command1 Caption=“测算

11、”三代码设计Private Sub Command1_Click()Dim n As Date n = Text1.TextIf n Mod 4 = o And n Mod 100 0 Or n Mod 400 = 0 Then Text2.Text = 是闰年ElseText2.Text = 不是闰年 End IfEnd Sub四运行调试5 保存实训 2-4解决“百鸡百钱”问题。鸡翁一，值钱五，鸡母一，值钱三。鸡雏三。值钱一，百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？计算鸡数量的判定式：x+y+z=100 and 5x+3y+z/3=100 1、设计界面2、本题不需要添加控件3、编写代码Priv

12、ate Sub Form_Click() Dim x, y, z As Integer For x = 1 To 20For y = 1 To 33 z = 100 - x - yIf (x + y + z) = 100 And (5 * x + 3 * y + z / 3) = 100 Then Print 公鸡; x, 母鸡; y, 小鸡; zEnd If Next y Next x End Sub4 运行调试5 保存实验 2-5编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙的 VB 世界！”，运行效果和属性设置如下图1、 设计界面2 控件属性设计对象名称属性属性值For

13、m1Timer1名称Caption Backcolor Windowstate EnabledIntervalForm1我的第一个程序H00FFC0C0 0Ture100LableCaption Backstyle Autosize FontForecolor欢迎进入奇妙的 VB 世界0Ture隶书、粗体、四号H008080FF3、编写代码Private Sub Timer1_Timer() Label1.Move Label1.Left - 20 判断是否到达窗体左边缘If Label1.Left + Label1.Width = 0 Then Label1.Left = Form1.Wid

14、thEnd IfEnd Sub4、运行调试5 保存实训项目三 Visual Basic 语言基础一、实训目的与要求1、掌握 VB 中基本数据类型和常用内部函数的使用2、正确使用 VB 的运算符合表达式在编程中的应3、熟悉常用的输入和输出方法的运用二、实训内容实训 3-1编写一个程序，程序运行后单击窗体，则会在窗体上显示当前的日期和时间，具体界面如下图所示。1、编写程序代码 Private Sub Form_Click() t = NowPrint Format(t, 今天是: & dddddd & hh:mm:ss) End Sub2、运行结果实训 3-2编写一个程序，在程序中使用数值格式符，

15、当程序运行后单击窗体， 则会在窗体上显示结果如下图所示1、编写程序代码Private Sub Form_Click()Dim x As Single x = 1234.5678Print Format(x, #.#) Print Format(x, 000000.0000) Print Format(x, #%)Print Format(x, +#,#.#$) Print Format(x, #.#E+) Print Format(x, #.#美金) End Sub2、运行结果实训 3-3 编写一个程序，具体为当用户输入客户姓名后，单击输入框的“确定”按钮所输入内容赋值给变量 guest。若用

16、户单击输入框的“取消”按钮，则变量guest 的值为空。要求：使用 InputBox 函数输入客户姓名。（1）界面设计。在窗体上画出 1 个文本框、2 个命令按钮(2) 属性设计控件名称属性名属性值Command1Caption“确定”Command2Caption“取消”Text1text“”(3) 编写代码Private Sub Form_Click()Dim sl As String, s2 As String, s3 As String, guest As String s1 = InputBox(请输入客户姓名)s2 = InputBox(输入后按回车键)s3 = InputBox(

17、或单击确定按钮)guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3, 输入客户姓名, 贾莹芳)End Sub（4） 运行结果实训 3-4 编写一个购物打折程序！要求：程序运行后当输入购物金额时，自动计出折后金额！题目自拟，打折规则自拟，并写出详细的设计步骤。商场举办庆“十一”购物促销活动，根据购买武平总价格的不同，可以得不同的优惠条件。其活动如下：（1） 总价格在 500 元一下不享受优惠（2） 总价在 500 元（含 500 元）以上且小于 2000 元者，给予 10%的优惠。（3）总价在 2000 元（含 2000 元）4000 元者，给予

18、12%的优惠。（4）总价在 4000 元（含 4000 元）6000 元者，给予 14%的优惠。（5）总价在 6000 元（含 6000 元）以上者，给予 15%的优惠。（1）页面设计（2） 属性设计（3） 编写代码Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Price As SinglePrice = Val(Text1.Text) If KeyAscii = 13 Then Select Case PriceCase Is 500 Text2.Text = Price Text3.Text = 0 Case Is 2000Text

19、2.Text = Price * 0.9 Text3.Text = Price * (1 - 0.9) Case Is 4000Text2.Text = Price * 0.88 Text3.Text = Price * (1 - 0.88) Case Is 6000Text2.Text = Price * 0.86 Text3.Text = Price * (1 - 0.86) Case ElseText2.Text = Price * 0.85 Text3.Text = Price * (1 - 0.85) End SelectEnd If End Sub（5） 运行结果实训 3-5 编写

20、程序，通过产生的对话框输入学生的分数，从而判断学生是否及格方法是：90100 分为“优秀”，8089 分为“良好”，7079 分为 “中等”，6069 分为“及格”，60 分一下为不及格。1、编写程序代码 Private Sub Form_Click() Dim Score As SingleScore = InputBox(输入分数) Select Case ScoreCase 90 To 100 Form1.Print 优秀 Case 80 To 89 Form1.Print 良好 Case 70 To 79 Form1.Print 中等 Case 60 To 69 Form1.Print

21、 及格 Case Else Form1.Print 不及格 End SelectEnd Sub（2）运行结果实训项目四“科学计数器”设计一、实训目的与要求1、进一步熟悉窗体、命令按钮、标签、文本框是哇属性、时间和方法运用2、学会使用菜单编辑器3、培养 VB 基本语句的使用二、实训内容实训 4-1编写程序，设计一个简易的科学计数器，写出详细的设计步骤。1、页面设置2 代码设计Dim a As Single, b As Single, z As Integer, y As Integer Private Sub Command1_Click()z = 7a = Text1.Text End Sub

22、Private Sub Command10_Click() Text1.Text = Val(Text1.Text) + Str(4) End SubPrivate Sub Command11_Click() Text1.Text = Val(Text1.Text) + Str(5) End SubPrivate Sub Command12_Click() Text1.Text = Val(Text1.Text) + Str(6) End SubPrivate Sub Command13_Click() z = 2a = Text1.Text Text1.Text = 0 End SubPri

23、vate Sub Command14_Click() Text1.Text = Val(Text1.Text) + Str(7) End SubPrivate Sub Command15_Click()Text1.Text = Val(Text1.Text) + Str(8) End SubPrivate Sub Command16_Click() Text1.Text = Val(Text1.Text) + Str(9) End SubPrivate Sub Command17_Click() z = 3a = Text1.Text Text1.Text = 0 End SubPrivate

24、 Sub Command18_Click() Text1.Text = Str(Text1.Text) + . End SubPrivate Sub Command19_Click() Text1.Text = Val(Text1.Text) + Str(0) End SubPrivate Sub Command2_Click() z = 6a = Text1.Text End SubPrivate Sub Command20_Click() b = Text1.TextIf z = 1 Then Text1.Text = a + b If z = 2 Then Text1.Text = a

25、- b If z = 3 Then Text1.Text = a * bIf z = 4 And b 0 Then Text1.Text = a / b If z = 6 Then Text1.Text = Sin(a)If z = 7 Then Text1.Text = Tan(a) If z = 8 Then Text1.Text = Cos(a)If z = 9 Then Text1.Text = Hex(Text1.Text)End SubPrivate Sub Command21_Click() z = 4a = Text1.Text Text1.Text = 0 End SubPr

26、ivate Sub Command3_Click() z = 6a = Text1.Text End SubPrivate Sub Command5_Click()Text1.Text = 0a = 0b = 0x = 0y = 0 End SubPrivate Sub Command6_Click() Text1.Text = Val(Text1.Text) + Str(1) End SubPrivate Sub Command7_Click() Text1.Text = Val(Text1.Text) + Str(2) End SubPrivate Sub Command8_Click()

27、 Text1.Text = Val(Text1.Text) + Str(3) End SubPrivate Sub Command9_Click() z = 1a = Text1.Text Text1.Text = 0End Sub3 运行调试实训 4-2 设计一个类似于 windows 操作系统一界面设计二 属性设计标题名称快捷键Visible 属性Enable 属性文件（&F）新建（&N）MNFILEFILENEWCtrl+NTrueTrueTrueTrue打开（&O）FILEOPENCtrl+OTrueTrue保存（&S）FILESAVECTRL+STrueFALSE另保存（&A）FIL

28、ESAVEASTrueFALSE关闭（&C）FILECOLSETrueFALSE.打印（&p）FILEPRINTCTRL+PTrueFALSE退出（&X）MNEXITTrueTrue编辑（&E）剪切（&U）EDITEITCUTCTRL+XTrueTrueTrueFALSE复制（&C）EDITCOPYCTRL+CTrueFALSE粘贴（&P）EDITPASTECTRL+VTrueFALSE 查找与替换（&F） 块 写 文 件EDITFOUNDEDITWRITECTRL+WTrueTrueFALSEFALSE（&w） 插 入 文件EDITREADCTRL+RTrueTrue（&R）格式（&S）MN

29、UFTrueTrue字体FONTCTRL+FTrueTrue段落PARAGTrueTrue工具（&T）TOOLTrueTrue.统计TOOL_VIEW复选属性为TRUE工具栏状态栏TOOL_BARTOOL_STATU复选属性为TRUETrueTrue选项窗口（&W）TOOL_OPTWIND只能有一个窗口列表菜单TrueTrue排列窗口重叠窗口帮助（&H）ARANGE OVERLAYHELPTrue TrueTrueTrue TrueTrue帮助主题关于记事本HELPTOPICHELPABOUTCTRL+HTrueTrueTrueTrue三 运行实训项目五“文本字体”设置一、实训目的与要求1、熟

30、悉选择类控件与框架的属性、事件及方法控件的应用2、熟悉列表类控件的属性、事件和方法以及控件的应用3、培养运用所学相关知识 Windows 字体对话框程序对相关文本文字进行设置一界面设计二 代码设计Rem 字体设计过程代码Private Sub Option1_click(Index As Integer) Select Case IndexCase 0Text1.FontName = 黑体 Case 1Text1.FontName = 宋体 Case 2Text1.FontName = 幼圆 End SelectEnd SubRem 字型设计过程代码Private Sub Check1_Cli

31、ck(Index As Integer) Select Case IndexCase 0Text1.FontItalic = Not Text1.FontItalic复选框具有开关的效果Case 1Text1.FontBold = Not Text1.FontBold Case 2Text1.FontUnderline = Not Text1.FontUnderline End SelectEnd SubRem 字号设计过程代码Private Sub Option2_Click(Index As Integer) Select Case IndexCase 0Text1.FontSize =

32、18Case 1Text1.FontSize = 24Case 2Text1.FontSize = 28 End SelectLabel3Caption=文本字体设置效果End Sub四 属性设置控件名称属性及属性值控件名称属性及属性值Frame1Caption=字体Option1（1）Caption=20 号字Frame2Caption=字形Option1（2）Caption=30 号字Frame3Caption=字号Option1（3）Caption=40 号字Frame4Caption=效果Check1(0)Caption=下划线List1List=“ ”Check1(1)Caption

33、=删除线Combol1Combol=“ ”Frame5Caption=字体颜色Option1(0)Caption=10 号字Frame6Caption=背景颜色Label1(0)Caption=红色值Label2(1)Caption=绿色值Label1(1)Caption=绿色值Label2(2)Caption=蓝色值Label1(2)Caption=蓝色值HScroll1(1)Index=1Label2(0)Caption=红色值HScroll1(2)Index=2HScroll1(3)Index=0HScroll2(0)Index=0HScroll2(1)Index=1HScroll2(2

34、)Index=2实训 5-2完成课本例题 7.2 并写出详细步骤。五运行1、设计思路：在上面的例 7-1 中，框架内的单选按钮和复选框使用的是控件数组。本例将使用普通控件的方式。2、界面设置二代码设计Private Sub Check1_Click() Option6.Enabled = Not Option6.EnabledOption7.Enabled = Not Option7.Enabled End SubPrivate Sub Command1_Click()Dim PP As String, NC As String, QT As String Picture1.ClsIf Opt

35、ion1 Then PP = 方正ElseIf Option2.Value = True Then PP = 联想ElsePP = 惠普End IfIf Option4 Then NC = 1GElseNC = 2GEnd IfIf Check1.Value = 1 Then If Option6 ThenQT = 无线网卡 Else QT = 无线鼠标 End IfEnd IfPicture1.Print PP; NC; QT End SubPrivate Sub Form_Load() Option6.Enabled = False Option7.Enabled = False End

36、Sub三运行实训 5-3 完成课本例题 7.5，并写出详细步骤一、界面设置二代码设计Private Sub Form_Load() Combo1.AddItem 联想 Combo1.AddItem I BM Combo1.AddItem 戴尔 Combo1.AddItem 惠普 Combo1.ListIndex = 0Combo2.AddItem 50Combo2.AddItem 80Combo2.AddItem 100Combo2.ListIndex = 0 Option1.Enabled = False Option2.Enabled = False End SubPrivate Sub

37、Check1_Click() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.Enabled End SubPrivate Sub Command1_Click() List1.ClearList1.AddItem Combo1.Text List1.AddItem Combo2.Text If Check1.Value = 1 ThenIf Option1.Value = True Then List1.AddItem Option1.CaptionEnd IfIf Option2 ThenList1.A

38、ddItem Option2.Caption End IfEnd If End Sub 三运行实训 5-4 完成课本例题 7.6，并写出详细步骤一、界面设置二代码设计Dim red, green, blue As Long Private Sub Command1_Click() Text2.ForeColor = Text1.BackColor End SubPrivate Sub Command2_Click() Text2.BackColor = Text1.BackColor End SubPrivate Sub HScroll1_Change() red = HScroll1.Val

39、uegreen = HScroll2.Value blue = HScroll3.ValueText1.BackColor = RGB(red, green, blue) End SubPrivate Sub HScroll2_Change() red = HScroll1.Valuegreen = HScroll2.Value blue = HScroll3.ValueText1.BackColor = RGB(red, green, blue) End SubPrivate Sub HScroll3_Change()red = HScroll1.Value green = HScroll2

40、.Value blue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End Sub三运行实训 5-5 编写程序，模拟 Windows 字体对话框程序对相关文本文字进行设置， 可以设置相关文字的字体、字形、字号、字效、前景颜色、背景颜色等。一界面设计二代码设计Private Sub Check1_Click(Index As Integer) If Check1(0).Value = 1 ThenLabel3.FontUnderline = True ElseLabel3.FontUnderline = False End IfI

41、f Check1(1).Value = 1 Then Label3.FontStrikethru = TrueElseLabel3.FontStrikethru = False End IfEnd SubPrivate Sub Combo1_Click() Select Case Combo1.TextCase 常规Label3.FontBold = False Label3.FontItalic = FalseCase 倾斜Label3.FontBold = False Label3.FontItalic = TrueCase 加粗Label3.FontBold = True Label3.

42、FontItalic = FalseCase 加粗倾斜Label3.FontBold = True Label3.FontItalic = TrueEnd Select End SubPrivate Sub Form_Load() Dim I%For I = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(I)Next ICombo1.AddItem 常规 Combo1.AddItem 倾斜 Combo1.AddItem 加粗 Combo1.AddItem 加粗倾斜 Option1(0).Value = TrueEnd SubPrivate Sub HScroll1_Change(Index As Integer) Label3.ForeColor=RGB(HScroll1(0).Value,HScroll1(2).Val