题目
抛硬币vb程序,生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!
生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!
生成n个随机数,大于0.5代表正面,小于0.5代表反面,统计多次抛硬币后,正反各多少次!
提问时间:2021-04-03
答案
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
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1C2H8N2+2N2O4=3R+2CO2+AH2O 则R的化学式是什么
- 21.若lga+lgb=0(其中a≠1,b≠1),则函数f(x)=a的x次方与g(x)=b的x次方的图象?
- 3大量地吸烟喝酒导致他得了癌症 smoking and drinking too much () him () get cancer
- 4我想编个英文命ai lu xiao 这个读音要那些字母组合成为这个读音的单词?
- 5真正的友情,是一株成长缓慢的植物——华盛顿 这句话用英语怎么翻啊,
- 6家 仿写句子
- 7铁不炼不成钢的下一句
- 82点20用英文怎么写
- 9小张以2米每秒的速度沿着铁路跑步,身后开来一列长198米的火车,它的行驶速度是20米,
- 10she likes to use words the meaning of which are clear to him.
热门考点
- 1改句子(改反问句) 并写出改反问句的技巧
- 2请在下列诗句空白处填两个字,他们均是我国的地名.1直把-----作汴州2春风十里-----路 3草长----白鹭飞 4 -----盘里一青螺 5渺渺孤城-----环 6------三日桃花雨 7---
- 3现在有长为16米的绳子,首尾想接在平面上围一个图形(1)如围成一个长方形,长比宽多2
- 4选择until还是unless
- 5水果店运来一批水果,其中梨的质量是苹果的60%,香蕉质量是梨的62.5%香蕉质量是梨的( ) %
- 6我每天中午大约睡两小时用英语怎么说?
- 7为什么用 碳-12 作为相对原子质量的衡量标准?
- 8用分段表达式来表示下列定义在(-∞,+∞)的函数
- 9已知f(x)=a 2x+a-2/2x+1已知定义域为R的函数f(x)=a*2x+a-2/2x+1满足f(-x)=-f(x),确定a的值,并证明f(x)在R
- 108分之7乘4.5+1.2乘0.875+8.75乘100分之43,可以简算的简算