請幫我做一個可以記分的小程序！有一點點創(chuàng)意就可以了！就是那種像電視歌手大獎賽的！有什么去掉最高分，最低分，然后計算最后成績什么的。還要自動列出冠軍、亞軍、季軍！要記10個人的分數(shù)！拜托了！45分鐘之內(nèi)得上交給老師??！幫幫我！也可以根據(jù)附件的例子修改！

熱心網(wǎng)友

代碼修改如下:Dim k, j As IntegerDim sum, min, max As DoublePrivate Sub Command1_Click()sum = 0For k = 1 To 10sum = sum + Text1(k)NextText2 = sum - max - minEnd SubPrivate Sub Command2_Click()min = Text1(1)For i = 2 To 10 If Text1(i) max Then max = Text1(i) Else max = max End IfNextCommand1。Enabled = TrueEnd SubPrivate Sub Command4_Click()For k = 1 To 10Text1(k) = ""NextText2 = ""End Sub關(guān)于自動列出冠軍、亞軍、季軍！要記10個人的分數(shù),方法同如上代碼修改著做,10個人的分數(shù)可另定義數(shù)組變量解決。

熱心網(wǎng)友

...暈,上學還有這樣上的