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