novakon 发表于 2014-8-13 12:27
具体的讲，就是请把你的算法抽象成数学语言。比如你使用bmp文档来说明就非常费劲，请考虑表述为：

长x宽 ...

sorry, 忘了上传了。我在火车上，明天中午到家后上传完整的。
我先解答那个随机数列问题，虽然看似十分类似真随机数列。
默写出来发生器的源码吧。
Sub NoiseGenerator()
'先在一个集合内填充伪随机色彩
    For j = 0 To Pl1.Height - 1
        For i = 0 To Pl1.Width - 1
            Randomize
            Pl1.Pset (i, j), Int (Rnd * 2 ^ 24)
        Next i
    Next j
'然后在另一个集合内也填充伪随机色彩
    For j = 0 To Pl2.Height - 1
        For i = 0 To Pl2.Width - 1
            Randomize
            Pl2.Pset (i, j), Int (Rnd * 2 ^ 24)
        Next i
    Next j
'接着互相取对方伪随机坐标的色彩信息重新填充，当时碰到明显可见色斑问题，看到旁边一妹子手机打麻将突然想到的应对法。
    For j = 0 To Pl1.Height - 1
        For i = 0 To Pl1.Width - 1
            Randomize
            Pl1.Pset (i, j), Pl2.Point ((Int (Rnd * Pl2.Width)), ((Int (Rnd * Pl2.Height)))
        Next i
    Next j
    For j = 0 To Pl2.Height - 1
        For i = 0 To Pl2.Width - 1
            Pl2.Pset (i, j), Pl1.Point ((Int (Rnd * Pl1.Width)), ((Int (Rnd * Pl1.Height)))
        Next i
    Next j
End Sub

火车上就不开电脑了，可能默写中一两个字母会有错，请多多包涵。