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://kswjz.com/article/hidgdg.html