VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 03:45:54
VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次

VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次

VB编程模拟抛硬币 生成N个随机数.大于0.5的代表正面.小于等于0.5的代表反面,统计正反面各多少次
Private Sub Command1_Click()
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的代表反面,统计正反面各多少次 抛硬币vb程序,生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次! VB编程产生100个[10,99]的随机数 VB 编程 用随机数函数 求随机数 我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么 vb怎么生成随机数啊. VB如何编程实现在区间[1,100]的100个随机数 产生一个随机数,均匀分布,在0到100产生3000个随机数,用word输出,能保存用vb编程 在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值 在vb的list里生成20个两位数的随机数后,怎样将生成的随机数中的偶数删除, 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 用vb生成6个两位数的随机数,求得平均值,显示生成的两位数和平均值 vb编程 输入任意 随机数个数,单击显示随机数出现随机数.在第一个文本框输入任意 随机数个数,单击显示随机数的按钮在第二个文本框出现横向排列的随机数. JAVAC语言编程1,利用随机数生成一个包含n(n 一道编程题,用c++ vb c 皆可利用在区间【0,1】中取值的均匀分布的随机数r模拟一天是否下雨,如果r=3,表示出现了连续3天下雨时间,用变量y=1表示一周内出现连续3天下雨事件,否则y=0 模拟n周, 用vb怎么生成3位随机数 编写应用程序,用0-1之间的随机数来模拟扔硬币实验,统计扔1000次后出现正反面的次数并输出Java/语言编程 vb编程 产生20个0到99之间的随机数,将其中5和3的倍数打印出来