神马品牌网幼儿园中班科普方案:机率算法用vb如何实现？
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 12:07:09
比如两个人，A和B，A的中奖率为30％，而B的为60％，用VB应该如何写？请提供例子源码，否则不予采纳，谢谢！
'你的问题表述不是很清楚呢，下面这个可以吗？
Dim ta, tb As Integer
Dim t As Integer
Dim result As String
Private Sub Form_Load()
ta = InputBox("A一共中奖几次？", "A一共中奖几次？", 10)
tb = InputBox("B一共中奖几次？", "B一共中奖几次？", 10)
t = InputBox("一共抽奖几次？", "一共抽奖几次？", 20)
result = "A的中奖率是" + Str(Format(Val(ta) / Val(t), "0.00") * 100) + "%"
result = result + vbNewLine
result = result + "B的中奖率是" + Str(Format(Val(tb) / Val(t), "0.00") * 100) + "%"
kdkfk = MsgBox(result, vbInformation, "Result")
End Sub