vb編程 某次歌手大賽,有10個評委給某選手打分,分數為0到100的整數,求出該選手的平均分

添加壹個按鈕, 把以下代碼復制進去：

Private?Sub?Command1_Click()

Dim?i?As?Long,?score(9)?As?Integer,?scores?As?Long,?s?As?String

Randomize?Time

For?i?=?0?To?9?'10個評委

score(i)?=?Int(Rnd?*?99)?+?1?'隨機100以內壹個整數分數

scores?=?scores?+?score(i)?'累積總分,?供計算平均分用

s?=?s?&?CStr(score(i))?&?",?"?'成績單

Next

MsgBox?"打分情況:?"?&?s?&?vbCrLf?&?"隨機打分後,?計算的平均分為:?"?&?scores?/?10?&?"."?'打分

End?Sub