【正文】
實(shí)驗(yàn)報(bào)告篇一:實(shí)驗(yàn)報(bào)告 綜合程序設(shè)計(jì)(一) 《評(píng)分系統(tǒng)》實(shí)驗(yàn)報(bào)告 教學(xué)班號(hào) 2300011 學(xué)號(hào) 14182030 姓名李翔宇 專業(yè) 糧食工程指導(dǎo)教師 劉立群 實(shí)驗(yàn)報(bào)告提交時(shí)間2020年5月27日 (周三班號(hào):2300011,周四班號(hào):2300012) 一、實(shí)驗(yàn)要求: 本程序要求設(shè)計(jì)一個(gè)簡(jiǎn)單的競(jìng)賽評(píng)分系統(tǒng),該評(píng)分系統(tǒng)可以輸入10個(gè)評(píng)委的分?jǐn)?shù),并經(jīng)過計(jì)算后顯示出選手的最得分。 具體要求: 程序可找出并顯示出最高分和最低分; 最后得分應(yīng)為去掉最高分和最低分后的平均分; 最后得分要在第二個(gè)窗體中以醒目的方式顯示再來。 程序運(yùn)行界面可運(yùn)行“評(píng)分系統(tǒng)”程序,此程序僅供大家作為參考,請(qǐng)不要雷同。在基本功能具備的前提下,大家可自行完善程序功能,界面設(shè)計(jì)要盡可能做到美觀大方,可試著添加背景圖片等。 二、系統(tǒng)分析與設(shè)計(jì) 三、程序代碼 各個(gè)模塊的源程序代碼。(宋體五號(hào)字) Private Sub Command1_Click() End End Sub Private Sub mand2_click() = True = True = True = True = True = True Max = Val(Text1(0)) Min = Val(Text1(0)) For i = 1 To 9 If Val(Text1(i)) Max Then Max = Val(Text1(i)) If Val(Text1(i)) For i = 0 To 9 If Text1(i) = ““ Then x = MsgBox(“裁判沒有打分”, 0 + 48 + 0, “注意”)Exit Sub End If Next i For i = 0 To 9 If Val(Text1(i)) 10 Then x = MsgBox(“分?jǐn)?shù)不符”, 0 + 48 + 0, “注意”) Text1(i) = ““Exit Sub End If Next i Sum = 0 For i = 0 To 9 Sum = Sum