新闻放映厅 您当前所在的位置:主页 > 新闻放映厅 >

VB 7个人成绩计算冠军。

来自:365bet体育在线投注官网   发布者:365bet体育足球   发表于:2019-02-28 04:13   点击:
展开全部
PrivateTypePlayerNameAsStringScoreAsSingleEndTypePrivateSubCommand1_Click()DimArr(1To7)AsPlayer,ScoreMaxAsSingle,ChampionAsStringFori = 1 To7 Arr(i)。
Name = InputBox(第i个人的名字,输入框)Arr(i)。
分数=输入框(输入第i个人的分数并在框中输入)NextiPrint名称,分数Fori = 1到7 PrintArr(i)。
姓名,Arr(i)
ScoreNextiPrintScoreMax = Arr(1)。
得分:冠军= Arr(1)
NameFori = 2To7IfArr(i)。
ScoreScoreMaxThenScoreMax = Arr(i)。
得分:冠军= Arr(i)。
NameEndIfNextiPrint冠军,ChampionEndSub