cellpadding=3 cellspacing=3设置他们表示table里面的每个格子与每个格子的距离

colspan="3"合并列

rowspan="1"合并行

其他的你自己逐末吧

var reds=setnum(33)//红球

var blues=setnum(16)//蓝球

var items=[]

while(items.length<6){

var index=rang(1,reds.length)

if(reds[index]!=0){

items.push(index)

reds[index]=0

}

}

alert(items) // 这样就获取到了 随机的6个红球

//产生随机数

function rang(min,max){

var cur=max-min+1

return Math.floor(Math.random()*cur+min)

}

//生成球

function setnum(n){

var numbs=[]

for(var i=1i<=ni++){

numbs.push(i)

}

return numbs

}

//完全手敲 有错误请见谅 希望多你有所帮助

事先声明，我只是一个新手，看了几个视频教程以后不知道该写什么，然后想尝试你说这个，可是有很多问题，

出现了很多问题，以我现在的本事无法解释。

1:在超级列表框2里，序号1里03和05出现了4次是对的，可是序号12里，03和06只有8次，为什么是9.我也不知道

2：删除重复，删不掉第一项，我想加在找号下，可是，删不干净，无论我计次循环多少

3：看见源码，你就知道我是什么样的新手了

4发现错误的兄弟麻烦告诉我下是那里错了

5刚才发现LZ有开奖日期，我没加，（实在是没耐性了）

.版本 2

.支持库 iext

.子程序 _按钮1_被单击

.局部变量 第几个, 整数型

.局部变量 临时数字变量, 整数型

.局部变量 临时次数变量, 双精度小数型

.局部变量 找次数, 整数型

.局部变量 第几排, 整数型

.局部变量 概率, 双精度小数型

.局部变量 表项索引, 整数型

.局部变量 查找, 文本型

.局部变量 下一个次数变量, 整数型

.局部变量 下一个数找次数, 整数型

.局部变量 莫名其妙的变量, 文本型

.局部变量 莫名其妙的变量1, 文本型

.局部变量 a, 整数型

.局部变量 概率2, 整数型

超级列表框2.全部删除 ()

查找 ＝ 编辑框1.内容

.计次循环首 (7, 第几排)

    .计次循环首 (超级列表框1.取表项数 (), 第几个)

        临时次数变量 ＝ 0

        .计次循环首 (超级列表框1.取表项数 (), 找次数)

            .如果真 (查找 ＝ 超级列表框1.取标题 (找次数 － 1, 第几排))

                临时次数变量 ＝ 临时次数变量 ＋ 1

            .如果真结束

.计次循环尾 ()

        .如果真 (查找 ＝ 超级列表框1.取标题 (第几个 － 1, 第几排))

            表项索引 ＝ 超级列表框2.插入表项 (, , , , , )

            超级列表框2.置标题 (表项索引, 0, 到文本 (超级列表框2.取表项数 ()))

            .如果 (第几排 ＝ 7)

                超级列表框2.置标题 (表项索引, 2, “蓝色球”)

            .否则

                .判断开始 (第几排 ＝ 1)

                    超级列表框2.置标题 (表项索引, 2, “红色球一”)

                .判断 (第几排 ＝ 2)

                    超级列表框2.置标题 (表项索引, 2, “红色球二”)

                .判断 (第几排 ＝ 3)

                    超级列表框2.置标题 (表项索引, 2, “红色球三”)

                .判断 (第几排 ＝ 4)

                    超级列表框2.置标题 (表项索引, 2, “红色球四”)

                .判断 (第几排 ＝ 5)

                    超级列表框2.置标题 (表项索引, 2, “红色球五”)

                .判断 (第几排 ＝ 6)

                    超级列表框2.置标题 (表项索引, 2, “红色球六”)

                .默认

.判断结束

.如果结束

            超级列表框2.置标题 (表项索引, 1, 查找)

            超级列表框2.置标题 (表项索引, 3, 到文本 (临时次数变量))

            概率 ＝ 临时次数变量 ÷ 超级列表框1.取表项数 () × 100

            超级列表框2.置标题 (表项索引, 4, 到文本 (四舍五入 (概率, 1)) ＋ “%”)

            .如果 (超级列表框1.取标题 (第几个 － 1, 第几排 ＋ 1) ＝ “”)

                超级列表框2.置标题 (表项索引, 5, “没有了”)

            .否则

                超级列表框2.置标题 (表项索引, 5, 到文本 (超级列表框1.取标题 (第几个 － 1, 第几排 ＋ 1)))

            .如果结束

