20个元素,每5个打印一行
Private Sub Command1_Click()
Dim a(20) As Integer,s As Integer
For i = 1 To 20
a(i) = Int(Rnd * 1000) + 1
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 20
If a(i) Mod 2 0 Then
s = s + a(i)
End If
Next i
Print " 奇数和为：" & s
End Su
最新问答： 据报道，科学家用激光将置于铁室中石墨靶上的碳炸松，与此同时用射频电火花喷射氮气，此时碳、氮原子结合成碳氮化合物薄膜.这种 囧拼音是什么?是什么意思?怎么用? 是练习十二的, 吃一顿饭花费50元钱用英语怎么说 直角三角形的两条直角边长分别为5和2√5,那么这个三角形的周长是____ 表示活动种类很多有什么四字词语 电路如图，试写出Y的逻辑表达式，并列出真值表 把下列括号中句子变成形容词句子Tom tells me the reason .(He cries for) 化学公式C=1000pw/M中w是什么? 过点a(2,3)与直线x-√3y+1=0的夹角为π/3的直线方程? 1.We met some people.Their car had broken down 求物理阻力、电流、热量、的计算公式 如图,AB为圆O的直径,C为圆O上一点,AD和过C点的切线垂直,垂足为D 连词成句1.did what on you do Friday .2 runners two were just him 英语翻译Never forget your friends in America.这句话是在李阳老师的书里学的,书里的中 in dispose是什么意思 对……感兴趣的英文有哪几种形式 be interested in=take/have______ _______ in 解数学排列组合问题是多少种常用方法 How much do you know aboud Christmas?怎么回答 在一个空瓶子里放进一个飞着的蜜蜂,瓶子重量会增加吗?
相关问答： 元素
