VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果

来源：学生作业帮助网编辑：六六作业网时间：2024/11/16 14:31:23

VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果VB语言随机产生10

VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果

VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
Private Sub Form_click()
Dim A(1 To 10)
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 90) + 10
Next I
For I = 1 To 9 '选择法
p = I
For J = I + 1 To 10
If A(J) < A(I) Then
p = J
End If
Next J
tem = A(I)
A(I) = A(p)
A(p) = tem
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
For I = 1 To 9 '冒泡法
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
tem = A(I)
A(I) = A(p)
A(p) = tem
End If
Next J
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
End Sub
已经调试过

VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列vb语言. VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现 VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB VB,用VB语言写!随机产生10个两位整数,求期中的最大值,最小值和平均值. VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数 vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. VB编程随机产生50个10~200的整数,统计能被5整除的数的个数 VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码 VB随机产生10个100到200之间的整数,将其按从大到小顺序排列 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, VB：随机产生10个小于100（不含100）的随机整数,并统计出其中5的倍数所占比例 vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 VB:随机产生30个[100,500]区间的随机整数,求其和及平均值. C语言编程考试题用随机函数产生并输出20个[10,99]的随机整数,输出其中大于这20个数的平均值的数.