如何解决河流污染的图片?
第一个问题没看明白,要怎样的扩散图?第二个问题好解决,调用下面这个函数就可以实现sub paintcolor(objname as object, sigredup as single, siggreenup as single, sigblueup as single, sigreddn as single, siggreendn as single, sigbluedn as single)'objname表示要逐渐变浅的对象,必须支持line方法,推荐用picturebox'sigredup siggreenup sigblueup分别表示起始颜色的r g b三象素数值'sigreddn siggreendn sigbluedn表示结束颜色的rgb三象素数值on error resume nextdim objwidth as singledim red** as single, green** as single, blue** as singledim red as single, green as single, blue as singleobjwidth = objname.scalewidthred** = (sigreddn - sigredup) / objwidthgreen** = (siggreendn - siggreenup) / objwidthblue** = (sigbluedn - sigblueup) / objwidthfor i = 0 to objwidth - 1 red = sigredup + i * red** green = siggreenup + i * green** blue = sigblueup + i * blue** objname.forecolor = rgb(red, green, blue) objname.line (i, 0)-(i, objname.scalewidth - 1)next iend sub这样可以么? 20210311