vb.net:用rnd语句对抛100次硬币,统计正反面的机率的程序编程

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 20:24:24
vb.net:用rnd语句对抛100次硬币,统计正反面的机率的程序编程

vb.net:用rnd语句对抛100次硬币,统计正反面的机率的程序编程
vb.net:用rnd语句对抛100次硬币,统计正反面的机率的程序编程

vb.net:用rnd语句对抛100次硬币,统计正反面的机率的程序编程
Randomize()
For i = 1 To 100
a = Int(Rnd() * 2) + 1
If a = 1 Then
b = b + 1
ElseIf a = 2 Then
c = c + 1
End If
Next
TextBox1.Text = "正面" & b & "%" & "反面" & c & "%"