2020程序设计基础实验报告.docx

西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年3月9 日 学生姓名 吴沉 学号 38 实验成绩 课程名称 程序设计基础 课程代码 8426460 实验项目名称 实验一图像框、滚动条、计时器 项目代码 指导教师 滕艳琼李梅 项目学分 实验课考勤 实验工作表现 实验报告 1、 实验目的 ?掌握标签、命令按钮的常用属性、事件和方法。 ?掌握运用图片框和图像框加载图像的方法。 ?掌握计时器和滚动条的编程方法。 2、 实验设备、仪器及材料 PC 机；操作系统： WINDOWS98/2000/2003/XP;编程工具： Visual Basic 3、 实验内容 上机实验的内容及要求 编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动， “开始”按钮变为不 可用，同时“停止”变为可用；用滚动条来控制运动的速度。 算法设计思想与算法实现步骤 1 ? 界面设计 相关属性设置如下： Command1:Caption 为“开始”。 Command2: Caption 为“停止” , Enabled 为 Falseo HScroll1:Max 为 1000, LargeChange 为 200 , SmallChange 为 20。 Label1 Label2: Caption 分别为“快”和“慢”。 Timer1:Enabled 为 Falseo Image:Stretch为True, Picture中通过剪贴板粘贴一幅图象。 2. 程序代码设计 3． 运行 / 调试程序 4． 保存工程 程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() = True = False = True End Sub Private Sub Command2_Click() = True = False = False End Sub Private Sub HScroll1_Change() End Sub Private Sub Timer1_Timer() + 1) End Sub 程序运行的结果 停止 停止 4、实验总结 程序运行结果分析及思考题讨论 试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。 对思考题，我认为还是要把 image的move属性学好，再结合计时器的使用，问题应该可以迎刃而 解，不过这个过程中仍然少不了及格控件的连动。 实验总结心得体会 本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识 和了解。 通过本次上机实验，基本上熟悉了 vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些 连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用 和了解。 西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215） 实验时间： 2008年3月 9 日 学生姓名 吴沉 学号 38 实验成绩 课程名称 程序设计基础 课程代码 8426460 实验项目名称 实验二 单选按钮、复选按钮、组合框 项目代码 指导教师 滕艳琼李梅 项目学分 实验课考勤 实验工作表现 实验报告 1、 实验目的 ?掌握标签、文本框、命令按钮的常用属性、事件和方法。 掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。 3 ?巩固对滚动条的编程方法。 2、 实验设备、仪器及材料 PC机；操作系统： WINDOWS982000/2003/XP;编程工具： Visual Basic 3、 实验内容 上机实验的内容及要求 在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。 算法设计思想与算法实现步骤 1． 界面设计 2． 程序代码设计 3．运行 / 调试程序 4．保存工程 程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Combo1_Click() If = 0 Then = 0 If = 1 Then = vbRed If = 2 Then = vbYellow If = 3 Then = vbGreen End Sub Private Sub Form_Load（） （黑色） （红色） （黄色） （绿色） = 0 = 20 =第一章 vb概述 vbCrLf 第二章 程序设计基础 vbCrLf 第三章 窗体及常 用控件 vbCrLf 第四章 结构化程序设计 vbCrLf 第五章 数 组 vbCrLf 第六 章 过程 End Sub Private Sub HScroll1_Change() End Sub Private Sub Option1_C