文档介绍：实验报告篇一:实验报告综合程序(一)《评分系统》实验教学班号230001-1学号14182030姓名李翔宇专业粮食工程指导教师刘立群实验报告提交时间2015年5月27日(周三班号:230001-1,周四班号:230001-2)一、实验要求:本程序要求设计一个简单的竞赛评分系统,该评分系统可以输入10个评委的分数,并经过计算后显示出选手的最得分。具体要求:程序可找出并显示出最高分和最低分;最后得分应为去掉最高分和最低分后的平均分;最后得分要在第二个窗体中以醒目的方式显示再来。程序运行界面可运行“评分系统”程序,此程序仅供大家作为参考,请不要雷同。在基本功能具备的前提下,大家可自行完善程序功能,界面设计要尽可能做到美观大方,可试着添加背景图片等。二、系统分析与设计三、程序代码各个模块的源程序代码。(宋体五号字)mand1_Click()mand2_click()======TrueMax=Val(Text1(0))Min=Val(Text1(0))Fori=1To9IfVal(Text1(i))MaxThenMax=Val(Text1(i))IfVal(Text1(i))MinThenMin=Val(Text1(i))NextiFori=0To9IfText1(i)=Thenx=MsgBox(裁判没有打分,0+48+0,注意)ExitSubEndIfNextiFori=0To9IfVal(Text1(i))0OrVal(Text1(i))10Thenx=MsgBox(分数不符,0+48+0,注意)Text1(i)=ExitSubEndIfNextiSum=0Fori=0To9Sum=Sum+Val(Text1(i))=Format(Max,)=Format(Min,)=Format((Sum-Max-Min)/8,)mand3_Click()x=MsgBox(是否确认清除,1+32+0,清除)Ifx=1ThenFori=0To9Text1(i)====NextiText1(0).SetFocusEndIfEndSubPrivateSubForm_Load()EndSub四、运行结果系统程序运行的实际窗口图片。提示:抓取程序窗口图片的方法,运行VB程序,当出现窗体时按键盘上的Alt键+PrintScreen键,后,再到Word文档中“粘贴”就可以了。PrintScreen键在键盘最上方最右的一组键位中。各模块的源程序代码,可直接在代码窗口中选定程序段,按Ctrl+C,再到文档中按“粘贴”或Ctrl+V即可。篇二:检测技术实验报告《检测技术实验》实验名称:院(系):姓名:实验室:同组人员:评定成绩:实验报告第一次实验(一、三、五)自动化专业:自动化XXXXXX学号:XXXXXXXX实验组别:实验时间:年月日审阅教师:实验一金属箔式应变