第42、43讲-裁判评分练习

第42讲-裁判评分练习

自己写的：

Sub one()
Dim sum1 As Double, sum2 As Double, i As Long, x As Long, y As Long
sum1 = 0
sum2 = 0

For i = 2 To 20
    If Range("b" & i) = "D-A01" Then
        x = x + 1
        sum1 = sum1 + Range("c" & i)
    End If
    If Range("b" & i) = "D-A02" Then
        y = y + 1
        sum2 = sum2 + Range("c" & i)
    End If

Next
Range("g2") = Round(sum1 / x, 2)
Range("g3") = Round(sum2 / y, 2)
End Sub

Sub two()
Dim sum1 As Double, sum2 As Double, i As Long, x As Long, y As Long
Dim max1 As Double, min1 As Double, max2 As Double, min2 As Double
sum1 = 0
sum2 = 0
max1 = 0
max2 = 0
min1 = 110
min2 = 110
For i = 2 To 20
    If Range("b" & i) = "D-A01" Then
        If max1 <= Range("c" & i) Then
            max1 = Range("c" & i)
        End If
        If min1 >= Range("c" & i) Then
            min1 = Range("c" & i)
        End If
        x = x + 1
        sum1 = sum1 + Range("c" & i)
    End If
    If Range("b" & i) = "D-A02" Then
         If max2 <= Range("c" & i) Then
            max2 = Range("c" & i)
        End If
        If min2 >= Range("c" & i) Then
            min2 = Range("c" & i)
        End If
        y = y + 1
        sum2 = sum2 + Range("c" & i)
    End If

Next
Range("g7") = Round((sum1 - max1 - min1) / (x - 2), 2)
Range("g8") = Round((sum2 - max2 - min2) / (y - 2), 2)
End Sub

教程写的：

Sub裁判评分1( ）
Dim i As Long,total As Long，count As Long，j as Long
For j = 2 To 3
	count =0
	total = 0
	For i = 2 To 20
		If Range(f”& j) = Range("b"& i) Then
			count = count +1
			total =total +Range("c” & i)
		End If
	Next
Range("g” & j)= Round(total / count,2)
Next
End Sub

Sub裁判评分2( ）
Dim i As Long,total As Long，count As Long，j As LongDim max As Long.min As Long
For j = 7 To 8
	count =0
	total = 0
	max - -1
	min = 101
	For i =2 To 20
		If Range("f”& j)= Range("b”& i) Then
			If Range("c*& i) > max Then max =Range("c”& i)
			If Range("c” & i) <min Then min = Range("c”& i)
			count =count +1
			total = total + Range("c”& i)
			End If
	Next
Range("g" & j) = Round((total - max - min) / (count - 2)，2)
Next
End Sub