编写这个程序在技术上没有什么难点，关键的地方是在数据算法设计上，如在方格中随机填充颜色的算法设计中，我开始是用数组来进行设计，结果发现算法有点复杂，代码有点长，后来改用集合对象，算法就大大简单明了了。

　　闲话少说，现在我们就开始编程。首先打开vb，新建一个标准工程，在form1上添加一个picturebox控件，设置picture1的autoredraw属性为true，然后切换到代码编辑框添加如下代码:

’定义x1、y1为全局变量，用来表示鼠标按下时的坐标
dim x1 as integer
dim y1 as integer
’定义fill_color过程，在5*5的方格中随机填充颜色
sub fill_color()
    dim color as integer
    dim color_col as new collection ’定义一个集合变量

    ’在集合中装载5种颜色
    for i = 0 to 24
        color_col.add int(i / 5)， str(i)
    next i

    ’在方格中填充颜色
    j = 0
    for n = 0 to 4
        for m = 1 to 5
            randomize
            x = int((25 - j) * rnd() + 1)
            color = color_col.item(x)
            picture1.line (n， m)-(n + 1， m - 1)， qbcolor(color)， bf
            color_col.remove (x)
            j = j + 1
        next m
    next n
end sub
’定义draw过程，画边框为白色的方格
sub draw()
    for n = 0 to 5
        picture1.line (0， n)-(5， n)， qbcolor(15)
        picture1.line (n， 0)-(n， 5)， qbcolor(15)
    next n
end sub
private sub form_activate()
    fill_color
    draw