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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 17:03:25

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个数的平均值的数.