For a = 1 To 14
For b = 1 To 14
c = 16 - a - b
If a * 8 + b * 6 + c * 6 = 110 And b * 2 + c = 14 Then
MsgBox "蜘蛛:" & a & "只" & vbCrLf & "蜻蜓:" & b & "只" & vbCrLf & "蟬:" & c & "只"
End If
Next
End Sub