vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/05/01 01:40:07

Private Sub Command1_Click()
Dim k,a(1 To 30)
For i = 1 To 30
a(i) = Int(Rnd * 800 + 100)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1:Exit For
Next j,i
For i = 1 To 30
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
For i = 1 To 29
For j = 30 To i + 1 Step -1
If a(i) < a(j) Then b = a(i):a(i) = a(j):a(j) = b
Next j,i
For i = 1 To 30
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Su

vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序 VB的:用随机函数产生n个三位整数,用选择法排序后将它们的值从大到小输出,n=204! VB利用随机函数产生30个[3,99]整数,打印输出其中的素数（要求用数组存放） VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 VB 输入3个不同的数,将它们从大到小排序. 程序填空题下列程序的功能是：随机产生10个1——100（包含1不包含100）之间的正整数,按从大到小的次序排序并输出. 求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇 vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列… 随机产生100个数,统计出能被3和7整除的数字,然后从小到大排序打印出来(Java语言)急用随机函数产生20个1000以内整数存入数组a中,用冒泡法将它们从大到小排序后输出. VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果