.如果 (第几排 ＝ 7)

                超级列表框2.置标题 (表项索引, 6, “没有了”)

            .否则

                .判断开始 (第几排 ＝ 1)

                    超级列表框2.置标题 (表项索引, 6, “红色球二”)

                .判断 (第几排 ＝ 2)

                    超级列表框2.置标题 (表项索引, 6, “红色球三”)

                .判断 (第几排 ＝ 3)

                    超级列表框2.置标题 (表项索引, 6, “红色球四”)

                .判断 (第几排 ＝ 4)

                    超级列表框2.置标题 (表项索引, 6, “红色球五”)

                .判断 (第几排 ＝ 5)

                    超级列表框2.置标题 (表项索引, 6, “红色球六”)

                .判断 (第几排 ＝ 6)

                    超级列表框2.置标题 (表项索引, 6, “蓝色球”)

                .默认

.判断结束

.如果结束

.如果真结束

.计次循环尾 ()

.计次循环尾 ()

.计次循环首 (超级列表框2.取表项数 (), )

.计次循环首 (超级列表框2.取表项数 (), 下一个数找次数)

        .如果 (超级列表框2.取标题 (下一个数找次数 － 1, 5) ＝ “没有了”)

            超级列表框2.置标题 (下一个数找次数 － 1, 7, “没有了”)

        .否则

            下一个次数变量 ＝ 1

            .计次循环首 (超级列表框2.取表项数 (), a)

                .如果 (超级列表框2.取标题 (下一个数找次数 － 1, 5) ＝ 超级列表框2.取标题 (a, 5))

                    下一个次数变量 ＝ 下一个次数变量 ＋ 1

                .否则

.如果结束

.计次循环尾 ()

            超级列表框2.置标题 (下一个数找次数 － 1, 7, 到文本 (下一个次数变量))

            概率2 ＝ 下一个次数变量 ÷ 超级列表框1.取表项数 () × 100

            超级列表框2.置标题 (下一个数找次数 － 1, 8, 到文本 (概率2) ＋ “%”)

        .如果结束

.计次循环尾 ()

.计次循环尾 ()

.子程序 _按钮2_被单击

.局部变量 纵向, 整数型

.局部变量 删除纵向变量, 整数型

.计次循环首 (超级列表框2.取表项数 (), 纵向)

    .计次循环首 (超级列表框2.取表项数 (), 删除纵向变量)

        .如果真 (超级列表框2.取标题 (纵向, 1) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 1))

            .如果真 (超级列表框2.取标题 (纵向, 2) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 2))

                .如果真 (超级列表框2.取标题 (纵向, 5) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 5))

                    .如果真 (超级列表框2.取标题 (纵向, 6) ＝ 超级列表框2.取标题 (纵向 ＋ 删除纵向变量, 6))

                        超级列表框2.删除表项 (纵向)

                    .如果真结束

.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()

.计次循环尾 ()

.子程序 _按钮3_被单击

.局部变量 a, 整数型

.局部变量 找最大, 整数型

.局部变量 表项索引, 整数型

.局部变量 次数, 整数型

.局部变量 号码, 文本型

.局部变量 颜色球, 文本型

.局部变量 概率, 整数型

.局部变量 号码2, 文本型

.局部变量 颜色球2, 文本型

.局部变量 次数2, 整数型

.局部变量 概率2, 整数型

编辑框2.内容 ＝ “”

.计次循环首 (超级列表框1.取表项数 (), a)

    找最大 ＝ 到数值 (超级列表框2.取标题 (a, 7))

    .如果 (找最大 ≤ 到数值 (超级列表框2.取标题 (a ＋ 1, 7)))

        找最大 ＝ 到数值 (超级列表框2.取标题 (a ＋ 1, 7))

    .否则

        号码 ＝ 超级列表框2.取标题 (a, 1)

        颜色球 ＝ 超级列表框2.取标题 (a, 2)

        次数 ＝ 到数值 (超级列表框2.取标题 (a, 3))

        概率 ＝ 到数值 (超级列表框2.取标题 (a, 4))

        号码2 ＝ 超级列表框2.取标题 (a, 5)

        颜色球2 ＝ 超级列表框2.取标题 (a, 6)

        次数2 ＝ 到数值 (超级列表框2.取标题 (a, 7))

        概率2 ＝ 到数值 (超级列表框2.取标题 (a, 8))

        编辑框2.加入文本 (号码 ＋ “号，” ＋ 颜色球 ＋ “，” ＋ “出现过” ＋ 到文本 (次数) ＋ “次，概率是” ＋ 到文本 (概率) ＋ “%” ＋ “下一个号码” ＋ 号码2 ＋ “号，” ＋ 颜色球2 ＋ “，” ＋ “这2个号码同时出现过” ＋ 到文本 (次数2) ＋ “次，概率是” ＋ 到文本 (概率2) ＋ “%”)

    .如果结束

.计次循环尾 ()