vb程序设计求歌手平均分(vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10))
本文目录
- vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10)
- VB用户输入10个选手的得分(0-10分),然后去掉一个最高分和一个最低分,求出某选手的最后得分(平均分)
- VB编写一个歌手评分系统,
- 用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值 用smax
- VB编程问题(歌手计分表)
- vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分然后再求出选手的平均分
vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10)
Dim Sc(10) As SingleDim max As Single, min As Single, s As Single, p As Single, x As SingleDim i As Integers = 0Sc(1) = Val(InputBox("请输入第1个评委的分数!"))Do While Sc(1) 《 0 Or Sc(1) 》 10 Sc(1) = Val(InputBox("请输入第1个评委的分数!", "输入错误!请重新输入!"))Loopmax = Sc(1)min = Sc(1)s = s + Sc(1)For i = 2 To 10 Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数!")) Do While Sc(i) 《 0 Or Sc(i) 》 10 Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数!", "输入错误!请重新输入!")) Loop s = s + Sc(i) If Sc(i) 》 max Then max = Sc(i) If Sc(i) 《 min Then min = Sc(i)Next is = s - max - minp = s / 8Print "评委给分:"Print "序号:";For i = 1 To 10 Print Left(CStr(i) & " ", 4);Next iPrintPrint "得分:";For i = 1 To 10 Print Left(CStr(Sc(i)) & " ", 4);Next iPrintPrint "平均分:"; p
VB用户输入10个选手的得分(0-10分),然后去掉一个最高分和一个最低分,求出某选手的最后得分(平均分)
Private Sub Command1_Click() Counter = Counter + 1 Randomize Dim Score As Single, Max As Single, Min As Single, Sum As Single, i As Integer Max = 0: Min = 10 For i = 1 To 10 Score = InputBox("请输入第" & i & "个裁判的打分:", "", Int(Rnd * 1000) / 100) Print Format(Score, "0.00") + Space(2); Sum = Sum + Score If Score 》 Max Then Max = Score If Score 《 Min Then Min = Score Next i Sum = Sum - Max - Min Print Print "去掉一个最高分:"; Format(Max, "0.00") Print "去掉一个最低分:"; Format(Min, "0.00") Print "最后得分:"; Sum / 8 PrintEnd Sub
VB编写一个歌手评分系统,
你是要这个实用的功能,还是要这个VB设计,还要说明一下有评委不打分的情况没,也就是说少于7个人打分的情况.如果只是要功能,一个EXCEL表就可以搞定,没必要编程的.
用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分,去平均值 用smax
你没有说界面设计的具体要求是什么样的?所以就给你设计成用文本控件数组输入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
VB编程问题(歌手计分表)
Dim s(0 To 9) As Single ’定义一个数组用来存放10个分数Dim i As IntegerDim max, min, total, average As Single ’ 定义最大,最小,总分和平均分For i = 0 To 9 ’ 为取得10个分数做循环s(i) = Val(Text(i).Text) ’将文本框中的值赋给数组SNext imax = s(0): min = s(0): total = s(0) ’让最大,最小,总分等于第一个文本框的值,以便后边作比较For i = 1 To 9 ’从第二个文本框开始,与第一个文本框数值做比较If s(i) 》 max Then max = s(i) ’如果比MAX比S小,则将max替换成SIf s(i) 《 min Then min = s(i)’同上total = total + s(i) ’将其他值加如总分Next itotal = total - max - min’去掉最大,最小值的总分average = total / 8 average = Int(average * 100 + 0.5) / 100’平均分Text2.Text = Str$(max)’输出到文本框Text3.Text = Str$(min)Text4.Text = Str$(average)
vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分然后再求出选手的平均分
Dim arr(1 To 10) As DoubleConst N = 10Private Sub Command1_Click() Record Dim temp As Double For i = 1 To N - 1 For j = 1 To N - 1 If arr(j) 》 arr(j + 1) Then t = arr(j): arr(j) = arr(j + 1): arr(j + 1) = t End If Next j Next i showrEnd SubPrivate Sub Form_Load() For txtcount = 0 To 9 Text1(txtcount).Text = "" Next End SubPrivate Sub Record() For txtcount = 0 To 9 arr(txtcount + 1) = Val(Text1(txtcount).Text) NextEnd SubPrivate Sub sort() End SubPrivate Sub showr() For txtcount = 0 To 9 Text1(txtcount).Text = arr(txtcount + 1) NextEnd Sub
还要加入10个输入框数组控件,亲测可行,望采纳~
更多文章:
documents删除了怎么办(My Documents 删除的文件怎么恢复)
2024年6月29日 08:59
mysql持久化三种方式(activemq 什么是持久化mysql集群)
2024年6月27日 03:23
为什么说世界是虚拟的,人类只是一串代码?科学家从DNA中找到隐藏的特殊代码,人类是被送到地球上的生物吗
2024年8月28日 15:40
search engine(用search engine【(互联网上的)搜索引擎】造句,拜托,我是一个英语白痴啊!!)
2024年7月25日 21:21
19世纪画家马奈印象主义的最初领袖?马奈、莫奈和_______都是印象派重要画家
2024年7月24日 05:37
java中fileinputstream(一个很简单的fileinputstream——JAVA问题)
2024年7月20日 13:32
html表格垂直居中(css里如何让表格里的文字竖直居中,并距离左边一定距离)
2024年3月8日 12:10
linux查看进程并杀死(linux如何关闭已建立的ip连接,杀掉进程)
2024年7月2日 04:50
draft是什么意思中文(啤酒达人来答:啤酒上注明draft什么意思,来源是什么)
2024年7月18日 18:38