首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示
admin
2012-12-08
54
问题
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个整数0或1,相当于一次投币,1代表正面,0代表反面。在窗体上有3个文本框,名称分别是Textl、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图1所示。程序运行后,在文本框Textl中输入总次数,然后单击“开始”按钮,按照输人的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空;
Private Sub Commandl Click()
Randomize
n=CInt(Textl.Text)
n1=0
n2=0
For i=1 To__________
r=Int(Rnd*2)
If r=________Then
nl==n1+1
Else
n2=n2+1
End If
Next
Text2.Text=n1
Text3.Text=n2
End Sub
选项
答案
n 1。
解析
程序中Int()用来求不大于number参数的最大整数;
转载请注明原文地址:https://kaotiyun.com/show/vjhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的运行结果为 Dima(-1To6) Fori=LBound(a,1)ToUBound(a,1) a(i)=i Nexti Printa(LBound(a,1));a(UBound(a,1))
以下说法错误的是______。
假定在图片框Picturel中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是______。
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时,在文本框中输入4
假定定义了一个记录类型,名为Rt,同时建立了一个名为Sp.txt的文件,然后编写如下的程序段:DimRvAsRtr1=Len(Rv)Open"Sp.txt"ForRandomAs#1x=LOF(1)n
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Then
把窗体的KeyPreview属性设置为True,然后编写如下事件过程PrivateSubForm_KeyPress(KeyAseiiAsInteger)DimchAsString
在窗本上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubFor_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode
下列说法错误的是
随机试题
行政复议机关应当自受理申请之日起()内作出行政复议决定,但是法律规定的行政复议期限少于此期限的除外。
A.红褐色血样液体,经久不凝B.微混浊的黄色黏稠性液体C.淡黄色清亮液体,含淋巴细胞D.黄色或棕色清亮液体,含胆固醇结晶E.乳白色豆渣样分泌物甲状舌骨管囊肿穿刺液可为
乙公司通过市场分析、制定项目融资方案和营销计划,并按经济学中的零利润原则确定土地使用权投标报价,此地价为甲公司预期()。下列关于双方达成协议的表述中,正确的是()。
如果某数的补码是11111111,那么这个数是()。
属于价值型指标的是()。
结合化学知识和生活经验,下列做法不能减少环境污染的是:
交互作用
检验党的一切执政活动的最高标准是()
若要求在文本框中输入文本时达到密码“*”的显示效果,则应该设置的属性是()。
Karaokemayneverbethesame,thankstoresearchbeingpresentedinNashvilledetailingthelatestfindingsineffortstocreat
最新回复
(
0
)