题目
VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数
提问时间:2020-11-14
答案
窗体上放个CommandButton和两个Label:
Private Sub Command1_Click()
Dim i As Integer,j As Integer,n As Integer
Label1.Caption = ""
Randomize
For i = 0 To 99
j = Int(Rnd * 99)
If j Mod 10 = 0 Then n = n + 1
Label1.Caption = Label1.Caption & " " & j
Next i
Label2.Caption = "个位数为0的元素个数:" & n
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer,n As Integer
Label1.Caption = ""
Randomize
For i = 0 To 99
j = Int(Rnd * 99)
If j Mod 10 = 0 Then n = n + 1
Label1.Caption = Label1.Caption & " " & j
Next i
Label2.Caption = "个位数为0的元素个数:" & n
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1钱可以买房买不到家,买到婚姻买不到爱,买到钟表买不到时间.大都数抢劫,绑架,谋杀,枪击案都与钱有关,钱不是万能反而是痛苦的根源,把你的钱汇到我的账户,让我一个人承担痛苦吧!阿门![请绝顶高手翻译(要口
- 2请从下面备选词语中至少使用两个,并运用至少一种修辞手法写一段描绘湖光山色的话 80字左右
- 3原价748现价691 按照下降百分比推算,我却算不出来691
- 4甲乙丙三根木棒在水中,长总和360CM,甲的四分之三在水外,乙的七分之四在水外,丙的五分之二在水外,水深
- 5描写景色的ABCC式成语
- 6把14个棱长为1的正方体,在地面上堆叠成如图所示的立体,然后将露出的表面部分涂成红色,那么红色部分的面积为_.
- 7there are many articles referring to the recreational therapy. 4621
- 8关雎中“琴瑟友之”的友怎么读
- 9用7块相同的长方形拼成一个大长方形,已知大长方形的周长是68厘米,求小长方形的面积
- 10照样子 狼吞虎咽再写两个词语
热门考点
- 1假设有一个池塘,里面有无穷多的水,现有两个空水壶,容积分别为5升和6升,如何只用这2个水壶从池塘里取得3升的水.
- 2这双鞋多少钱(英文)是A.How much is this pair of shoes?还是B.How much are this pair of shoes
- 3平面上有三条平行直线,每条直线上分别有7,5,6个点,且不同直线上三个点都不在同一条直线上.问用这些点能组成多少个不同三角形?
- 4设P(a,b),M(c,d)是反比例函数y=1/x在第一象限内的图像上关于y=x对称的两点(图中ad),分别过M作MN垂直于X坐标轴于N点,过P作PQ垂直于Y坐标轴于Q点,若角MON=30度,则b/a
- 5读了孔子与项橐的小故事,你觉得孔子是个什么样的人
- 6正3边形边长2倍根号3,求内角,中心角,半径,边心距,周长,面积.正方形边心距1,正六方形边心距根号3,求其余角和边
- 7首字母:The four children have their own i______.
- 8一战四大战役时间
- 9星期五下午2:00他上体育课.用英语怎么说
- 10妈妈为小明以教育储蓄的形式给他存储4000元作为他六年后上高中的小明查了存款利率6年定期年利率2.88%,3年