怎么样得到渐变颜色？

Question

比如有35度，每度取一个颜色，最高值35度为红色，最低值1度为绿色，由绿色逐渐加深变成红色，怎么样得到这个颜色值？谢谢了！

Answer 1

红色=rgb(255,0,0)   
  绿色=rgb(0,255,0)255/35=***
然后：
rgb(255-7.**,0+7.**,0)
rgb(255-2*7.**,0+@*7.**,0)
不知是否满意

Answer 2

Public Declare Function GradientFillTriangle Lib "msimg32" Alias "GradientFill" (ByVal hDC As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_TRIANGLE, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long　　Public Declare Function GradientFillRect Lib "msimg32" Alias "GradientFill" (ByVal hDC As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long
直接利用这两个API函数填充就可以。