包含vb.net模拟抛硬币的词条
VB编程模拟抛硬币 生成N个随机数。大于0.5的代表正面。小于等于0.5的代表反面,统计正反面各多少次
Private Sub Command1_Click()
创新互联拥有10多年的建站服务经验,在此期间,我们发现较多的客户在挑选建站服务商前都非常的犹豫。主要问题集中:在无法预知自己的网站呈现的效果是什么样的?也无法判断选择的服务商设计出来的网页效果自己是否会满意?创新互联业务涵盖了互联网平台网站建设、移动平台网站制作、网络推广、按需网站制作等服务。创新互联网站开发公司本着不拘一格的网站视觉设计和网站开发技术相结合,为企业做网站提供成熟的网站设计方案。
Dim i As Integer, N As Integer, num1 As Integer, num2 As Integer
N = Val(InputBox("请输入抛硬币的次数:"))
For i = 1 To N
Randomize
t = Rnd()
If t 0.5 Then
num1 = num1 + 1
Else
num2 = num2 + 1
End If
Next
Print "正面次数为:" num1
Print "反面次数为:" num2
End Sub
num1用来记录正面的次数
num2用来记录反面的次数
Rnd()是取0至1之间的一个随机数
其他的就写成:Int((上界 - 下界 + 1) * Rnd + 下界)
哈哈,初学VB,见笑了
抛硬币vb程序,生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!
Private Sub Command1_Click()
Dim n As Integer
Dim x As Single
Dim a As Integer, b As Integer
Dim i As Integer
n = Val(Text1)
For i = 1 To n
Randomize
x = Rnd
If x 0.5 Then
a = a + 1
Else
b = b + 1
End If
Next i
Label3.Caption = a
Label4.Caption = b
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label3.Caption = ""
Label4.Caption = ""
End Sub
对抛100次硬币,统计出现正反面的机率,开发一个模拟软件,用vb2008
Dim i%, m!, z%, f%, n!, w!
z = 0
f = 0
For i = 1 To 10
Randomize '必须加上随机
m = Val(Rnd) ’去掉msgbox
If m 0.5 Then
MsgBox ("硬币为正")
z = z + 1
Else
MsgBox ("硬币为反")
f = f + 1
End If
Next i
n = z / 10
MsgBox ("出现正面硬币的概率为:" n)
w = f / 10
MsgBox ("出现反面硬币的概率为:" w)
当前文章:包含vb.net模拟抛硬币的词条
地址分享:http://pwwzsj.com/article/hidgdg.html