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.FontSize = 40End SelectEnd Sub4、属性设立