蒙提霍尔问题的概率 蒙特霍问题 三门问题 monty hall problem（The probability of the Monty Hall problem Monty Holzer three Monty Hall problem）.doc

蒙提霍尔问题的概率 蒙特霍问题 三门问题 monty hall problem（The probability of the Monty Hall problem Monty Holzer three Monty Hall problem） Here is VB 6 code: create a new Txt document, copy the following code, and save it as.Frm VERSION 5 Begin VB.Form Form1 Caption = Monty Holzer / three; qq:1457070900 ClientHeight = 3795 ClientLeft = 60 ClientTop = 450 ClientWidth = 4500 ForeColor = H0000FFFF LinkTopic = Form1 ScaleHeight = 3795 ScaleWidth = 4500 StartUpPosition = 3 window default Begin VB.CommandButton cmdno Caption = do not change Height = 495 Left = 1800 TabIndex = 6 Top = 1440 Width = 735 End Begin VB.CommandButton cmdyes Caption = change Height = 495 Left = 960 TabIndex = 5 Top = 1440 Width = 735 End Begin VB.TextBox Text2 Height = 1335 Left = 120 MultiLine = -1True ScrollBars = 2Vertical TabIndex = 2 Top = 2280 Width = 4215 End Begin VB.CommandButton cmdopen BackColor = H0000FF00 Caption = open the door Height = 495 Left = 120 TabIndex = 1 Top = 1440 Width = 735 End Begin VB.Frame Frame1 Caption = computational probability Height = 1815 Left = 2640 TabIndex = 7 Top = 240 Width = 1695 Begin VB.CommandButton Command1 Caption = start Height = 375 Left = 240 TabIndex = 12 Top = 840 Width = 1215 End Begin VB.TextBox Text1 Height = 270 Left = 720 TabIndex = 11 Text = 100000 Top = 480 Width = 735 End Begin VB.CheckBox Check1 Caption = Check1 Height = 255 Left = 720 TabIndex = 8 Top = 240 Width = 255 End Begin VB.Label Label3 Caption = Label3 高度= 375 左= 120 tabindex = 13 = 1320 宽度= 1455 终点 开始标签Label2的VB。 标题=“次数：” 高度= 255 左= 240 tabindex = 10 = 480 宽度= 615 终点 VB标签label1开始。 标题=“换：” 高度= 255 左= 240 tabindex = 9 = 240 宽度= 735 终点 终点 开始VB标签门 BackColor =和 标题=“门2” 颜色=和h0000ffff 高度= 855 指数= 2 左= 1920 tabindex = 4 = 360 宽度= 495 终点 开始VB标签门 BackColor =和 标题=“门1” 颜色=和h0000ffff 高度= 855 指数= 1 左= 1080 tabindex = 3 = 360 宽度= 495 终点 开始VB标签门 BackColor =和 标题=“门0” 颜色=和h0000ffff 高度= 855 指数= 0 左= 240 tabindex = 0 = 360 宽度= 495 终点 终点 属性vb_name =“Form1” 属性vb_globalnamespace = f