vb程序设计实训总结报告.doc

安徽机电职业技术学院VB程序设计 课程实训实训汇报系 （部）： 经贸管理学系 班 级： 电商 姓 名： 指导老师： 陈 香 第一学期实训项目一 vb集成开发环境2实训1-13实训1-24实训项目二 创建简单应用程序10实训2-110实训2-212实训2-313实训2-415实训2-516实训项目三 Visual Basic 语言基础17实训3-117实训3-218实训3-319实训3-420实训3-522实训项目四 “科学计数器”设计23实训4-123实训4-227实训项目五 “文本字体”设置29实训5-129实训5-231实训5-333实训5-435实训5-537实训项目六 图形设计40实训6-141实训6-242实训6-344实训6-446实训6-547实训项目一 vb集成开发环境一、 实训目标和要求1、能进行Visual Basic 开启和推出2、培养Visual Basic集成开发环境简单应用二、实训内容实训1-1 练习vb6.0开启和退出（1） 开启（2） 退出 单击vb主窗口右上角按钮 选择“文件”菜单中“退出”命令 按快捷键Alt+Q实训1-2 熟悉集成开发环境窗口（1）主窗口（2）窗体设计器窗口拖动窗体设计窗口，改变其位置拖动窗体设计窗口边框，改变其大小拖动窗体设计窗口最小化按钮，将其缩成图标双击窗体设计窗口控制菜单图标，恢复其原来大小（3）属性窗口 （4）工程资源管理器窗口（5）代码窗口（6）、工具箱窗口（7）、其它窗口立即窗口窗体布局窗口思索题1、具体叙述VB6.0各个窗口关键作用（1）、主窗口：由标题栏、菜单栏和工具栏组成（2）、窗体窗口：是VB应用程序关键组成部分，是应用程序最终面向用户窗口，应用程序运行结果最终在窗体中表现。（3）、属性窗口：设计窗体和窗体中控件属性（4）、工程资源管理器窗口：以树形结构方法列出目前工程中全部文件（5）、代码窗口：编写代码（6）、工具箱窗口：工具箱由多种图标组成，利用这些工具图标，用户能够在窗体上设计多种控件（7）、其它窗口：包含立即窗口和窗体布局窗口，立即窗口是为调试应用程序提供，窗体布局窗口用于指定程序运行时窗体相对于显示器幕初始位置和窗体之间相对位置。2、任意举一个例子来说明VB应用程序开发具体步骤（1）、建立可视用户界面对象（2）、编写事件驱动代码Private Sub Command1_Click()Text1.Text = 我爱vbEnd SubPrivate Sub Command2_Click()Text1.Text = End Sub（3）、运行和调试实训项目二 创建简单应用程序一、实训目标和要求1、Visual Basic 对象属性、方法和时间作用2、练习Visual Basic程序开发通常步骤操作3、培养编写简单应用程序二、实训内容实训2-1 设计一个窗体，在窗体上添加一个【确定】命令按钮，运行程序时，单击确定按钮，在窗体上显示“你单击了命令按钮”，若单击窗体，在窗体上显示“你单击了窗体”，运行结果以下图所表示1、设计思绪：添加一个命令按钮，两个标签并设置其属性2、页面设置 3、编写代码Private Sub Command1_Click()Print 你单击了命令按钮End SubPrivate Sub Form_Click()Print 你单击了窗体End Sub4、运行结果实训2-2使用循环语句在窗体上输出由“*”组成简单图形，运行效果以下图所表示1、页面设置2、编写代码Private Sub Form_Click() Dim n As Integer, i%, j% Cls n = Val(Text1.Text) For i = 1 To n Print Tab(20); For j = 1 To i Print *; Next j Print Next iEnd Sub3、运行结果实训2-3 编写程序，输入年份，判定其是否为闰年，并写出具体设计步骤（1）分析：设N为年份，N为闰年条件是：能被4整除但不能被100整除；或能被400整除，写出闰年N用VB表示式。（2）具体思绪：建立两个文本框TextBox和一个命令按钮(CommandButton)，在Text中输入任十二个月份，点击命令按钮，则在Text2中则会显示：“是闰年”或“不是闰年”（3）页面设置：（4）编写代码Private Sub Command1_Click()Dim n As Daten = Text1.TextIf n Mod 4 = o And n Mod 100 0 Or n Mod 400 = 0 ThenText2.Text = 是闰年ElseText2.Text = 不是闰年End IfEnd Sub（5）运行结果实训2-4 处理“白鸡百钱”问题。“鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一；百钱买买白鸡，问鸡翁、鸡母、鸡雏各几何？”编写程序，给出结果。1、设计思绪：设x、y、z分别表示鸡翁、鸡母、鸡雏数目，依据题意，100钱最多买鸡翁20只、买鸡母33只鸡雏数为100鸡翁数鸡母数。写出计算鸡数量判定式为：2、编写代码：Private Sub Form_Click()Dim x, y, z As IntegerFor x = 1 To 20For y = 1 To 33 z = 100 - x - y If (x + y + z = 100) And (5 * x + 3 * y + z / 3 = 100) Then Print 公鸡，母鸡，小鸡数目分别: Print x, y, z End If Next y Next xEnd Sub3、运行结果实训2-5 编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙VB世界！”，运行效果和属性设置分别见下图所表示，并写出具体设计步骤。1、设置页面，添加一个标签和Timer并设置属性2、编写程序代码 Private Sub Timer1_Timer()Label1.Move Label1.Left - 20If Label1.Left + Label1.Width = 0 ThenLabel1.Left = Form1.WidthEnd IfEnd Sub3、运行结果实训项目三 Visual Basic 语言基础一、实训目标和要求1、掌握VB中基础数据类型和常见内部函数使用2、正确使用VB运算符合表示式在编程中应用3、熟悉常见输入和输出方法利用二、实训内容实训3-1 编写一个程序，程序运行后单击窗体，则会在窗体上显示目前日期和时间，具体界面以下图所表示。1、编写程序代码Private Sub Form_Click() t = Now Print Format(t, 今天是: & dddddd & hh:mm:ss)End Sub2、运行结果实训3-2 编写一个程序，在程序中使用数值格式符，当程序运行后单击窗体，则会在窗体上显示结果以下图所表示1、编写程序代码 Private Sub Form_Click() Dim x As Single x = 1234.5678 Print 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。若用户单击输入框“取消”按钮，则变量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 Strings1 = InputBox(请输入用户姓名)s2 = InputBox(输入后按回车键)s3 = InputBox(或单击确定按钮)guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3, 输入用户姓名, 张玉生)End Sub（4）运行结果显示实训3-4 编写一个购物打折程序！要求：程序运行后当输入购物金额时，自动计算出折后金额！题目自拟，打折规则自拟，并写出具体设计步骤。商场举行庆“十一”购物促销活动，依据购置武平总价格不一样，能够取得不一样优惠条件。其活动以下：（1）总价格在500元一下不享受优惠（2）总价在500元（含500元）以上且小于元者，给10%优惠。（3）总价在元（含元）4000元者，给12%优惠。（4）总价在4000元（含4000元）6000元者，给14%优惠。（5）总价在6000元（含6000元）以上者，给15%优惠。1、页面设置2、编写代码Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Price As SinglePrice = Val(Text1.Text)If KeyAscii = 13 Then Select Case Price Case Is 500 Text2.Text = Price Text3.Text = 0 Case Is Text2.Text = Price * 0.9 Text3.Text = Price * (1 - 0.9) Case Is 4000 Text2.Text = Price * 0.88 Text3.Text = Price * (1 - 0.88) Case Is 6000 Text2.Text = Price * 0.86 Text3.Text = Price * (1 - 0.86) Case Else Text2.Text = Price * 0.85 Text3.Text = Price * (1 - 0.85)End SelectEnd IfEnd Sub3、属性设置Label1Caption=购物总金额Label2Caption=打折后应付金额Label3Caption=用户节省金额Text1Text=“”Text2Text=“”Text3Text=“”4、运行结果实训3-5 编写程序，经过产生对话框输入学生分数，从而判定学生是否及格。方法是：90100分为“优异”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分一下为不及格。1、编写程序代码Private Sub Form_Click()Dim Score As Single Score = InputBox(输入分数) Select Case Score Case 90 To 100 Form1.Print 优异 Case 80 To 89 Form1.Print 良好 Case 70 To 79 Form1.Print 中等 Case 60 To 69 Form1.Print 及格 Case Else Form1.Print 不及格 End SelectEnd Sub2、运行结果实训项目四 “科学计数器”设计一、实训目标和要求1、深入熟悉窗体、命令按钮、标签、文本框是哇属性、时间和方法利用2、学会使用菜单编辑器3、培养VB基础语句使用二、实训内容实训4-1 编写程序，设计一个简易科学计数器，写出具体设计步骤。从键盘上输入每个学生姓名和3门课程考试成绩。计算并输出么个学生总分。1、页面设置2、编写代码Dim a As Single, b As Single, z As Integer, y As IntegerPrivate Sub Command1_Click()Text1.Text = Val(Text1.Text) + Str(1)End SubPrivate Sub Command10_Click()z = 1a = Text1.TextText1.Text = 0End SubPrivate Sub Command11_Click()z = 2a = Text1.TextText1.Text = 0End SubPrivate Sub Command12_Click()z = 3a = Text1.TextText1.Text = 0End SubPrivate Sub Command13_Click()z = 4a = Text1.TextText1.Text = 0End SubPrivate Sub Command14_Click()Text1.Text = Val(Text1.Text) + Str(7)End SubPrivate Sub Command15_Click()Text1.Text = 0a = 0b = 0x = 0y = 0End SubPrivate Sub Command16_Click()Text1.Text = Val(Text1.Text) + Str(4)End SubPrivate Sub Command17_Click()b = Text1.TextIf z = 1 Then Text1.Text = a + bIf z = 2 Then Text1.Text = a - bIf z = 3 Then Text1.Text = a * bIf z = 4 And b 0 Then Text1.Text = a / bIf 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 Command18_Click()Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)If Len(Text1.Text) 1 ThenText1.Text = 0End IfEnd SubPrivate Sub Command19_Click()z = 6a = Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text = Val(Text1.Text) + Str(2)End SubPrivate Sub Command20_Click()z = 7a = Text1.TextEnd SubPrivate Sub Command21_Click()z = 8a = Text1.TextEnd SubPrivate Sub Command3_Click()Text1.Text = Val(Text1.Text) + Str(5)End SubPrivate Sub Command4_Click()Text1.Text = Val(Text1.Text) + Str(8)End SubPrivate Sub Command5_Click()Text1.Text = Val(Text1.Text) + Str(0)End SubPrivate Sub Command6_Click()Text1.Text = Val(Text1.Text) + Str(3)End SubPrivate Sub Command7_Click()Text1.Text = Val(Text1.Text) + Str(6)End SubPrivate Sub Command8_Click()Text1.Text = Val(Text1.Text) + Str(9)End SubPrivate Sub Command9_Click()Text1.Text = Str(Text1.Text) + .End Sub3、运行结果实训4-2 设计一个类似于Windows操作系统附件中“记事本”功效，写出具体设计步骤。1.设置可视用户界面：2.设置代码属性：标题名称快捷键Visible属性Enable属性文件（&F）MNFILETrueTrue新建（&N）FILENEWCtrl+NTrueTrue打开（&O）FILEOPENCtrl+OTrueTrue保留（&S）FILESAVECTRL+STrueFALSE另保留（&A）FILESAVEASTrueFALSE关闭（&C）FILECOLSETrueFALSE.打印（&p）FILEPRINTCTRL+PTrueFALSE退出（&X）MNEXITTrueTrue编辑（&E）EDITTrueTrue剪切（&U）EITCUTCTRL+XTrueFALSE复制（&C）EDITCOPYCTRL+CTrueFALSE粘贴（&P）EDITPASTECTRL+VTrueFALSE查找和替换（&F）EDITFOUNDTrueFALSE块写文件（&w）EDITWRITECTRL+WTrueFALSE插入文件（&R）EDITREADCTRL+RTrueTrue格式（&S）MNUFTrueTrue字体FONTCTRL+FTrueTrue段落PARAGTrueTrue工具（&T）TOOLTrueTrue.统计TOOL_VIEW复选属性为TRUE工具栏TOOL_BAR复选属性为TRUE状态栏TOOL_STATUTrueTrue选项TOOL_OPTTrueTrue窗口（&W）WIND只能有一个窗口列表菜单排列窗口ARANGETrueTrue重合窗口OVERLAYTrueTrue帮助（&H）HELPTrueTrue帮助专题HELPTOPICCTRL+HTrueTrue相关记事本HELPABOUTTrueTrue3. 运行和调试程序：实训项目五 “文本字体”设置一、实训目标和要求1、熟悉选择类控件和框架属性、事件及方法控件应用2、熟悉列表类控件属性、事件和方法和控件应用3、培养利用所学相关知识Windows字体对话框程序对相关文本文字进行设置二、实训内容实训5-1 完成书本例题7.1，并写出具体步骤1、设计思绪：在窗体上添加1个文本框、3个框架、6个单选按钮和3个复选框，并进行对应属性设置。2、界面设置3、编写程序代码Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.FontName = 黑体 Case 1 Text1.FontName = 宋体 Case 2 Text1.FontName = 幼圆 End Select End SubPrivate 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.FontUnderlineEnd SelectEnd SubPrivate Sub Option2_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize = 18 Case 1 Text1.FontSize = 24 Case 2 Text1.FontSize = 28End SelectEnd Sub属性设置控件名称属性及属性值空间名称属性及属性值Text1VB6.0程序设计基础Frame2Caption=字号Frame1Caption=字体Option1Caption=黑体Frame2Caption=字型Option2Caption=宋体Option3Caption=幼圆Check2Caption=加粗Check1Caption=斜体Check3Caption=下划线Option5Caption=18Option6Caption=24Option7Caption=284、运行结果实训5-2 完成书本例题7.2.并写出具体步骤。1、设计思绪：在上面例7-1中，框架内单选按钮和复选框使用是控件数组。本例将使用一般控件方法。2、界面设置3、编写代码Private Sub Check1_Click() Option6.Enabled = Not Option6.Enabled Option7.Enabled = Not Option7.EnabledEnd SubPrivate Sub Command1_Click() Dim PP As String, NC As String, QT As String Picture1.Cls If Option1 Then 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 = 无线网卡 Else QT = 无线鼠标 End If End If Picture1.Print PP; NC; QTEnd SubPrivate Sub Form_Load() Option6.Enabled = False Option7.Enabled = FalseEnd Sub4、运行结果实训5-3 完成书本例题7.5，并写出具体步骤1、设计思绪：这题是列表框和组合框综合应用。在窗体上添加对应控件并设置其属性。2、界面设置3、编写代码Private Sub Check1_Click() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.EnabledEnd SubPrivate Sub Command1_Click() List1.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 IfEnd SubPrivate Sub Form_Load() Combo1.AddItem 联想 Combo1.AddItem IBM Combo1.AddItem 戴尔 Combo1.AddItem 惠普 Combo1.ListIndex = 0 Combo2.AddItem 50 Combo2.AddItem 80 Combo2.AddItem 100 Combo2.ListIndex = 0 Option1.Enabled = False Option2.Enabled = FalseEnd Sub4、运行结果实训5-4 完成书本例题7.6，并写出具体步骤1、设计思绪：这题需要设计一个调色板程序，利用滚动条作为红、绿、蓝3种基色输入控件，然后将合成颜色作为文本框前景色或背景色。2、界面设置3、编写代码Dim red, green, blue As LongPrivate Sub Command1_Click()Text2.ForeColor = Text1.BackColorEnd SubPrivate Sub Command2_Click()Text2.BackColor = Text1.BackColorEnd SubPrivate Sub HScroll1_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End SubPrivate Sub HScroll2_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End SubPrivate Sub HScroll3_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End Sub4、运行结果实训5-5 编写程序，模拟Windows字体对话框程序对相关文本文字进行设置，能够设置相关文字字体、字形、字号、字效、前景颜色、背景颜色等。1、设计思绪：（1）在窗体上添加一个列表框，来显示多种屏幕字体，供用户选择（2）在窗体上添加一个组合列表框，来显示多种字形，供用户选择（3）创建一个单选按钮控件数组来显示多种字号，供用户选择（4）创建一个复选框控件数组来显示多种效果，供用户选择（5）创建一个滚动条空间数组来显示红、绿、蓝三种基色，经过用户选择三种基色值，再利用RGB函数来调和生成前景色，再创建一个滚动条控件数组来显示红、绿、蓝三种基色，经过用户选择设置三种基色值，用RGB函数来调和生成背景色（6）在窗体上添加一个标签，来显示用户设置后文字效果（7）用七个框架对列表框、组合框、单选按钮控件数组、复选框控件数组、滚动条控件数组、标签等控件进行分组（8）分别对列表框、组合框、单选按钮控件数组、复选框控件数组、滚动条控件数组等控件编写单击事件过程、来具体实现文字效果设置。2、设置界面3、编写代码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 IfEnd SubPrivate Sub Combo1_Click() Select Case Combo1.Text Case 常规 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 SelectEnd SubPrivate Sub Form_Load() Dim I%For I = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(I) Next I Combo1.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(1).Value, HScroll1(2).Value)End SubPrivate Sub HScroll2_Change(Index As Integer) Label3.BackColor = RGB(HScroll2(0).Value, HScroll2(1).Value, HScroll2(2).Value)End SubPrivate Sub List1_Click()Label3.FontName = List1.TextEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case IndexCase 0 Label3.FontSize = 10Case 1 Label3.FontSize = 20Case 2 Label3.FontSize = 30Case 3 Label3.