Dim a%(1 To 20)
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next
Print
For i = 1 To 20
If a(i) Mod 2 = 1 Then
Print a(i);
End If
Next
Print
For i = 1 To 19
For j = 20 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next
Next
For i = 1 To 20
If a(i) Mod 2 = 1 Then
Print a(i);
End If
Next
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写
数学人气:821 ℃时间:2020-01-28 12:58:04
优质解答
我来回答
类似推荐
猜你喜欢
- 1怎么用八个一变成一千?(加法算式)
- 2设二次函数f(x)=ax2+bx+c的图象过点(0,1)和(1,4),且对于任意的实数x,不等式f(x)≥4x恒成立. (1)求函数f(x)的表达式; (2)设g(x)=kx+1,若F(x)=log2[g(x)-f(x)]在区间[1
- 3在一定温度下冲入氮气和氢气物质的量分别为3mol和6mol,平衡时,生成氨气的物质的量为2.4mol,已知容器的容积为5L,
- 4甲数是200,乙数是160,为什么甲数比乙数多20%
- 5[(7右13分之1加2,4)除以6右5分之2]乘以5
- 6(1/2)质量为4乘以10的3次方kg的汽车,由静止出发在水平公路上行驶100m后速度增大到15m/s.若发动机的牵...
- 7and,Lily,passes,catches,to,baii,the,she,it{.}{连词成句}
- 8轮船先顺水航行46km再逆水航行34km所用的时间恰好与它在静水中航行80km所用的时间相等,水流的速度是每小
- 9八大行星中绕日公转轨道靠近地球公转轨道两侧的是() A.水星,火星 B.金星,火星 C.金星,水星
- 10在做英语阅读题时,认识单词,却读不懂句子,这是什么问题,我也看语法书了,发现无法用语法书里的讲的应用到文章中,目前我阅读量很少,我不知道坚持下去会不会提高,请有经验的大神帮帮忙,如何改善这种问题,