早教吧作业答案频道 -->其他-->
用vb编写一个给十个评委打分的程序1.编写一个评委打分的程序,实现以下功能:a)单击“评委给分”按钮时弹出InputBox对话框,用来接收10个评委给的分数,并将分数显示在文本框Text1中。
题目详情
用vb编写一个给十个评委打分的程序
1. 编写一个评委打分的程序,实现以下功能:
a) 单击“评委给分”按钮时弹出InputBox对话框,用来接收10个评委给的分数,并将分数显示在文本框Text1中。
b) 单击“最后得分”按钮时,将最高分、最低分分别显示在文本框Text2、Text3中,将最后的得分结果(除去最高分和最低分的平均值)显示在文本框Text4中。
c) 单击“清除”按钮时,清空所有的文本框。
d) 单击“退出”按钮时,退出程序。
1. 编写一个评委打分的程序,实现以下功能:
a) 单击“评委给分”按钮时弹出InputBox对话框,用来接收10个评委给的分数,并将分数显示在文本框Text1中。
b) 单击“最后得分”按钮时,将最高分、最低分分别显示在文本框Text2、Text3中,将最后的得分结果(除去最高分和最低分的平均值)显示在文本框Text4中。
c) 单击“清除”按钮时,清空所有的文本框。
d) 单击“退出”按钮时,退出程序。
▼优质解答
答案和解析
Dim a(10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个分数")
Text1.Text = Text1.Text & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Max = a(1)
Min = a(1)
For i = 1 To 10
s = s + a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = (s - Max - Min) / 8
Text2.Text = Max
Text3.Text = Min
Text4.Text = s
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个分数")
Text1.Text = Text1.Text & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Max = a(1)
Min = a(1)
For i = 1 To 10
s = s + a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = (s - Max - Min) / 8
Text2.Text = Max
Text3.Text = Min
Text4.Text = s
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
看了 用vb编写一个给十个评委打分...的网友还看了以下:
逆否命题的真假.一个逻辑推理的问题,推理过程都对,但是结果是错的.一个格子只能填一个数字,有三个候 2020-04-27 …
所有能算24点的四个数,(4个数只能是1——10之间的数)我举个例:1,1,1,8.1,1,2,6 2020-05-16 …
三菱PLC的数能不能定义成无符号数,也就是最高位为1的时候不是负数.我现在要处理一个数,每来一次中 2020-05-16 …
若a为有理数,则-a与|a|的和是()若a为有理数,则-a与|a|的和是(B)A.可能是负数B.不 2020-06-03 …
(1)小于230的可能性是:(2)大于300的可能性是:(3)是二的倍数用三张卡片2、3、4,任意 2020-06-06 …
小学应用题一道某班有49个同学参加投票选举.现有7个候选人从中选3个班委.每人只能投1票,所有票都 2020-06-20 …
从5名男生和4名女生中选出4人,分别求符合下列条件的选法种数(1)甲乙两人不全当选(2)至少有两名 2020-06-22 …
百分数到底算不算是数如果他是一个数,那么他为什吗不能加单位,他可以和小数和分数互相转化.但是他又只 2020-06-28 …
14.将3,4,5,……,100这98个数按某种顺序排成一行,使得第1个数能被1整除,第2个数能被 2020-07-09 …
将连续的奇数1,3,5,7…排成如图所示的数阵.(1)十字框中五个数字的和能等于215吗?若能,请 2020-07-19 …