《程序的设计基础实验报告》由会员分享，可在线阅读，更多相关《程序的设计基础实验报告（32页珍藏版）》请在金锄头文库上搜索。
1、西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3月9 日学生姓名吴沉学号1108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验一图像框、滚动条、计时器项目代码指导教师滕艳琼梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 掌握标签、命令按钮的常用属性、事件和方法。2 掌握运用图片框和图像框加载图像的方法。3 掌握计时器和滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP 编程工具： Visual Basic 6.03、实验容3.1上机实验的容及要求编写动画程序。运行界
2、面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。3.2算法设计思想与算法实现步骤1 界面设计相关属性设置如下：Command1:Caption 为“开始”。Command2: Caption 为“停止” ,Enabled 为 False 。HScroll1:Max 为 1000 , LargeChange 为 200 , SmallChange 为 20。Label1 Label2: Caption分别为“快”和“慢”。Timer1:Enabled为 False 。Image:Stretch 为True , Pictu
3、re 过剪贴板粘贴一幅图象。2. 程序代码设计3. 运行/调试程序4. 保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Comma nd2.E nabled = TrueComma nd1.E nabled = FalseTimer1.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click()Comma nd1.E nabled = TrueComma nd2.E nabled = FalseTimer1.E nabled = FalseEnd SubPrivate Sub HS
4、croll1_Cha nge()Timer1.I nterval = HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()lmage1.Move (Image1 .Left + 1)End Sub3.4程序运行的结果4、实验总结4.1程序运行结果分析及思考题讨论试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。对思考题，我认为还是要把image的move属性学好，再结合计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。4.2实验总结心得体会本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多
5、加强对它的认识 和了解。通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3月9日学生姓名吴沉学号1108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验二 单选按钮、复选按钮、组合框项目代码指导教师滕艳琼梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 掌握标签、文本框、命令按钮的常用属性、事件和方法。2. 掌握单选按钮和复选框、列表框和组
6、合框的编程方法，尤其是单选按钮与框架的配合使用。3巩固对滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统： WINDOWS98/2000/2003/XP 编程工具： Visual Basic 6.03、实验容3.1上机实验的容及要求在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。3.2算法设计思想与算法实现步骤1. 界面设计2. 程序代码设计3 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Combo1_Click（）If Combo1.Listlndex = 0 Then Text1.For
7、eColor = 0If Combo1.ListIndex = 1 Then Text1.ForeColor = vbRedIf Combo1.ListIndex = 2 Then Text1.ForeColor = vbYellowIf Combo1.ListIndex = 3 Then Text1.ForeColor = vbGreenEnd SubPrivate Sub Form_Load（）Combo1. AddItem （ 黑色）Combo1. AddItem （ 红色）Combo1. AddItem （ 黄色）Combo1. AddItem （ 绿色）Combo1.List In
8、dex = 0HScrolH.Min = 8HScrolH.Max = 20Text1.Text = 第一章 vb 概述& vbCrLf & 第二章 程序设计基础& vbCrLf & 第三章 窗体及常用控件& vbCrLf & 第四章 结构化程序设计& vbCrLf & 第五章 数 组& vbCrLf & 第六章 过程End SubPrivate Sub HScroll1_Cha nge（）Text1.Fo ntSize = HScroll1.ValueEnd SubPrivate Sub Optio n1_Click()Textl.Fo ntName = Optio nl.Cap tionE
9、nd SubPrivate Sub Optio n2_Click()Text1.Fo ntName = Optio n2.CaptionEnd Sub3.4程序运行的结果4、实验总结4.1程序运行结果分析及思考题讨论我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为 一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文 的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。4.2实验总结心得体会通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识， 通过font , fo
10、ntsize ，fontcolor 等属性都有了了解。希望在以后的学习中，能学得更好西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008 年3 月16 日学生姓名吴沉学号1108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验三程序的单和双分支结构项目代码指导教师滕艳琼梅项目学分实验课考勤实验工作表现实验报告1、实验目的1. 熟练掌握单分支程序设计的原理和实现方法。2 熟练掌握双分支程序设计的原理和实现方法。3 掌握输入框函数即In putBox()的使用方法。2、实验设备、仪器及材料PC机；操作系统： WINDOWS98/2000/2
11、003/XP 编程工具： Visual Basic 6.03、实验容3.1上机实验的容及要求1、用输入框输入一个数，如果是大于100则在窗体上显示该数据。2、判断数的奇偶性。3.2算法设计思想与算法实现步骤1. 界面设计2. 程序代码设计3. 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()x = Val(InputBox(请任意输入一个整数:)If x 100 Then Picture1.Print xEnd SubPrivate Sub Comma nd2_Click()Text2.Text =y
12、= Val(Textl)If y Mod 2 = 0 The n是偶数是奇数Text2.Text = y & ElseText2.Text = y & End IfEnd Sub3.4程序运行的结果4、实验总结4.1程序运行结果分析及思考题讨论虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型的，不过在前面加上VAL就可以变成数值型了。4.2实验总结心得体会通过这次实验，我学会了inputbox函数的使用，inputbox 这个函数，有时候使得界面很好看，操作 起来也很方便，以后可以多用这个函数实现输入西华大学实验报告（理工类）开课学院及实验室
13、：汽车学院机房（5D-215）实验时间：2008 年3 月16 日学生姓名吴沉学号1108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验四 程序的多分支结构项目代码指导教师滕艳琼梅项目学分实验课考勤实验工作表现实验报告1、实验目的熟练掌握多分支程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XR 编程工具： Visual Basic 6.03、实验容3.1上机实验的容及要求编写程序，计算个人所得税金额。说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用1600元后的余额，为应纳所得额。超额累进税率
14、见下表。级数全月应纳税所得额税税率1不超过500元的5%2超过500元至2000元的部分10%3超过2000元至5000元的部分15%4超过5000元至20000元的部分20%5超过20000元至40000元的部分25%6超过40000元至60000元的部分30%7超过60000元至80000元的部分35%8超过80000元至100000元的部分40%9超过100000元的部分45%3.2算法设计思想与算法实现步骤1. 界面设计2. 程序代码设计3 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()s = Val(Text1) -1600If (s - 100000) 0 Thent = 29625 + (s - 100000) * 0.45Elself (s - 80000) 0 The nt = 21625 + (s - 80000) * 0.4Elself
