private void start()
{
    Random random1=new Random();
    int num1=random1.Next(6,10);
    this.r1=num1.ToString();
    do 
    {
        int num2=random1.Next(6,10);
        this.r2=num2.ToString();
    }
    while(this.r1==this.r2);
    do 
    {
        int num3=random1.Next(6,10);
        this.r3=num3.ToString();
    }
    while((this.r1==this.r3)||(this.r2==this.r3));
    do 
    {
        int num4=random1.Next(6,10);
        this.r4=num4.ToString();
    }
    while(((this.r1==this.r4)||(this.r2==this.r4))||(this.r3==this.r4));
    this.rad[0]=this.r1 ;
    this.rad[1]=this.r2 ;
    this.rad[2]=this.r3 ;
    this.rad[3]=this.r4 ;
    this.textBox1.Focus();
    this.lac=0 ;
    this.un=0 ;
    this.qun=0 ;
    this.foun=1 ;
    this.ko=true ;
    this.tr1=true ;
    this.tr2=true ;
    this.tr3=true ;
    this.tr4=true ;
    this.b13=0 ;
    this.label1.set_Text("");
    this.listBox1.get_Items().Clear();
}
这个算法你还得再推敲推敲 

[此贴子已经被作者于2005-10-14 20:28:56编辑过]

要源码哈,啥也不说了,先谢了rgmlkthh@163.com

刚猜出来就出现异常了


有关调用实时(JIT)调试而不是此对话框的详细信息，
请参阅此消息的结尾。

************** 异常文本 **************
System.IndexOutOfRangeException: 索引超出了数组界限。
at 逻辑推数.Form1.ok()
at 逻辑推数.Form1.button11_Click(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** JIT 调试 **************
计算机的配置文件(machine.config)的
system.windows.forms 节中必须设置 jitDebugging 值。
编译应用程序时还必须启用\r\n调试。\r\n\r\n例如: \r\n\r\n<configuration>\r\n <system.windows.forms jitDebugging="true" />\r\n</configuration>\r\n\r\n启用 JIT 调试后，任何未处理的异常\r\n都将被发送到此计算机上注册的 JIT 调试器，\r\n而不是由此对话框处理。\r\n