程序设计基础实验报告.docx
《程序设计基础实验报告.docx》由会员分享,可在线阅读,更多相关《程序设计基础实验报告.docx(49页珍藏版)》请在课桌文档上搜索。
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=
11、625+(s-5000)*0.2Elself(s-2023)0Thent=175+(s-2023)*0.15Elself(s-500)0Thent=25+(s-500)*0.1Elselfs0Thent=s*0.05Elset=0EndIfText2=t,Foral4、实验总结4.1 程序运营结果分析及思考题讨论程序运营结果与规定的同样,对于思考题,if的单分支结构一共要写9个!4.2 实验总结心得体会通过本次实验,对程序的多分支结构有了很好的结识!同时实验的同时可以把上次实验的内容好好的更习一下,实现if的行和块的转换!行if和块if是两种不同的运营的方法,在实际运用中我们应根据情况选择更方
12、便的方法。我觉得这个程序尚有改善的地方,就是可以加上一个“退出”按钮。西华大学实验报告(理工类)开课学院及实验室:汽车学院机房(5D-215)实验时间:2023年3月23日学生姓名吴沉学号108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实险五程序的循环结构(系加、连乘)项目代码指导教师膝艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 .巩固奇数和偶数的判断算法程序。2 .纯熟掌握循环结构程序设计的原理和实现方法。2、实验设备、仪器及材料PC机;操作系统:WlNDoWS98/2023/2023/XP;编程工具:VisualBasic6.03、实验内容3.1 上机
13、实验的内容及规定1、编写程序,计算100以内偶数的累加和。2、计算任意正整数n的阶乘。3.2 算法设计思想与算法实现环节1、界面设计Form1累加连乘100以内的偶数和2550120阶乘2、程序代码设计3、运营/调试程序4、保存工程3. 3程序核心代码,程序调试过程中出现的问题及解决方法PrivateSubCommandl_CIick()Fori=2To100Step2NextiTxt1=sEndSubPrivateSubCo11vnand2-CIick0t=1n=Val(Text2)Forj=1Tont=t*jNextjText3=tEndSub程序运营的结果和实验规定大约一致。3.4程序运
14、营的结果4、实验总结4.1 程序运营结果分析及思考题讨论当少了S=O这一句时,运营的结果和实验中的同样,那是由于vb系统赋予s的初值就是0.当阶乘的输入整数是大于12时,系统还是可以运营,并且结果也是对的的。如在text2中输入15时,text3中显示OO这个数。还是可以运营的!4.2 实验总结心得体会通过本次实验的进行,对程序的循环结构有了一定的结识,并且对实验过程中的对累加和累乘程序代码有课初步的印象。对累加和累乘中的一个S=O和1=1的赋值必须不可以忘掉,要不然程序运营的结果会大出所料。故对实验的态度又是一个考验!尚有在剪切的时候居然剪成了全屏,看来不能粗心大意。钻1加I西华大学实验报告
15、(理工类)开课学院及实验室:汽车学院机房(5D-215)实验时间:2023年3月23日学生姓名昊沉学号108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验六程序的循环结构(素数的判断)项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 .巩固分支程序设计的原理和实现方法。2 .巩固双重循环结构程序设计的原理和实现方法。3 .巩固累加的算法。4 .纯熟掌握素数的判断方法。2、实验设备、仪器及材料PC机;操作系统:WINDOWS98/2023/2023/XP;编程工具:VisualBasic6.03、实验内容3.1 上机实验的内容及规定1 .界面设计
16、2 .程序代码设计3 .运营/调试程序4 .保存工程3.2 算法设计思想与算法实现环节第一步:写出查找素数的代码第二步:拟定素数的范围是在1000以内并且是素数中最大的20个可以用一个do.loop循环结构来控制素数的个数第三步:用累加的程序将这20个素数加起来3.3 程序核心代码,程序调试过程中出现的问题及解决方法PrivateSubCommandl_CIick()Dimm%,nti%,t%,k%,x%1.ist1.ClearText1=nForx=1000To1Step-1k=lnt(Sqr(x)Form=2TokIfxModm=0ThenExitForEndIfNextmIfmkThen
17、1.is1.Addltemx:s=s+1Ifs=20ThenExitForNextxFori=0To1.ist1.1.istCount-1t=Val(1.ist1.1.ist(i)n=n+tNextiText1=n3.4 程序运营的结果4、实晚总结4.1 程序运营结果分析及思考题讨论程序运营的结果和实验规定同样。对于找出100O以内的最小的20个素数只需要把for循环的I(X)Oto1step语句换成1to1000就可以找到100O内的20个最小素数。4.2 实验总结心得体会本次实验对素数的查找方法有了一个很好的结识和了解,加强了对for循环的运用。同时对if条件语句的运用有了一个很好的复习!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 基础 实验 报告
链接地址:https://www.desk33.com/p-1390105.html