VB比较滴

Private Sub Form_Load()
Show
Print AC(Val(InputBox("A")), Val(InputBox("B")), Val(InputBox("C")), Val(InputBox("D")), Val(InputBox("E")), Val(InputBox("F")))
End Sub
Function AC(A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer)
Dim m(5) As Integer
m(0) = A
m(1) = B
m(2) = C
m(3) = D
m(4) = E
m(5) = F
maxxd = 0
For i = 0 To 4
xd = 1
For j = i + 1 To 5
If m(i) = m(j) Then xd = xd + 1
Next
If maxxd < xd Then maxxd = xd
Next
AC= maxxd
End Function