作业帮 > 数学 > 作业

随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/05/11 22:49:42
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列 用vb编写
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