[填空題] 以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為T(mén)ext1的文本框數(shù)組,然后畫(huà)一個(gè)名為T(mén)ext2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框
[填空題] 以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為T(mén)ext1的文本框數(shù)組,然后畫(huà)一個(gè)名為T(mén)ext2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸出7個(gè)分?jǐn)?shù),單擊“計(jì)算得分”命令按鈕,
則最后得分顯示在Text2文本框中(去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分)請(qǐng)將程序補(bǔ)充完整。
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)
參考解析:此空為程序初始化部分,控件數(shù)組中最大值、最小值、和都初始化為text1(0)的值。之后的程序已經(jīng)可以完整地實(shí)現(xiàn)題設(shè)要求。此題也可以書(shū)寫(xiě)為sum或者max。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。