早教吧作业答案频道 -->其他-->
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,见笑了
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个随...的网友还看了以下:
扩号x减18反扩号乘以括号1减5分之2反扩号等于扩号1减8分之5反扩号x.x等于多少 2020-06-17 …
光的直线传播在一张硬纸板中央画一半径为1cm的圆,并将圆周分为5等份,在5个等份点出均用缝衣针戳一 2020-07-01 …
工厂锅炉发生爆炸、洗过的衣服僵硬等生活现象,都是因为。生活中区别软水和硬水的简单方法有等,软化硬水 2020-07-13 …
如图所示,在探究光的反射定律时,(1)图中的光屏是一个可折转的硬纸板,此光屏在弯折时:可判断反射光 2020-07-16 …
若-5分之一的相反数与M的倒数相等,m是多少?若-5分之1的绝对值的相反数和m的相反数相等,m是多 2020-07-20 …
小敏的钱罂中有$10、$5、$2三种硬币.已知$10及$5硬币的30%及40%,而$2硬币的总值为$ 2020-11-28 …
学习了光学知识后,李红对有关探究实验进行了回顾和思考:(1)如图甲是“探究光的反射规律”的装置.可折 2020-12-01 …
敏敏与乐乐共有一元硬币81枚,已知敏敏硬币数的1/4和乐乐硬币数的1/5相等,他们各有硬币多少枚? 2020-12-03 …
感激涕零,不知所云1.在8x8的方格棋盘里放置硬币,正面和反面互相间隔(即正面硬币的四周是反面硬币, 2020-12-03 …
一个数学小组买来29张彩色长方形硬纸片,一张长方形值班可以裁成6个小正方形小正方形,也可以裁成5个等 2020-12-31 …