题目
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写
提问时间：2021-03-20
答案
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
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next
For i = 1 To 20
If a(i) Mod 2 = 1 Then
Print a(i);
End If
Next
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
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1原子---分子论确立以后,化学上又一个重大的突破是俄国化学家门捷列夫（ ）的发现.(2 分)
- 2句型转换：Do you have a pet?
- 3设1+2+3+...+m=p,计算x^my·x^m-1y^2·x^m-2·y^2·...·xy^m
- 44名女生和3名男生排成一排,男生必须排在两边的排法
- 5什么决定元素的化学性质?
- 624能写成三个连续自然数的积（24＝2×3×4）,但18却不能,将18最小扩大（ ）倍（整数倍）就能写成
- 7我希望在 老师的帮住下能很好的学英语用英文怎么写
- 8关于夏末的句子
- 9已知3m2-2m-5=0，5n2+2n-3=0，其中m、n为实数，则|m−1/n|=_．
- 10请翻译：The song Yesterday Once More by the Carpenters reminds me of the good old times.
热门考点