20xx實(shí)驗(yàn)報(bào)告-展示頁
2025-01-12 01:56本頁面
【正文】 過計(jì)算后顯示出選手的最得分。
具體要求：
程序可找出并顯示出最高分和最低分；
最后得分應(yīng)為去掉最高分和最低分后的平均分； 最后得分要在第二個(gè)窗體中以醒目的方式顯示再來。在基本功能具備的前提下，大家可自行完善程序功能，界面設(shè)計(jì)要盡可能做到美觀大方，可試著添加背景圖片等。（宋體五號(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 + Val(Text1(i)) Next
= Format(Max, “”) = Format(Min, “”)
= Format((Sum Max Min) / 8, “”)
End Sub
Private Sub Command3_Click()
x = MsgBox(“是否確認(rèn)清除”, 1 + 32 + 0, “清除”) If x = 1 Then For i = 0 To 9 Text1(i) = ““
= ““ = ““ = ““ Next i
Tex
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1