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

来源：学生作业帮编辑：大师作文网作业帮分类：数学作业时间：2024/09/24 13:22:46

你是郑大的吧,这道题我也刚做完哦
Private Sub Command1_Click()
Dim a(20) As Integer
Dim b()
Print "20个随机数：";
For i = 1 To 20
a(i) = Int(Rnd * 90 + 1)
Print a(i);
Next i
Print
Print
For i = 1 To 19
For j = i + 1 To 20
If a(j) > a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print "排序后奇数：";
k = 1
For i = 1 To 20
If Not a(i) Mod 2 = 0 Then
ReDim b(k)
b(k) = a(i)
Print b(k);
k = k + 1
End If
Next i
End Sub
祝你VB有个好成绩!
ps.如果还有不会的可以问我,一起探讨下,我也要考了%>_

随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列用vb编写利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列… 随机产生300个1000以内的正整数,求出素数个数找出其中素数并按升序排列 VB随机产生20个正整数并使奇数偶数在不同行显示 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. 1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数（用for或while语句偶数奇数的排列用随机数产生10到80的数,产生的偶数和奇数存入数组偶数小到大奇数大到小排好序后分别输入到文本框中