随机产生10个介于0到100之间的整数,分别使用选择法和冒泡法对其进行升序排序

来源：学生作业帮编辑：大师作文网作业帮分类：数学作业时间：2024/11/10 19:23:28

选择法：
Private Sub Form_Click()
Dim i%,j%,a%(1 To 10)
Randomize
For i = 1 To 10
a(i) = Int(101 * Rnd)
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If a(j) < a(k) Then k = j
Next j
If k i Then t = a(i):a(i) = a(k):a(k) = t
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
冒泡法：
Private Sub Form_Click()
Dim i%,j%,a%(1 To 10)
Randomize
For i = 1 To 10
a(i) = Int(101 * Rnd)
Next i
For i = 1 To 10
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
k = a(j):a(j) = a(j + 1):a(j + 1) = k
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Su

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