用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值。 用smax

用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值。用smaxsminssum和if循环... 用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值。 用smax smin ssum和if循环 展开
 我来答
yhxxjsh
2014-11-19 · TA获得超过1479个赞
知道小有建树答主
回答量:366
采纳率:100%
帮助的人:283万
展开全部

你没有说界面设计的具体要求是什么样的?所以就给你设计成用文本控件数组输入10个评委的成绩,找出最高分、最低分,算出平均分。

界面如下图:

程序代码如下:

Dim smax,smin, ssum As Integer

Private SubCommand2_Click() '求10个评委中最高分

Dim i AsInteger

smax =Text1(0).Text

For i = 1 To9

  Ifsmax < Text1(i).Text Then

  smax = Text1(i).Text

  End If

Next i

max.Text =smax

End Sub

Private SubCommand3_Click() '求10个评委中最低分

Dim i AsInteger

smin =Text1(0).Text

For i = 1 To9

  Ifsmin > Text1(i).Text Then

  smin = Text1(i).Text

  End If

Next i

min.Text =smin

End Sub

Private SubCommand1_Click()  '求歌手的最后得分

Dim i AsInteger

ssum = 0

For i = 0 To9

ssum = ssum +Text1(i).Text

Next i

score.Text =(ssum - smax - smin) / 8

End Sub

MR__J_A_Y_
2014-11-19 · TA获得超过637个赞
知道小有建树答主
回答量:747
采纳率:50%
帮助的人:283万
展开全部
好简单的,自己想一下吧,去查一下你说的这几个函数的API文档。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式