QB程序比较容易吓住人，稍微长点就会觉得头晕了，难以想像我以前还非常熟练BASIC写程序啊~~~

１、用随机函数模拟产生１－７次
２、然后再进行多次模拟。每次模拟就是产生三个随机数，与号码进行比较，如果为１　　－３，则将红球的数量Ａ加１，否则将白球的数量Ｂ加１。
３、如果有Ａ＝３　ＯＲ　Ｂ＝３则表示三只球的颜色相同，就将总数Ｔ加１
４、Ｔ／Ｎ就表示出现相同颜色球的概率。