关于抛硬币问题

Question

   关于抛硬币的试验程序：
         能否给点思路：
   1.输入要抛的次数，点击开始
   2.图片交叉变换
   3.完成后点击   统计按钮  并自动统计出来
     正面的次数，反面的次数，以及正面或者反面的概率。
      源代码
   我是高中生，想自学编程，谢谢大家了。
    QQ：954150410
    Email：[email protected]

Answer 1

思路:
建一个函数 用来模拟抛一次硬币 返回值为正面或反面
函数里用一个 随机数函数*10 如果生成的随机数>=5 则认为是正面 如果<5则认为抛掷的是反面
例:
每调一次函数可认为抛掷一次硬币，返回值true则为正面，false则为反面
function getx() as Boolean
if (rnd*10)>=5 then'判断随机数大于等于5则认为抛掷的是正面
getx=true
else'反之则认为抛掷的是反面
getx=false
end if
end function

Answer 2

VB的RND其实随机度并不理想.http://www.m5home.com/bbs/thread-3225-1-1.html这里有个豆子发的代码,是更好的随机数发生器,经使用在项目中,发现确实好了很多.