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

《程序设计基础实验报告.docx》由会员分享，可在线阅读，更多相关《程序设计基础实验报告.docx（50页珍藏版）》请在优知文库上搜索。

1、牯1始西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2023年3月9日学生姓名昊沉学号108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验一图像框、滚动条、计时器项目代码指导教师膝艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 .掌握标签、命令按钮的常用属性、事件和方法。2 .掌握运用图片框和图像框加载图像的方法。3 .掌握计时器和滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统：WlNDOWS98/2023/2023/XP；编程工具:VisualBasic6.03、实验内容3.1 上机实验的内容及规定编写动画程序

2、。运营界面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。3.2 算法设计思想与算法实现环节1. 界面设计相关属性设立如下：Command1:Caption为开始二Command2:Caption为停止，Enabled为FalseoHScrolIl:Max为1000,1.argeChange为200,SmallChange为20。1.abeIl1.abel2:CaPtiOn分别为“快”和“慢二TimerkEnabIed为FalseoImageiStretch为TrUe,PiCtUre中通过剪贴板粘贴一幅图象。2. 程序代

3、码设计3. 运营/调试程序4. 保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法PrivateSubConlnand1.CIiCk()Co11nand2.EnabIed=TrueCo11and1.EnabIed=FalseTimr1.Enabled=TrueEndSubPrivateSubCommand2_CIick()Command1.EnabIed=TrueCommand2.Enabled=FalseTimer1.Enabled=FalseEndSubPrivateSubHScroII1-Change0Timr1.Interval=HScro111.VaIueEndSubP

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

5、。在此后的学习和实验过程中要加强对它们的应用和了解。1.J3S_1_西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5A215）实验时间：2023年3月9日学生姓名吴沉学号108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验二单选按钮、复逸按钮、组合框项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 .掌握标签、文本框、命令按钮的常用属性、事件和方法。2 .掌握单选按钮和复选框、列表框和组合框的编程方法，特别是单选按钮与框架的配合使用。3 .巩固对滚动条的编程方法。2、实验设备、仪器及材料PC机;操作系统：WlNDOWS98/2023

6、/2023/XP；编程工具：VisualBasic6.03、实验内容3.1 上机实验的内容及规定在文本框中输出一段文字，设立文字的字体、字型、字号和颜色，程序运营界面如图所示。3.2 算法设计思想与算法实现环节1 .界面设计2 .程序代码设计3 .运营/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法PrivateSubCombo1_CIickIfCombo1.1.istindex=0ThenTxt1.ForeCoIor=0IfCombo1.1.istlnde=1ThenText1.ForeCoIor=vbRedIfCombo1.1.istlndex=2ThenTx

7、t1.ForeCoIor=vbYe11owIfCo100ThenPictur1.PrintxEndSubPrivateSubCommand2-CIick0Text2.Text=”y=Val(Text1)IfyMod2=0ThenText2.Text=y&”是偶数”ElseText2.Text=y&”是奇数”EndIfEndSub3.4 程序运营的结果4、实验总结4.1程序运营结果分析及思考题讨论虽然实验的界面和实验规定的界面不同，但运营的结果是同样的。TeXt和inputbox的返回都是字符型的，但是在前面加上VA1.就可以变成数值型了。通过这次实验，我学会了inputbox函数的使用，inp

8、utbox这个函数，有时候使得界面很好看，操作起来也很方便，以后可以多用这个函数实现输入1目西华大学实验报告(理工类)开课学院及实验室：汽车学院机房(5D-215)实验时间：2023年3月16日学生姓名吴沉学号108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验四程序的多分支结构项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告3实验目的纯熟掌握多分支程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统：WIND0WS98/2023/2023/XP；编程工具:VisualBasic6.03、实验内容3.1 上机实验的内容及规定编写程序，计算个人所

9、得税金额。说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用1600元后的余额，为应纳所得额。超额累进税率见下表。级数全月应纳税所得额税税率1不超过500元的5%2超过500元至2023元的部分10%3超过2023元至5000元的部分15%4超过5000元至20230元的部分20%5超过20230元至40000元的部分25%6超过40000元至60000元的部分30%7超过60000元至80000元的部分35%8超过80000元至100oOO元的部分40%9超过100000元的部分45%3.2 算法设计思想与算法实现环节1 .界面设计2 .程序代码设计3 .运营/调试程序4

10、.保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法PrivateSubCommandl_CIick()s=Val(TextI)-1600If(s-100000)0Thent=29625+(s-100000)*0.45Elself(s-80000)0Thent=21625+(s-80000)*0.4Elself(s-60000)0Thent=14625+(s-60000)*0.35Elself(s-40000)0Thent=8625+(s-40000)*0.3Elself(s-20230)0Thent=3625+(s-20230)*0.25Elself(s-5000)0Thent=625+(s-5000)*0.2Elself(s-2023)0Thent=175+(s-