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

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 06:11:04
随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列
xSMoQ+W&Dfq[5aacjdZdh\b&hZЊP?cf_}4 6uιs,([%tv}E>od'D \>a(l^Q7ECtý*qc{'.}XAI^hԏMJZ'5_'&m]}Ejii|^52Q. <[%H'D<xcSjשft 2,8bxUHHp i="u!C_NL,t:U7LuP<,> [4!X;ޢj7^jBl1*9bg8r_C Λygf Ny)𹠉3L;ʱ\j]t<>+z8Kt5"vm<

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

随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列
你是郑大的吧,这道题我也刚做完哦
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编写 vb中如何随机产生20个10以内的正整数 VB计算：随机产生20个1～100的正整数放入数组中,显示产生的数,并求出其最大值 1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数（用for或while语句最好文字表达一下这两个问题的区别~有点搞混了.谢谢~两道题的代码留一下~谢谢~ 利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出；在产生的80个 利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. 利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果用VB程序设计 随机产生N个四位正整数,将其中的素数选出,并升序排列后输出(以每行M个素数的格式) 随机产生N个四位正整数,将其中的素数选出,并升序排列后输出(以每行M个素数的格式) 随机产生20个1-50的之间的正整数放入数组A中,输入这组随机数.然后,选出其中的素数放入数组B中,输出这些素数,并计算素数之和 利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列…利用随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列, C语言.随机产生20个1到50之间的正整数放入数组A中,输出这组随机数.然后,选出其中的素数放入数组B中输出这些素数,并计算素数之和. VB随机产生20个正整数并使奇数偶数在不同行显示 vb问题利用随机函数产生80个10～99之间的随机整数,利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出在两个文本框 求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找出其中的素数,并将这 C语言编程考试题 用随机函数产生并输出20个[10,99]的随机整数,输出其中大于这20个数的平均值的数. 怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值