题目
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数
提问时间:2020-08-03
答案
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...
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1the picture looks nice ____________,but when you get close you can see that it is ugly.
- 2MnO2与KMnO4在强碱性环境中反应方程式
- 3英语翻译:今天是卖火柴的小女孩冻死168周年
- 4嫦娥奔月故事简洁的英文版,
- 5寒假作业里的威有什么组词
- 6求教一个抽象代数的问题,
- 7(7.6*15 2.4*5)/126怎么简算请帮助我要提问
- 8兀是有理数吗
- 9首字母填单词:1) If it is quite c____ to you ,I will visit you next Tuesday .
- 10Emily can play the piano too.改为同意句Emily play the piano.
热门考点