实验报告推荐.docxVIP

实验报告 篇一：实验报告 综合程序设计（一） 《评分系统》实验报告  教学班号 230001-1 学号姓名李翔宇 专业 粮食工程指导教师 刘立群 实验报告提交时间2020年5月27日 （周三班号：230001-1，周四班号：230001-2）  一、实验要求：  本程序要求设计一个简单的竞赛评分系统，该评分系统可以输入10个评委的分数，并经过计算后显示出选手的最得分。  具体要求：  程序可找出并显示出最高分和最低分；  最后得分应为去掉最高分和最低分后的平均分； 最后得分要在第二个窗体中以醒目的方式显示再来。  程序运行界面可运行“评分系统”程序，此程序仅供大家作为参考，请不要雷同。在基本功能具备的前提下，大家可自行完善程序功能，界面设计要尽可能做到美观大方，可试着添加背景图片等。  二、系统分析与设计  三、程序代码  各个模块的源程序代码。（宋体五号字） Private Sub Command1_Click() End End Sub  Private Sub command2_click() Label11.Visible = True Label12.Visible = True Label13.Visible = True Label14.Visible = True Label15.Visible = True Label16.Visible = True Max = Val(Text1(0)) Min = Val(Text1(0)) For i = 1 To 9  If Val(Text1(i)) Min Then Min = Val(Text1(i)) Next i  For i = 0 To 9  If Text1(i) = quot;quot; Then  x = MsgBox(quot;裁判没有打分quot;, 0 + 48 + 0, quot;注意quot;)Exit Sub End If Next i  For i = 0 To 9  If Val(Text1(i)) 0 Or Val(Text1(i)) For i = 0 To 9  Sum = Sum + Val(Text1(i)) Next  Label12.Caption = Format(Max, quot;0.00quot;) Label14.Caption = Format(Min, quot;0.00quot;)  Label16.Caption = Format((Sum - Max - Min) / 8, quot;0.00quot;) End Sub Private Sub Command3_Click()  x = MsgBox(quot;是否确认清除quot;, 1 + 32 + 0, quot;清除quot;) If x = 1 Then For i = 0 To 9 Text1(i) = quot;quot;  Label12.Caption = quot;quot; Label14.Caption = quot;quot; Label16.Caption = quot;quot; Next i  Text1(0).SetFocus End If End Sub  Private Sub Form_Load()  End Sub  四、运行结果  系统程序运行的实际窗口图片。  提示：  抓取程序窗口图片的方法，运行VB程序，当出现窗体时按键盘上的Alt键 + Print Screen键，后，再到Word文档中“粘贴”就可以了。Print Screen键在键盘最上方最右的一组键位中。  各模块的源程序代码，可直接在代码窗口中选定程序段，按Ctrl + C，再到文档中按“粘贴”或Ctrl + V即可。 篇二：检测技术实验报告 《检测技术实验》  实验名称：院 （系）：姓 名：实 验 室：同组人员：评定成绩：  实验报告  第一次实验（一、三、五） 自动化专 业：自动化 XXXXXX 学 号： XXXXXXXX 实验组别： 实验时间： 年 月日审阅教师：  实验一 金属箔式应变片――单臂电桥性能实验  一、 实验目的：了解金属箔式应变片的应变效应，单臂电桥工作原理和性能。  二、 实验仪器：应变传感器实验模块、托盘、砝码、数显电压表、±15V、±4V电源、万  用表、导线等。  三、 实验原理：电阻丝在外力作用下发生机械变形时，其电阻值发生变化，这就是电阻应  变效应，描述电阻应变效应的关系式为：ΔR/R=Kε，式中ΔR/R为电阻丝电阻相对变化，K为应变灵敏系数，ε=Δl/l