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

《程序的设计基础实验报告.docx》由会员分享，可在线阅读，更多相关《程序的设计基础实验报告.docx（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、程序的设计基础实验报告 西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215）实验时间： 2022年 3 月 9 日 1、实验目的 1掌握标签、命令按钮的常用属性、事件和方法。 2掌握运用图片框和图像框加载图像的方法。 3掌握计时器和滚动条的编程方法。 2、实验设备、仪器及材料 PC机；操作系统：WINDOWS98/2000/2022/XP；编程工具：Visual Basic 6.0 3、实验容 3.1上机实验的容及要求 编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。 3.2算

2、法设计思想与算法实现步骤 1界面设计 相关属性设置如下： Command1:Caption为“开始”。 Command2: Caption为“停止”，Enabled为False。 HScroll1:Max 为1000，LargeChange 为200 ，SmallChange 为20。 Label1 Label2: Caption分别为“快”和“慢”。 Timer1:Enabled 为False。 Image:Stretch 为True，Picture过剪贴板粘贴一幅图象。 2程序代码设计 3运行/调试程序 4保存工程 3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Su

3、b Command1_Click() Command2.Enabled = True Command1.Enabled = False Timer1.Enabled = True End Sub Private Sub Command2_Click() Command1.Enabled = True Command2.Enabled = False Timer1.Enabled = False End Sub Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value End Sub Private Sub Timer1_Tim

4、er() Image1.Move (Image1.Left + 1) End Sub 3.4 程序运行的结果 4、实验总结 4.1程序运行结果分析及思考题讨论 试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。 对思考题，我认为还是要把image的move属性学好，再结合计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。 4.2实验总结心得体会 本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识和了解。 通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些 连动有了一定的认识。了解

5、了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。 西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215）实验时间： 2022年 3 月 9 日 1、实验目的 1掌握标签、文本框、命令按钮的常用属性、事件和方法。 2掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。 3巩固对滚动条的编程方法。 2、实验设备、仪器及材料 PC机；操作系统：WINDOWS98/2000/2022/XP；编程工具：Visual Basic 6.0 3、实验容 3.1上机实验的容及要求 在文本框中输出一段文字，设置文字的字体、字型、字号和颜色

6、，程序运行界面如图所示。 3.2算法设计思想与算法实现步骤 1界面设计 2程序代码设计 3运行/调试程序 4保存工程 3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Combo1_Click() If Combo1.ListIndex = 0 Then Text1.ForeColor = 0 If Combo1.ListIndex = 1 Then Text1.ForeColor = vbRed If Combo1.ListIndex = 2 Then Text1.ForeColor = vbYellow If Combo1.ListIndex = 3 Then

7、 Text1.ForeColor = vbGreen End Sub Private Sub Form_Load() Combo1.AddItem (黑色) Combo1.AddItem (红色) Combo1.AddItem (黄色) Combo1.AddItem (绿色) Combo1.ListIndex = 0 HScroll1.Min = 8 HScroll1.Max = 20 Text1.Text = 第一章 vb概述 & vbCrLf & 第二章程序设计基础 & vbCrLf & 第三章窗体及常用控件 & vbCrLf & 第四章结构化程序设计 & vbCrLf & 第五章数组 &

8、 vbCrLf & 第六章过程 End Sub Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value End Sub Private Sub Option1_Click() Text1.FontName = Option1.Caption End Sub Private Sub Option2_Click() Text1.FontName = Option2.Caption End Sub 3.4 程序运行的结果 4、实验总结 4.1程序运行结果分析及思考题讨论 我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以

9、通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。 4.2实验总结心得体会 通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识， 通过font，fontsize，fontcolor等属性都有了了解。希望在以后的学习中，能学得更好 西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215）实验时间： 2022年 3 月 16 日 1、实验目的 1. 熟练掌握单分支程序设计的原理和实现方法。 2熟练掌握双分支程序设

10、计的原理和实现方法。 3掌握输入框函数即InputBox()的使用方法。 2、实验设备、仪器及材料 PC机；操作系统：WINDOWS98/2000/2022/XP；编程工具：Visual Basic 6.0 3、实验容 3.1上机实验的容及要求 1、用输入框输入一个数，如果是大于100则在窗体上显示该数据。 2、判断数的奇偶性。 3.2算法设计思想与算法实现步骤 1. 界面设计 2. 程序代码设计 3. 运行/调试程序 4保存工程 3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() x = Val(InputBox(请任意输入一个整

11、数:) If x 100 Then Picture1.Print x End Sub Private Sub Command2_Click() Text2.Text = y = Val(Text1) If y Mod 2 = 0 Then Text2.Text = y & 是偶数 Else Text2.Text = y & 是奇数 End If End Sub 3.4 程序运行的结果 4、实验总结 4.1程序运行结果分析及思考题讨论 虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型 的，不过在前面加上VAL就可以变成数值型了。 4.2实验总结

12、心得体会 通过这次实验，我学会了inputbox函数的使用， inputbox这个函数，有时候使得界面很好看，操作起来也很方便，以后可以多用这个函数实现输入 西华大学实验报告（理工类） 开课学院及实验室：汽车学院机房（5D-215）实验时间： 2022 年 3 月 16 日 1、实验目的 熟练掌握多分支程序设计的原理和实现方法。 2、实验设备、仪器及材料 PC机；操作系统：WINDOWS98/2000/2022/XP；编程工具：Visual Basic 6.0 3、实验容 3.1上机实验的容及要求 编写程序，计算个人所得税金额。 说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除

13、费用1600元后的余额，为应纳所得额。超额累进税率见下表。 3.2算法设计思想与算法实现步骤 1界面设计 2. 程序代码设计 3运行/调试程序 4保存工程 3.3程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() s = Val(Text1) - 1600 If (s - 100000) 0 Then t = 29625 + (s - 100000) * 0.45 ElseIf (s - 80000) 0 Then t = 21625 + (s - 80000) * 0.4 ElseIf (s - 60000) 0 Then t = 14

14、625 + (s - 60000) * 0.35 ElseIf (s - 40000) 0 Then t = 8625 + (s - 40000) * 0.3 ElseIf (s - 20000) 0 Then t = 3625 + (s - 20000) * 0.25 ElseIf (s - 5000) 0 Then t = 625 + (s - 5000) * 0.2 ElseIf (s - 2000) 0 Then t = 175 + (s - 2000) * 0.15 ElseIf (s - 500) 0 Then t = 25 + (s - 500) * 0.1 ElseIf s 0 Then t = s * 0.05 Else t = 0 End If Text2 = t End Sub 3.4 程序运行的结果 4、实验总结 4.1程序运行结果分析及思考题讨论 程序运行结果与要求的一样，对于思考题，if的单分支结构一共要写9个！ 4.2实验总结心得体会 通过本次试验，对程序的多分支结构有了很好的认识！同时实验的同时可以把上次试验的容好好的复习一下，实现if的行和块的转换！行if和块if是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。