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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 08:22:04

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
已经调试过
再问： print 什么啊

VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果 1、随机产生10个10－99范围内的整数,分别用选择和冒泡法将数据按从大到小递减的顺序排列,并显示排序结果 VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上随机产生10个介于0到100之间的整数,分别使用选择法和冒泡法对其进行升序排序 vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列 VB的:用随机函数产生n个三位整数,用选择法排序后将它们的值从大到小输出,n=204! VB编程,分别用选择排序法和冒泡排序法实现有N个元素数组的排序.N由键盘输入,数组元素的值在1~200之间,随机产生 1．编一个程序,产生30个随机整数,存入数组,用冒泡法或选择法分别对其进行排序.要求显示排序前后的数 VB排序题.：随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急随机产生20个10~99之间的整数,要求：1）用冒泡法排序（降序） 2）用InputBox( )函数输入一整数X 用随机函数产生20个1000以内整数存入数组a中,用冒泡法将它们从大到小排序后输出. c语言的一题目：分别用冒泡法和选择法对10个数排序!