VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
数学人气:177 ℃时间:2019-10-19 22:25:48
优质解答
Private Sub Form_Click()Dim a(30) As IntegerDim i As IntegerRandomizeFor i = 1 To 30a(i) = Int(100 * Rnd)Next iFor i = 1 To 30If a(i) Mod 2 = 0 ThenText1 = Val(Text1) + 1Text4 = Text4 & a(i) & vbCrLfE...
我来回答
类似推荐
猜你喜欢
- 11.有理数的混合运算顺序是:
- 226个字母组成的单词
- 3若a²+b²+c²=10,则代数式(a-b)²+(b-c)²+(c-a)²的最大值是多少?
- 4四时田园杂兴 范成大 梅子金黄杏子肥描写的是什么
- 5一根铁丝可围成一个长5厘米,宽4厘,高3厘米的长方形框架,如果用它围成一个正方形框架,求正方体的表面积
- 6关于骄傲的四字词语;关于丑陋的四字词语;关于美丽的四字词语;关于谦虚的四字词语;关于友情的四字词语
- 7把180张邮票按照二比三的比例分给小丽和小华两人各分得多少张
- 8用代入法解方程组{X+3Y=1……①,7X-8Y=6……②时,如果先消去X,那么得到关于Y的方程是__
- 9未被酸化的kmno4与h2o2的反应方程式怎么写?其中mno4-会变成mno2
- 10半径为R的半球形带电球壳均匀分布着电荷q,试用积分求球心处场强.