1、模拟试验的尝试
表1
表2
模拟掷硬币的程序如下：（Visual Basic编程语言）
Private Sub Command1_Click()
n = Text1.Text ‘输入投掷总数n
Zhengmian = 0 ‘正面初值为0
For i = 1 To n
m = Rnd() ‘随机数
If m >= 0.5 Then Zhengmian = Zhengmian + 1 ‘随机数大于等于0.5为硬币正面
Next
Text2.Text = Zhengmian ‘显示正面次数
Text3.Text = Abs(2 * Zhengmian - n) ‘显示正反面次数的差值
End Sub
模拟循环掷硬币的程序如下：
Private Sub Command2_Click()
n= Text1.Text ‘输入投掷数n
n2 = Text4.Text ‘重复次数n2,实际掷硬币次数为n*n2
sumtn = 0 ‘重复循环n2次累计硬币正反面差值总数初值为0
For j = 1 To n2
Zhengmian = 0 ‘硬币正面初值
For i = 1 To n
m = Rnd()
If m >= 0.5 Then Zhengmian = Zhengmian + 1 ‘随机数大于等于0.5为硬币正面
Next
tn = Abs(2 * Zhengmian - n) ‘单次正反面差值
Next
sumtn = sumtn + tn ‘正反面差值累加
Next
pjtn= sumtn / n2 ‘平均正反面差值
Text3.Text = pjtn ‘显示平均正反面差值
End Sub
表4
