[填空題] 以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組,然后畫一個名為Text2的文本框和名為Command1的命令按鈕。運行時在文本框
2021-07-20
[填空題] 以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組,然后畫一個名為Text2的文本框和名為Command1的命令按鈕。運行時在文本框數組中輸出7個分數,單擊“計算得分”命令按鈕,
則最后得分顯示在Text2文本框中(去掉一個最高分和一個最低分后的平均分即為最后得分)請將程序補充完整。
Private Sub Command1_click()
Dim k As Integer
Dim sum As Single,max As Single,min As Single
Sum=Text1(0)
max=Text1(0)
min= (7)
For k=1 To 6
If max c Text1(k)Then
max= Text1(k)
End If
If min>Text1(k) Then
min=Text1(k)
End If
sum=sum+Text1(k)
Next k
Text2=(sum-max-min)/5
End Sub
正確答案:text1(0)
參考解析:此空為程序初始化部分,控件數組中最大值、最小值、和都初始化為text1(0)的值。之后的程序已經可以完整地實現(xiàn)題設要求。此題也可以書寫為sum或者max。
詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。